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