XML讀取案例程式

data.xml 資料檔案

1 <?xml version="1.0" encoding="utf-8" ?>
2  <root>
3  <row ID="1" COMPNAME="DALIAN" POST="063000" TEL="0315-2695" LEVEL="888888888"/>
4  <row ID="2" COMPNAME="TIANJUN" POST="063000" TEL="0315-2695" LEVEL="888888888"/>
5  <row ID="3" COMPNAME="BEIJIN" POST="063000" TEL="0315-2695" LEVEL="888888888"/>
6  </root>

讀取程式一：遍曆全部節點

<%
Dim xml,objNode,objAtr,nCntChd,nCntAtr
Set xml=Server.CreateObject("Microsoft.XMLDOM")

    xml.Async=False
    xml.Load(Server.MapPath("data.xml"))
Set objNode=xml.documentElement

    nCntChd=objNode.ChildNodes.length-1
For i=0 to nCntChd

Set objAtr=objNode.ChildNodes.item(i)
        nCntAtr=objAtr.Attributes.length-1

For j=0 To nCntAtr
            response.write objAtr.Attributes.item(j).Text&"<br>"
Next

        Response.Write "<br>"
Next

    Response.Write "<br>"

Set objAtr=Nothing
Set objNode=Nothing
Set xml=Nothing
%>

 讀取程式二：擷取“COMPNAME”節點的內容

<%
Dim xml,objNode,objAtr,nCntChd,nCntAtr
Set xml=Server.CreateObject("Microsoft.XMLDOM")

    xml.Async=False
    xml.Load(Server.MapPath("data.xml"))
Set objNode=xml.documentElement

    nCntChd=objNode.ChildNodes.length-1
For i=0 to nCntChd

Set objAtr=objNode.ChildNodes.item(i)
        nCntAtr=objAtr.Attributes.length-1

         response.write objAtr.Attributes.item(i).Text&"<br>"
Next

    Response.Write "<br>"

Set objAtr=Nothing
Set objNode=Nothing
Set xml=Nothing

%>