<% 
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 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>