例9-7.html

来自「深入浅出XML示例下载」· HTML 代码 · 共 20 行

<HTML>
<HEAD>
<TITLE>节点遍历 </TITLE>
</HEAD>
<BODY bgcolor=#ffffff>
<SCRIPT LANGUAGE="VBScript" >
Dim myDocument 
Set myDocument = CreateObject("microsoft.xmldom")
myDocument.async = False 
myDocument.load("BOOKS.XML")  
set root=mydocument.DocumentElement
Set nodes = root.childnodes
for i=0 to root.childnodes.length-1
document.write  "第" & i+1 & "个节点的名字是： " & nodes.item(i).nodename & "<br>"
document.write "第" & i+1 & "个节点的值是： " & nodes.item(i).text & "<br>"
next
</SCRIPT>
</BODY>
</HTML>