分別保存下面兩段代碼，一個保存為readxml.asp另一個保存為test.xml，放在同一個目錄下面，調試程序即可，在程序里面我已經做了解釋，讀取代碼可以做成一個readxml的函數，通過使用輸入的參數而讀取xml不同數據記錄的不同的值。這段程序的改編來自互聯網，有什么出入請見諒。

readxml.asp
以下是引用片段：
<%
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.survivalescaperooms.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 
%>

test.xml
以下是引用片段：
<?xml version="1.0" encoding="utf-8" ?>
<root>
<row ID="1" COMPNAME="過橋軒" ADDR="廣東省廣州市越秀區北京路" 郵編="510000" TEL="8620-8333" <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。