1. 爱易网页
  2. XML教程
  3. 应用ASP从远程效劳器上接纳XML数据的方法

应用ASP从远程效劳器上接纳XML数据的方法

日期：2014-04-07　 浏览次数：21036 次

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

相关资料更多>

  1. XML Schema帮你建模（4）
  2. 如何用ASP生成XML数据文档（RSS订阅）
  3. XML、Web效劳和.NET框架(1)
  4. 异步伐用xml web service
  5. 跟我学XSL（三）
  6. XML学习：应当如何运用XML言语
  7. 用XML数据岛处置用户界面效果 - 1
  8. XML罕见效果
  9. 获取mssql的xml前往结构的方法