无聊写了个遍历XML文件的文档，还有一些不够完美，大家如果有更好的可以贴出来一起研究一下!
<% on error resume next
'<![CDATA[]]>问题没处理
xmlfile = "???.xml"
Set xml = Server.CreateObject("MSXML.DOMDocument")
xml.async = false
xml.load(xmlfile)
private function showxml(node)
dim tempstr
for each i in node
If i.nodeType = 1 then
tempstr = "<b>" & i.nodeName & "</b>"
tempstr = replace(tempstr,"#text","")
Response.write tempstr
end if
If i.nodeType = 3 then
tempstr = "<i>" & i.nodeValue & "</i><br>"
response.write tempstr
end if
If i.nodeName<>"#text" then
for each b in i.attributes
response.write "[" & b.name & ":" & b.value & "] "
Next
Response.write "<br>"
end if
If i.hasChildNodes then
showxml(i.childNodes)
end if
Next
End function
showxml(xml.documentElement.childNodes)
%>