ch7-3.asp

《XML语言及应用》作者华铨平—examples

<%@ language="vbscript"%>
<% 
  '遍历整个XML文档
  set xmldoc=server.createObject("MSXML.DOMDocument")
      xmldoc.load(Server.MapPath("ch7-1.xml"))
	  getnodes(xmldoc)
  sub getnodes(node)
      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
%>