ASP获取json天气信息

ASP代码（ASP获取页面源码方法，有编码、超时时间参数，处理了乱码、超时的问题）：

Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or Len(HttpUrl)<5 Then
GetHttpPage="$False$"
Exit Function
End If
Dim Http
'Set Http=server.createobject("MSXML2.XMLHTTP")
Set Http=server.createobject("MSxml2.ServerxmlHTTP") 
Http.SetTimeOuts 2000,2000,2000,2000
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing 
GetHttpPage="False"
Exit function
End if
GetHTTPPage=BytesToBstr(Http.responseBody,"UTF-8")
Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function


Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText 
objstream.Close
set objstream = nothing
End Function

ASP方法使用(从m.weather.com.cn获取上海天气json数据)：

<%
html=GetHttpPage("http://m.weather.com.cn/data/101020100.html")
'response.write(html)
%>

JS脚本将获取的数据追加到页面显示（用到了ASP和jQuery）

<script type="text/javascript">
    var weather=eval(<%=html%>);
    var htmlInfo="";
    var dateVal="<%=year(now()) %>年<%=month(now()) %>月<%=day(now()) %>日";

    if(weather!=undefined)
    {
        if(dateVal!=weather.weatherinfo.date_y)
        {
            htmlInfo="暂时无法获取最新上海天气数据&nbsp;";
        }
        else
        {
            htmlInfo=weather.weatherinfo.date_y+"&nbsp;"+
                    weather.weatherinfo.week+
                    "&nbsp;上海天气&nbsp;"+weather.weatherinfo.img_title1+
                    "&nbsp;气温"+weather.weatherinfo.temp1+"&nbsp;"+
                    weather.weatherinfo.wind1+"&nbsp;"+
                    "紫外线“"+weather.weatherinfo.index_uv+"”&nbsp;"+
                    weather.weatherinfo.index_d;
        }
    }
    else
    {
        htmlInfo="暂时无法获取上海天气数据&nbsp;"   
    }
    $("#weatherSpan").html(htmlInfo);
</script>

参考：

asp获取网页源码函数

中国国家气象局天气预报信息接口

之后做的调整：

1. GetHttpPage方法中SetTimeOuts 2000,2000,2000,2000是后来补充的，设置了超时时间。

同时原Set Http=server.createobject("MSXML2.XMLHTTP")也改成了Set Http=server.createobject("MSxml2.ServerxmlHTTP")。

参数说明参考：http://www.zzsky.cn/build/content/1427.htm

2. 原weather.weatherinfo!=undefined的判断也不对，已经更新成weather!=undefined。

3. 增加ASP缓存处理，缓存天气信息：

ASP缓存关键代码（使用的Application，所以是全局共享缓存——参考）：

CONST_CACHE_DEFAULT_INTERVAL = 3600 '每隔1小时刷新一次cache

Function IsExpires(cacheName) 
    Dim strLastUpdate 
    strLastUpdate= Application(cacheName & "_LastUpdate")
    If ((strLastUpdate = "") Or (CONST_CACHE_DEFAULT_INTERVAL < DateDiff("s", strLastUpdate, Now))) Then 
        ClearCacheData cacheName
        IsExpires=true
    Else 
        IsExpires=false 
    End If
End Function 

Sub ClearCacheData(cacheName) 
    Application.Lock 
    Application(cacheName) = "" 
    Application(cacheName & "_LastUpdate") = "" 
    Application.UnLock 
End Sub

Sub SetCacheData(cacheName,content) 
    Application.Lock 
    Application(cacheName) = content
    Application(cacheName & "_LastUpdate") = CStr(now()) 
    Application.UnLock 
End Sub 

Function GetCacheData(cacheName) 
    If (IsExpires(cacheName)) Then 
        ClearCacheData cacheName
    End If 
    GetCacheData=Application(cacheName) 
End Function

使用：

JS转json的方法：

<script language="JScript" runat="Server">
function toObject(json) 
{
    eval("var o=" + json);
    return o;
}
</script>

vbscript代码（增加了是否是当天天气的判断，使用js的方法处理json）：

htmlWeather=GetCacheData("htmlWeatherInfo")
if(htmlWeather="") then
    htmlWeather=GetHttpPage("http://113.108.239.107/data/101020100.html")'http://m.weather.com.cn/data/101020100.html
    SetCacheData "htmlWeatherInfo",htmlWeather
    'response.Write Application("htmlWeatherInfo_LastUpdate")
else
    objVal=toObject(htmlWeather)
    if objVal<>"" and objVal.weatherinfo.date_y<>(year(now())&"年"&month(now())&"月"&day(now())&"日") then
        htmlWeather=GetHttpPage("http://113.108.239.107/data/101020100.html")'http://m.weather.com.cn/data/101020100.html
        SetCacheData "htmlWeatherInfo",htmlWeather 
    end if
    'response.Write toObject(htmlWeather).weatherinfo.date_y
    'response.Write Application("htmlWeatherInfo_LastUpdate")
end if

4.如果出现http://m.weather.com.cn/data/101020100.html在实际环境无法访问可尝试换成IP地址的URL：http://113.108.239.107/data/101020100.html

5.其他天气接口页面：

http://m.weather.com.cn/m/pn1/weather.htm?id=101200101T 这个链接有15种不同格式的，从pn1到pn15，ID是需要查询的那个城市的代码（城市代码参考：中国国家气象局天气预报信息接口）

http://m.weather.com.cn/m/pn1/weather.htm 这个链接有15种不同格式的，从pn1到pn15

http://m.weather.com.cn/m/p1/weather1.htm 这个链接有13种不同格式的，从p1到p13

http://m.weather.com.cn/n/pn1/weather.htm 这个链接有14种不同格式的，从pn1到pn14

http://www.weather.com.cn/static/custom/custom.html 这个链接可以同时显示多个城市的天气