快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

利用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
%>
返回类别: 教程
上一教程: 文件删除函数
下一教程: 一个简朴的网上书城的例子(六)

您可以阅读与"利用ASP从远程服务器上接收XML数据"相关的教程:
· 利用ASP发送和接收XML数据的处理方式
· 用XML结合数据库,给服务器减负
· 防护手册:如何防止ASP木马在服务器上运行
· 在不支持FSO的服务器上使用XMLDOM创建HTML文件
· Javascript利用xmlhttp获得服务器时钟的方式
    微笑服务 优质保证 索取样品