国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

利用ASP從遠程服務器上接收XML數據

2019-11-18 21:04:38
字體：大 中 小
來源：轉載
供稿：網友
<%
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
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 竹溪县| 蒲江县| 瓦房店市| 兴海县| 柏乡县| 井陉县| 安顺市| 双鸭山市| 大埔区| 宜章县| 泰宁县| 陵川县| 花垣县| 松阳县| 池州市| 英吉沙县| 民丰县| 沾益县| 紫金县| 巨野县| 民和| 从化市| 射阳县| 赤水市| 青龙| 自治县| 磐石市| 荥经县| 吉林市| 新营市| 铁岭县| 汝南县| 杨浦区| 昌吉市| 嫩江县| 临夏县| 玉树县| 贵定县| 苏州市| 莱西市| 永和县|