复制代码 代码如下:<% 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 & "<br>") Response.Write("Code: 0x" & hex(objXML.parseError.errorCode) & "<br>") Response.Write("At Line: " & objXML.parseError.line & "<br>") Response.Write("At pos: " & objXML.parseError.linePos & "<br>") 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 %>
推荐阅读
ASP应用之模板采用
初学ASP,程序是能勉强写出来了,但若每进行一次网站页面的改版,所有的源程序都将进行一次移植手术。为此所耗费的人力精力不计其数,甚至一不小心得不偿失、前功尽弃。所以,梦想着那么大段的程序代码变成几个简单>>>详细阅读
本文标题:利用ASP从远程服务器上接收XML数据的方法
地址:http://www.17bianji.com/kaifa2/ASP/32839.html
1/2 1