asp 读xml

最新推荐文章于 2017-11-15 22:14:00 发布

lsfa1234

最新推荐文章于 2017-11-15 22:14:00 发布

阅读量477

点赞数

本文链接：https://blog.csdn.net/lsfa1234/article/details/6263874

版权

asp and xml 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET",tgapiurl, false
xmlhttp.Send
Set xmlDom = server.createObject("microsoft.xmldom")
' xmlDom.async=False
xmlDom.ValidateOnParse=false
'xmlDom.load(xmlhttp.responseXML)
XmlDom.loadXml(xmlhttp.responseText)
j=0
Do While j<29
didian=arr_addr(j)
on error resume next
set xinnodes= xmlDom.selectSingleNode("//display[city='"&didian&"']")
   url1=xmlDom.selectSingleNode("//display[city='"&didian&"']").ParentNode.ParentNode.childNodes(0).text
    if err then
err.clear
else
   t_sitetitle =xinnodes.selectSingleNode("website").text
   t_title=xinnodes.selectSingleNode("title").text
   t_url=url1
   t_img=xinnodes.selectSingleNode("image").text
   t_start=xinnodes.selectSingleNode("startTime").text
   t_end=xinnodes.selectSingleNode("endTime").text
   t_priceold=xinnodes.selectSingleNode("value").text
   t_pricenow=xinnodes.selectSingleNode("price").text
    t_rebatenow=xinnodes.selectSingleNode("rebate").text
   t_joined=xinnodes.selectSingleNode("bought").text