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>