国产探花免费观看_亚洲丰满少妇自慰呻吟_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
%>

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

圖片精選

主站蜘蛛池模板： 策勒县| 舞阳县| 东宁县| 康定县| 永宁县| 治县。| 酉阳| 兴山县| 台北市| 凤凰县| 关岭| 黎城县| 沈阳市| 彭泽县| 应城市| 邵阳市| 江北区| 株洲县| 成武县| 滁州市| 安康市| 德庆县| 门源| 海盐县| 高雄市| 静安区| 崇文区| 隆化县| 延津县| 健康| 新野县| 定南县| 水富县| 凉山| 嘉定区| 崇礼县| 榆林市| 博野县| 会昌县| 防城港市| 泉州市|