【IT168 服务器学院】<%
　　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
　　%>