%
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
'這個(gè)可以定義asp讀取xml文件的那一個(gè)值，通過傳遞這個(gè)值來確定讀取的數(shù)據(jù)
for i=0 to nCntChd
set objAtr=objNode.ChildNodes.item(i)
nCntAtr=objAtr.Attributes.length-1
'歷遍一條記錄里面的所有的記錄項(xiàng)，記錄是從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
%>
