asp 遍历xml各节点内容

books.asp
<%
''创建一个xml的对象
set objXmlDom=server.CreateObject("Microsoft.XMLDOM")
''指定XML文件的下载是否与XML的处理异步进行
objXmlDom.async = false 
''获得xml文件的目录与文件名，这里是虚拟目录
fileStr = Server.MapPath("./") & "/books.xml"
''加载xml文件
objXmlDom.load(fileStr)

''得到子节点的长度
''NodesLength=objXmlDom.DocumentElement.ChildNodes.Length
''response.Write(NodesLength&"<br>")
'获得父节点的对象
'set parentNodes=objXmlDom.DocumentElement
set parentNodes= objXmlDom.documentElement.selectSingleNode("//books")
'得到子节点的长度
childNodesLength=parentNodes.ChildNodes.Length
'输出子节点的长度
response.Write("子节点数："&parentNodes.ChildNodes.Length)
response.Write("<br>")

'遍历子节点的属性和节点
for i=0 to childNodesLength-1
set objChile=parentNodes.ChildNodes(i)

response.Write(i+1&": bookID="&objChile.GetAttribute("id"))
response.Write(",sortID="&objChile.GetAttribute("sortID"))
response.Write(", title="&objChile.selectSingleNode("title").text)
response.Write(",author="&objChile.selectSingleNode("author").text)
response.Write(",<a href=""javascript:removeChileNode("&i&")"">删除</a>")
response.Write(",<a href=""javascript:editChileNode("&i&")"">编辑</a><br>")
next
set objXmlDom=nothing
%>
 <script>
function removeChileNode(id)
{
  if(!confirm("确定要删除第"+id+"个数据节点吗？")) return false;
  location.href='delXmlChildNode.asp?id='+id;
}
function editChileNode(id)
{
    location.href='editBook.asp?id='+id;
}
</script>

books.xml

<?xml version="1.0" encoding="gb2312"?>
<books>
    <book id="4" sortID="a4">
        <title>author4aa</title>
        <author>author4</author>
    </book>
    <book id="5" sortID="a5">
        <title>author55</title>
        <author>author5</author>
    </book>
    <book id="6" sortID="a6">
        <title>booktitle</title>
        <author>author6</author>
    </book>
</books>