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
asp 读xml
最新推荐文章于 2017-01-06 11:51:33 发布