例9-3.html

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

<html>
<head>
<title>show every element in XML document</title>
</head>
<body bgcolor=#FFFFFF> 
<xml id="isle" src="EX9_1.XML">
</xml>
<script language="vbscript">
dim chl
dim x
set mdoc=isle
if mdoc.parseError<>0 then
 msgbox "reason " & mdoc.parseError.reason
else
set chl=mdoc.documentElement.childNodes
for each x in chl
    document.write("<b>" & x.nodename & "</b>")
    document.write(": ")
    document.write(x.text)
    document.write("<br>")
next
end if
</script>
</body>
</html>