拍拍尘土

<?xml version="1.0" encoding="utf-8" ?>

- <urlset>
- <url>
     <loc>http://www.totcms.com/team.php?id=9</loc>
- <data>
- <display>
     <website>totcms</website>
     <siteurl>http://www.totcms.com</siteurl>
     <city>全国</city>
     <title>卖疯啦！超推荐之Dior史上最佳睫毛膏！36元抢购迪奥BlackOut后台炫黑睫毛膏！内含古埃及艳后专用睫毛碳粉，超黑妆效，极致惊艳埃及艳后的惊艳妆效你真的可以轻松拥有</title>
     <image>http://www.totcms.com/static/team/2010/1118/12900802148912.jpg</image>
     <startTime>1290441600</startTime>
     <endTime>1290528000</endTime>
     <value>360.00</value>
     <price>36.00</price>
     <rebate>1</rebate>
     <bought>355</bought>
     </display>
     </data>
     </url>
</urlset>

   function GetTgXml(tgapiurl)
   on error resume next
   dim xmlhttp,xmlDom,t_sitetitle,t_title,t_url,t_img,t_start,t_end,t_priceold,t_pricenow,t_joined,t_days,gethtmls
   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)
   if xmlDom.ReadyState>2 Then
     Set list=xmlDom.getElementsByTagName("url")
     if(list.Length>0) then
       t_sitetitle=list.Item(list.Length-1).selectSingleNode("data/display/website").text
       t_title=list.Item(list.Length-1).selectSingleNode("data/display/title").text
       t_url=list.Item(list.Length-1).selectSingleNode("loc").text
       t_url="go.asp?u="&server.URLEncode(t_url)
       t_img=list.Item(list.Length-1).selectSingleNode("data/display/image").text
       t_start=list.Item(list.Length-1).selectSingleNode("data/display/startTime").text
       t_end=list.Item(list.Length-1).selectSingleNode("data/display/endTime").text
       t_priceold=list.Item(list.Length-1).selectSingleNode("data/display/value").text
       t_pricenow=list.Item(list.Length-1).selectSingleNode("data/display/price").text
       t_joined=list.Item(list.Length-1).selectSingleNode("data/display/bought").text
       gethtmls=gethtmls&"<li><div class=""tgimg""><a href="""&t_url&""" target=""_blank""><img src="""&t_img&""" alt="""&t_title&""" width=""336"" height=""212"" border=""0"" /></a></div>"
       gethtmls=gethtmls&"<div class=""tgtitle""><h2>["&t_sitetitle&"]<a href="""&t_url&""" target=""_blank"" title="""&t_title&""">"&t_title&"</a></h2></div>"
       gethtmls=gethtmls&"<div class=""tgprice"">原价：<span class=""oldprice"">"&t_priceold&"</span> 现价：<span class=""nowprice"">"&t_pricenow&"</span> 参加人数："&t_joined&"</div><div class=""days"">剩余时间：<label class=""exptime_tip"" style=""display:none"">"&t_end&"</label><label>&nbsp;</label></div></li>"
     end if
   end if
   set xmlDom=nothing
   set xmlhttp=nothing
   GetTgXml=gethtmls
end function