<?xml version="1.0" encoding="GBK"?>
<root>
<weather c="连云港" city="58044" qx="阴转晴" wd="-7℃～-2℃" fl="6～7级" qximg="02.gif,00.gif" lk="1级 干燥 晴天，虽然天气有点凉，但其它条件适宜，路面比较干燥，路况较好。 "/>
</root>
 
-->
<%
  url = "http://www.163.com/weatherxml/58044.xml"  ' 58044 是连云港相对应的天气预报码  
  Set http=Server.CreateObject("Microsoft.XMLHTTP")  
  http.Open "GET",url,False  
  http.send  
  Set xml=Server.CreateObject("Microsoft.XMLDOM")  
  xml.Async=true  
  xml.ValidateOnParse=False  
  xml.Load(http.ResponseXML)    
  If xml.ReadyState>2 Then  
  Response.Write("文档已经准备就绪。状态："&   xml.ReadyState   &"<br>") '这句可不加
  set res = xml.selectSingleNode("//weather")
    
  Response.Write res.getAttribute("c")
  Response.Write "&nbsp;&nbsp;"
  Response.Write res.getAttribute("wd")
  Response.Write "&nbsp;&nbsp;"
  Response.Write res.getAttribute("qx")
  Response.Write "&nbsp;&nbsp;"
  Response.Write res.getAttribute("fl")
  Response.Write "&nbsp;&nbsp;"
 
  tqimg = split(res.getAttribute("qximg"),",") '以下为显示天气小图标
  if tqimg(0) <> "" then
   Response.Write "<img src='http://news.163.com/img/logo/"& tqimg(0) &"'>"
  elseif tqimg(1) <> "" then
   Response.Write "<img src='http://news.163.com/img/logo/"& tqimg(1) &"'>"
  else
   response.Write ""
  end if 
  Response.Write "<br>"
 
End if