xml|遍历|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>
"
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 "
"
end if
If i.hasChildNodes then
showxml(i.childNodes)
end if
Next
End function
showxml(xml.documentElement.childNodes)
%>
