【下载文档:  利用asp从远程服务器上接收XML数据的方法.txt 】

---

利用ASP从远程服务器上接收XML数据的方法
复制代码 代码如下:<% dim objXML dim objRootElement dim strValue dim strInetURL dim strXML dim item strInetURL ="http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml" Dim HttpReq set HttpReq = server.CreateObject("MSXML2.XMLHTTP") HttpReq.open "GET", "http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml", False HttpReq.send strXML = HttpReq.responseText Set objXML = Server.CreateObject("Msxml2.DOMDocument") objXML.validateonparse = true objXML.async=false objXML.loadXML(strXML) if objXML.ParseError.errorCode <> 0 then Response.Write("Error: " & objXML.parseError.reason & "
") Response.Write("Code: 0x" & hex(objXML.parseError.errorCode) & "
") Response.Write("At Line: " & objXML.parseError.line & "
") Response.Write("At pos: " & objXML.parseError.linePos & "
") else set objRootElement = objXML.documentElement if not isObject(objRootElement) then Response.Write("no file loaded") else Response.Write(objRootElement.childnodes(0).text) end if end if %>