getallnodes.asp

关于XML和网页配合使用的好书

<%@ 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

%>