<% 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 %> 注意:联系我时,请一定说明是从【S】看到的信息,谢谢。 |
联系电话: 联系 QQ: 打电话给我、或者加QQ好友时,请一定说明来自(三亚上门维修电脑)谢谢您! 三亚上门维修电脑 | 编辑: