ch7-6.asp.bak

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

<%@ language="vbscript"%>
<%
   set xmldoc=server.createObject("MSXML.DOMDocument")
   xmldoc.load(Server.MapPath("xuesheng.xml"))
if xmldoc.readystate=4 and xmldoc.parseError.errorCode=0 then
   Traverse(xmldoc)
else
   Response.write("错误原因："+xmldoc.parseError.reason)
end if 
   Function Traverse (node)   
   if node.childNodes.length<>0 then      
	  for i=0 to node.childNodes.length-1	      
	      Traverse(node.childNodes(i))
		  set ChildNum=node.childNodes(i)
	  if ChildNum.childNodes.length=0 then  
	     response.write(ChildNum.text)
		 response.write("<br>")
	  end if
	  next
   end if
   end Function
%>