Js 获取“中国天气”网天气
QQ天气预报不准确，因此就从中国天气网上获取数据。中国天气网网址：
在该网页最上方有一个查询功能，在里面输入城市名称，比如无锡，网页重定向到：
http://www.weather.com.cn/html/weather/101190201.shtml?
该网址中的101190201便是无锡的城市代号，获取到这个号码后，便打开网址：
http://m.weather.com.cn/data/101190201.html
该页面中显示的便是无锡市的天气情况核心数据，我们可以通过解析该数据而获取到当天及今后7天的气温、天气、风向等气象信息。如果要获取别的城市天气，只需修改该网址中的城市代号即可。
该网页显示内容如下：
{"weatherinfo":{"city":"无锡","city_en":"wuxi","date_y":"
其中粉红色部分是气温数据，temp1表示当天气温是12-4℃，temp2表示第二天的气温，以此类推；蓝色部分是天气情况，weather1表示当天天气是小雨转阴，weather2表示第二天的天气，以此类推；棕色部分是风向和风力数据，wind1表示当天的风向和风力，wind2表示第二天的风向和风力，以此类推。这些数据完全可以通过js解析字符串而得到，解析代码见下文。
在程序中获取这段数据，只需获取到http://m.weather.com.cn/data/101190201.html这个网页的内容即可，因此必须使用到ajax技术；同时在自己的空间访问中国天气网站，属于跨域请求，而ff或safari不支持跨域请求，因此只能通过具备远程访问能力的中间件，比如vbscript、java、php或c#，即只能通过服务器来远程访问该网页，获取到网页内容后，再由ajax访问自己站上的中间件获取到天气数据并通过js解析。
下面的代码以asp为例：
Remote.asp内容如下(这段代码是利用vbscript访问远程服务器，并获取网页内容)：
<%
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXml2.XmlHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
else
If Http.status=200 Then
'response.write replace(BytesToBstr(http.responseBody,"gb2312"),chr(10),"")
End If
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"UTF-8")
'getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
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
Dim Url,Html,Usg,id
id=Request("id")
Url="http://m.weather.com.cn/data/101190201.html"
Html = getHTTPPage(Url)
response.Charset="GB2312"
Response.write Html
'此代码修改自http://www.stubc.com/thread-
%>
下面是wea.js中的内容(这段代码是利用ajax异步请求remote.asp，获取到天气情况，并利用js解析数据)：
// JavaScript Document
//id是呈现天气内容的div或span
var Weather = function(id){
var http_request = null;
function send_request(url, method) {
http_request = null;
if(window.XMLHttpRequest) { //Mozilla 浏览器
http_request = new XMLHttpRequest();
if (http_request.overrideMimeType) {//设置MiME类别
http_request.overrideMimeType('text/xml');
}
} else if (window.ActiveXObject) { // IE浏览器
try {
http_request = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
http_request = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e) {}
}
}
if (!http_request) { // 异常，创建对象实例失败
window.alert("不能创建XMLHttpRequest对象实例.");
return false;
}
http_request.onreadystatechange = method;
http_request.open("GET", url, true);
http_request.send(null);
}
var url = "remote.asp?timestampt=" + new Date();
send_request(url, callbackGetSource);
function callbackGetSource(){
if (http_request.readyState == 4) {
if (http_request.status == 200) {
var tem = http_request.responseText
var wea = analyze(tem);
if(wea != null){
var node = document.getElementById(id);
node.innerHTML = wea.temp + " " + wea.weather + " " + wea.wind;
}
} else { //页面不正常
alert("您所请求的页面有异常。");
}
}
}
function analyze(tem){
if(tem == null)return null;
var temp, weather, wind
temp = getValue(tem, "temp1");
weather = getValue(tem, "weather1");
wind = getValue(tem, "wind1");
return {temp: temp, weather: weather, wind: wind};
}
function getValue(info, prmName){
var len = prmName.length;
var dex = info.indexOf(prmName);
var tem = info.substring(dex + len + 3);
dex = tem.indexOf('"');
return tem.substring(0, dex);
}
}
下面是html页面：
<script src="../js/wea.js" type="text/javascript"></script>
<div class="loginfont1" id="weather_content">晴 北风4-5级 湿度：41%</div>
<script language="javascript">
new Weather("weather_content");
</script>