Function GetWeatherHTML()
Dim XmlDoc,XmlList,tempData,xmlData,MaxTemperature,MinTemperature,WeatherICO,tempNum,tempDate
Set XmlDoc = Server.CreateObject("Msxml.DOMDocument")
XmlDoc.async = false
XmlDoc.setProperty "ServerHTTPRequest", true
GetWeatherHTML = ""
if xmlDoc.load(WeatherFile) then
Set XmlList = xmlDoc.selectSingleNode("//dayf")
if not isNull(XmlList) then
if XmlList.childNodes.item(0).nodeName="lsup" then
if DateDiff("d",CDate(tempDate),now())=0 then
For i=1 To XmlList.childNodes.length
if XmlList.childNodes.item(i).nodeName="day" then
if XmlList.childNodes.item(i).getAttribute("d")="0" then
Set xmlData = XmlList.childNodes.item(i).childNodes
if not isNull(xmlData) then
MaxTemperature = xmlData.item(0).text
if IsNumeric(MaxTemperature) Then
MaxTemperature = (Clng(MaxTemperature)-32)*5\9
end if
MinTemperature = xmlData.item(1).text
if IsNumeric(MinTemperature) Then
MinTemperature = (Clng(MinTemperature)-32)*5\9
end if
WeatherICO = xmlData.item(4).childNodes.item(0).text
GetWeatherHTML = "<br><br><table width=" & 140 + MarginWidth & "><tr><td align=center>天气情况</td><td align=center>最低温度</td><td align=center>最高温度</td></tr><tr><td align=center><img src=""/PublicFunction/Weather/" & WeatherICO & ".gif"" border=0 align=absbottom></td><td align=center>" & MinTemperature & "℃</td><td align=center>" & MaxTemperature & "℃</td></tr></table>"
end if
Exit For
end if
end if
next
end if
end if
end if
end if
end if
end Function
'获取天气预报
Set fso = CreateObject("Scripting.FileSystemObject")
WeatherFile = Server.MapPath("/User_Data/Weather.XML")
if Not fso.FileExists(WeatherFile) Then
GetWeatherXML()
End If
if fso.FileExists(WeatherFile) Then
tempData = GetWeatherHTML()
if tempData="" Then
GetWeatherXML()
tempData = GetWeatherHTML()
end if
Response.Write tempData
end if