ch7-7.asp

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

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