復制代碼 代碼如下:<% 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 %>
