VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 网站开发 > ASPnet >
  • asp.net教程之利用ASP从远程服务器上接收XML数据

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

相关教程