<%@ Language=VBScript %>
<% 

set xmlDoc = Server.createObject("Microsoft.XMLDOM")
dim MyNode,namedNodeMap
xmlDoc.async = false
xmlDoc.load(Server.MapPath("xmldata.xml"))

'獲取節點信息
    getnodes(xmlDoc)

sub getnodes(node)
   dim i
   '當前節點信息
	   Response.write("<br><b>節點名稱：")
	   Response.write(node.nodeName)
	   Response.write("</b><br>節點類型：")
	   Response.write(node.nodeTypeString)
	   Response.write("<br>節點值：")
	   Response.write(node.nodeValue)
   '獲得子節點信息
	   if node.childNodes.length<>0 then
	      for i=0 to node.childNodes.length-1
	          getnodes(node.childNodes(i))
	      next
	   end if
end sub

%>