代碼如下:

<%  
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  
%>