让XML在ASP中发挥其长处

'函数入口为一个节点对象，出口是在入口节点对象的基础做为根节点，返回的第i个子节点对象（ＯＢＪ）

function GetObjChildNode(obj,i)

if IsObject(obj) then

if obj.ChildNodes.length>0 then

set GetObjChildNode=obj.ChildNodes(i)

end if

end if

end function

'如果一个节点对象（ＯＢＪ）有孩子节点，该函数返回其孩子个数，即记录集长度

function GetObjChildNodesNumber(obj)

if obj.ChildNodes.length>0 then

GetObjChildNodesNumber=obj.ChildNodes.length

else

GetObjChildNodesNumber=0

end if

end function

'获取一个节点对象(OBJ)的属性值，函数入口为属性名

function GetObjAtrValue(obj,atrributename)

GetObjAtrValue=obj.GetAttributeNode(atrributename).Nodevalue

end function

'获取一个节点对象(OBJ)的属性值，函数入口为obj名称

function GetObjText(obj)

GetObjText=obj.text

end function

'遍历一个节点所有的子节点

function OverViewNodes(elementname)

end function

'获取一个节点属性的名称

function GetNodeAtrributeName()

end function

'获取一个子节点的名称

function GetChildNodeName()

end function

'Loaddocument("GetHotelDetailsResponse.xml")

'response.Write(FindAtrributeValue("Image","path")&"<br>")

'response.Write(GetNodesNumber("RoomType")&"<br>")

'response.Write(GetObjChildNodes("RoomType",2).nodename&"<br>")

%>