<%
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开始的

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