flash Asp远程访问xml

[asp]代码库

<%
  dim objXML
  dim objRootElement
  dim strValue
  dim strXML
  dim item
  dim HttpReq

  set HttpReq=server.CreateObject("Microsoft.XMLHTTP")

  HttpReq.open "GET","<a href="http://192.168.1.111:8081/test.xml">http://192.168.1.111:8081/test.xml",False
  HttpReq.send
  strXML=HttpReq.responseText
  Set objXML=Server.CreateObject("Microsoft.XMLDOM")
  objXML.validateonparse=true
  objXML.async=false
  objXML.loadXML(strXML)
  set objRootElement=objXML.documentElement
  Response.Write(objRootElement.childnodes(1).text)
%>
//该片段来自于http://yuncode.net