分別儲存下面兩段代碼,一個儲存為readxml.asp另一個儲存為test.xml,放在同一個目錄下面,偵錯工具即可,在程式裡面我已經做瞭解釋,讀取代碼可以做成一個readxml的函數,通過使用輸入的參數而讀取xml不同資料記錄的不同的值。這段程式的改編來自互連網,有什麼出入請見諒。
複製代碼 代碼如下:<%
dim xml,objNode,objAtr,nCntChd,nCntAtr
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.Async=False
xml.Load(Server.MapPath("test.xml"))
Set objNode=xml.documentElement
nCntChd=objNode.ChildNodes.length-1
'這個可以定義asp讀取xml檔案的那一個值,通過傳遞這個值來確定讀取的資料
for i=0 to nCntChd
set objAtr=objNode.ChildNodes.item(i)
nCntAtr=objAtr.Attributes.length-1
'曆遍一條記錄裡面的所有的記錄項,記錄是從0開始的
' http://www.knowsky.com/
for j=0 to nCntAtr
response.write objAtr.Attributes.item(j).Text&"<br>"
next
response.write "<br>"
next
Set objAtr=Nothing
Set objNode=Nothing
Set xml=Nothing
%>
xml檔案複製代碼 代碼如下:以下為程式碼:
<?xml version="1.0" encoding="utf-8" ?>
<root>
<row ID="1" COMPNAME="過橋軒" ADDR="廣東省廣州市越秀區北京路" 郵編="510000" TEL="8620-8333" PRODSERV="經營面" 經濟行業="粥粉麵店" 省份="廣東省" 地市="廣州市" 地區="越秀區" visit="0" 優先順序="9999999999" zhuangtai="最新"/>
<row ID="2" COMPNAME="周仔" ADDR="廣東省廣州市" 郵編="510000" TEL="8620-8330" PRODSERV="經營快餐飲食" 經濟行業="快餐" 省份="廣東省" 地市="廣州市" 地區="越秀區" visit="0" 優先順序="9999999999" zhuangtai="最新"/>
<row ID="3" COMPNAME="香菜館" ADDR="廣東省廣州市越秀區" 郵編="510000" TEL="8620-837" PRODSERV="經營湘菜" 經濟行業="湘菜" 省份="廣東省" 地市="廣州市" 地區="越秀區" visit="0" 優先順序="9999999999" zhuangtai="最新"/>
</root>
DOM的對象和方法的簡略說明:
documentElement 屬性 確認XML 檔案的根(Root)節點。
selectSingleNode 傳回第一個符合樣式的節點。
loadXML 方法 載入一個XML 檔案或字串的片斷。
haschildnodes 方法 如果指定的節點有一個或更多子節點,傳回值為true。
createElement 方法 建立一個指定名稱的元素。
AppendChild 方法 加上一個節點當作指定節點最後的子節點。
createCDATASection 方法 建立一個包含特定資料的CDATA。