<%if request("submit")="提交" then Server.ScriptTimeOut=300 Function getHTTPPage(url) on error resume next dim http set http=Server.createobject("Microsoft.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytes2BSTR(Http.responseBody) set http=nothing if err.number<>0 then err.Clear End function Const adTypeBinary = 1 Const adTypeText = 2 Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") '建立一个流对象 With BytesStream .Type = adTypeText .Open .WriteText vin .Position = 0 .Charset = "GB2312" .Position = 2 StringReturn = .ReadText .close End With Set BytesStream = Nothing Bytes2bStr = StringReturn End Function s=request("s") c=request("c") if not(s="1" or s="2") then response.end if s="1" then url="http://weather.news.qq.com/inc/07_dc"+c+".htm" if s="2" then url="http://weather.news.qq.com/inc/07_fdc"+c+".htm" content=getHTTPPage(url) start=instr(content,"") content=mid(content,start,ends-start) content=replace(content," 天气预报查询，全国各地、世界各地天气预报查询
　→ 首页 >> 天气预报查询 收藏本站 设为首页 更多实用查询

全国各地天气预报查询
省份 市
  北京天气预报　天津天气预报　上海天气预报　重庆天气预报　广州天气预报　
南京天气预报　深圳天气预报　沈阳天气预报　武汉天气预报　成都天气预报　
长春天气预报　兰州天气预报　西安天气预报　西宁天气预报　哈尔滨天气预报　
郑州天气预报　济南天气预报　银川天气预报　太原天气预报　呼和浩特天气预报　
合肥天气预报　长沙天气预报　贵阳天气预报　昆明天气预报　乌鲁木齐天气预报　
杭州天气预报　拉萨天气预报　南宁天气预报　南昌天气预报　石家庄天气预报　
福州天气预报　海口天气预报　台北天气预报　香港天气预报　澳门天气预报　

<%if s="1" then response.write content%>

世界各地天气预报查询
洲 市

<%if s="2" then response.write content%>

友
情
链
接
 天气预报 繁体字 繁体字转换工具 天气预报 软件下载 下载软件 驱动之家 破解软件下载 qq下载 珠江路在线 购物街 免费电影院 天空软件
天空软件站 华军软件园 天空软件园 迅雷下载 迅雷软件下载 华军软件 杀毒软件 免费下载 免费下载 驱动之家 驱动下载 声卡驱动
驱动精灵 万能驱动下载 万能声卡驱动 万能驱动 显卡驱动 万能摄像头驱动 驱动程序 电驴 瑞星杀毒软件 卡巴斯基杀毒软件
在线电影 最新电影下载 手机电影下载 3gp电影下载 高清电影 在线看电影 MP4电影下载 免费杀毒软件 免费电影下载