📄 weather.asp
字号:
<!--#include file="Lib/conn.asp"-->
<%
'通过输入的Url目标网页地址分析目标网页Html代码
function getHTTPPage(url)
dim Http
'set Http=server.createobject("MSXML2.XMLHTTP")
set Http=server.createobject("MSXML2.ServerXMLHTTP.3.0")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number<>0 then err.Clear
end function
'转换分析后Html中的代码
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
'查询城市名及返回选择城市时城市ID号
Shi=trim(server.htmlencode(request("Shi")))
set shinamers=server.createobject("ADODB.recordset")
shinamesql="select * from Part2 where value='"&Shi&"'"
shinamers.open shinamesql,tconn,1
ShiName=shinamers("name")
ShiId=shinamers("part1")
'获取天气预报中主要相关信息
if Shi = "" or Shi = "0" then
TErr="缺少必须参数,无法查询天气,请返回!"
else
if left(shi,2) = "TW" then
myurl = "http://cn.weather.yahoo.com/TWXX/"&Shi&"/index_c.html"
else
myurl = "http://cn.weather.yahoo.com/CHXX/"&Shi&"/index_c.html"
end if
Url = myurl
Html = getHTTPPage(Url)
if Html = "" or len(Html) < 500 then
TErr="无法找到网页,查询有误,请与管理员联系!"
else
Temp1 = instr(Html,"今天天气")
Temp3 = instr(Html,"<td valign=top width=100")
if Temp1 > 0 then
Temp2 = instr(Temp1,Html,"<td valign=top align=center>")
if Temp1 =0 or Temp1 < 0 or Temp2 = 0 or Temp2 < 0 or Temp2 < Temp1 then
TErr="无法找到网页,查询有误,请与管理员系统!"
else
Html=mid(Html,Temp1,Temp2-Temp1)
TDate=mid(Html,instr(Html,"今天天气"),4)
TTime=mid(Html,instr(Html,"更新时间"),instr(instr(Html,"更新时间"),Html,"</td>")-instr(Html,"更新时间"))
Img=mid(Html,instr(instr(Html,"<td rowspan=2 align=center valign=middle bgcolor=#eeeeee height=100"),Html,"<img"),instr(instr(Html,"<td rowspan=2 align=center valign=middle bgcolor=#eeeeee height=100"),Html," w")-instr(instr(Html,"<td rowspan=2 align=center valign=middle bgcolor=#eeeeee height=100"),Html,"<img"))&" alt=''/>"
ImgHttp=mid(Img,instr(Img,"http"),instr(Img," a")-instr(Img,"http"))
TGif=right(ImgHttp,6)
if left(TGif,1)="/" then TGif=right(ImgHttp,5)
TWbmp=Replace(TGif,"gif","wbmp")
TImg=Replace(Img,ImgHttp,"'"&"images/"&TWbmp&"'")
TQ=mid(Html,instr(instr(instr(Html,"<td rowspan=2 align=center valign=middle bgcolor=#eeeeee height=100"),Html,"span class=sbody"),Html,">")+1,instr(instr(Html,"<td rowspan=2 align=center valign=middle bgcolor=#eeeeee height=100"),Html,"</span>")-(instr(instr(instr(Html,"<td rowspan=2 align=center valign=middle bgcolor=#eeeeee height=100"),Html,"span class=sbody"),Html,">")+1))
TGw=mid(Html,instr(Html,"最高:"),3)
TGwd=mid(Html,instr(instr(instr(Html,"最高:"),Html," <span class=estitle>"),Html,">")+1,instr(instr(instr(instr(Html,"最高:"),Html," <span class=estitle>"),Html,">"),Html,"<")-(instr(instr(instr(Html,"最高:"),Html," <span class=estitle>"),Html,">")+1))
TDw=mid(Html,instr(Html,"最低:"),3)
TDwd=mid(Html,instr(instr(instr(Html,"最低:"),Html," <span class=estitle>"),Html,">")+1,instr(instr(instr(instr(Html,"最低:"),Html," <span class=estitle>"),Html,">"),Html,"<")-(instr(instr(instr(Html,"最低:"),Html," <span class=estitle>"),Html,">")+1))
TFx=mid(Html,instr(Html,"风向:"),3)
TFxz=mid(Html,instr(instr(instr(Html,"风向:"),Html,"class=sbody"),Html,">")+1,instr(instr(instr(Html,"风向:"),Html,"class=sbody"),Html,"<")-(instr(instr(instr(Html,"风向:"),Html,"class=sbody"),Html,">")+1))
TFl=mid(Html,instr(instr(Html,"风向:"),Html,"风力:"),3)
TFlz=mid(Html,instr(instr(instr(instr(Html,"风向:"),Html,"风力:"),Html,"class=sbody"),Html,">")+1,instr(instr(instr(instr(Html,"风向:"),Html,"风力:"),Html,"class=sbody"),Html,"<")-(instr(instr(instr(instr(Html,"风向:"),Html,"风力:"),Html,"class=sbody"),Html,">")+1))
TDate2=mid(Html,instr(Html,"明天天气"),4)
Img2=mid(Html,instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html," w")-instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"))&" alt=''/>"
ImgHttp2=mid(Img2,instr(Img2,"http"),instr(Img2," a")-instr(Img2,"http"))
TGif2=right(ImgHttp2,6)
if left(TGif2,1)="/" then TGif2=right(ImgHttp2,5)
TWbmp2=Replace(TGif2,"gif","wbmp")
TImg2=Replace(Img2,ImgHttp2,"'"&"images/"&TWbmp2&"'")
TQ2=mid(Html,instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">")+1,instr(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">"),Html,"<")-(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">")+1))
TGw2=mid(Html,instr(instr(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">"),Html,"<"),Html,"最高"),instr(instr(instr(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">"),Html,"<"),Html,"最高"),Html,"<")-instr(instr(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">"),Html,"<"),Html,"最高"))
TFx2=mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">"),Html,"<"),Html,"最高"),Html,"<"),Html,"风向"),instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">"),Html,"<"),Html,"最高"),Html,"<"),Html,"风向"),Html,"<")-instr(instr(instr(instr(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">"),Html,"<"),Html,"最高"),Html,"<"),Html,"风向"))
TFl2=mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">"),Html,"<"),Html,"最高"),Html,"<"),Html,"风向"),Html,"<"),Html,"风力"),instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">"),Html,"<"),Html,"最高"),Html,"<"),Html,"风向"),Html,"<"),Html,"风力"),Html,"<")-instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"明天天气"),Html,"nowrap rowspan=2 bgcolor=eeeeee valign=middle class=sbody>"),Html,"<img"),Html,">"),Html,"<"),Html,"最高"),Html,"<"),Html,"风向"),Html,"<"),Html,"风力"))
end if
else
Temp2=instr(Temp3,Html,"<td valign=top nowrap")
if Temp3=0 or Temp3<0 or Temp2=0 or Temp2<0 or Temp2<Temp3 then
TErr="无法找到网页,查询有误,请与管理员系统!"
else
Html=Replace(mid(Html,Temp3,Temp2-Temp3),"<td valign=top nowrap","")
TDate=mid(Html,instr(Html,"今天"),2)
TDate=Replace(TDate,"今天","今天天气")
TTime="更新时间:"&mid(Html,instr(instr(instr(Html,"今天"),Html,"-2"),Html,">")+1,instr(instr(instr(instr(Html,"今天"),Html,"-2"),Html,">"),Html," ")-instr(instr(instr(Html,"今天"),Html,"-2"),Html,">")-1)
Img=mid(Html,instr(instr(Html,"#eeeeee"),Html,"<img"),instr(instr(instr(Html,"#eeeeee"),Html,"<img"),Html," w")-instr(instr(Html,"#eeeeee"),Html,"<img"))&" alt=''/>"
ImgHttp=mid(Img,instr(Img,"http"),instr(Img," a")-instr(Img,"http"))
TGif=right(ImgHttp,6)
if left(TGif,1)="/" then TGif=right(ImgHttp,5)
TWbmp=Replace(TGif,"gif","wbmp")
TImg=Replace(Img,ImgHttp,"'"&"images/"&TWbmp&"'")
TQ=mid(Html,instr(instr(instr(instr(instr(Html,"#eeeeee"),Html,"<img"),Html," w"),Html,"face"),Html,">")+1,instr(instr(instr(instr(instr(instr(Html,"#eeeeee"),Html,"<img"),Html," w"),Html,"face"),Html,">"),Html,"<")-(instr(instr(instr(instr(instr(Html,"#eeeeee"),Html,"<img"),Html," w"),Html,"face"),Html,">")+1))
TGw=Replace(mid(Html,instr(Html,"高"),1),"高","最高:")
TGwd=mid(Html,instr(instr(instr(Html,"高"),Html,"b"),Html,">")+1,instr(instr(instr(instr(Html,"高"),Html,"b"),Html,">"),Html,"<")-(instr(instr(instr(Html,"高"),Html,"b"),Html,">")+1))
TDw=Replace(mid(Html,instr(Html,"低"),1),"低","最低:")
TDwd=mid(Html,instr(instr(instr(Html,"低"),Html," "),Html,";")+1,instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<")-(instr(instr(instr(Html,"低"),Html," "),Html,";")+1))
if int(instr(Html,"风力"))<>0 then
TFx=Replace(mid(Html,instr(Html,"风力"),2),"风力","风力:")
TFxz=mid(Html,instr(instr(instr(Html,"风力"),Html,"1"),Html,">")+1,instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<")-(instr(instr(instr(Html,"风力"),Html,"1"),Html,">")+1))
TDate2=Replace(mid(Html,instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1,instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<")-(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1)),mid(Html,instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1,instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<")-(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1)),"明天天气")
Img2=mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w")-instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"))&" alt=''/>"
ImgHttp2=mid(Img2,instr(Img2,"http"),instr(Img2," a")-instr(Img2,"http"))
TGif2=right(ImgHttp2,6)
if left(TGif2,1)="/" then TGif2=right(ImgHttp2,5)
TWbmp2=Replace(TGif2,"gif","wbmp")
TImg2=Replace(Img2,ImgHttp2,"'"&"images/"&TWbmp2&"'")
TQ2=mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"face"),Html,">")+1,instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"face"),Html,">"),Html,"<")-(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"face"),Html,">")+1))
TGw2=Replace(mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"face"),Html,">"),Html,"<"),Html,"高"),instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"face"),Html,">"),Html,"<"),Html,"高"),Html,"<")-instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"face"),Html,">"),Html,"<"),Html,"高")),"高 ","最高:")&"°"
TDw2=Replace(mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"face"),Html,">"),Html,"<"),Html,"低"),instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"face"),Html,">"),Html,"<"),Html,"低"),Html,"<")-instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"风力"),Html,"1"),Html,">"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"face"),Html,">"),Html,"<"),Html,"低")),"低 ","最低:")&"°"
else
TTime="更新时间:未知"
TDate2=Replace(mid(Html,instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1,instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<")-(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1)),mid(Html,instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1,instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<")-(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1)),"明天天气")
Img2=mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w")-instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"))&" alt=''/>"
ImgHttp2=mid(Img2,instr(Img2,"http"),instr(Img2," a")-instr(Img2,"http"))
TGif2=right(ImgHttp2,6)
if left(TGif2,1)="/" then TGif2=right(ImgHttp2,5)
TWbmp2=Replace(TGif2,"gif","wbmp")
TImg2=Replace(Img2,ImgHttp2,"'"&"images/"&TWbmp2&"'")
TQ2=mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">")+1,instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">"),Html,"<")-(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">")+1))
TGw2=Replace(mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">"),Html,"<"),Html,"高"),instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">"),Html,"<"),Html,"高"),Html,"<")-instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">"),Html,"<"),Html,"高")),"高 ","最高:")&"°"
TDw2=Replace(mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">"),Html,"<"),Html,"低"),instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">"),Html,"<"),Html,"低"),Html,"<")-instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html," "),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">"),Html,"<"),Html,"低")),"低 ","最低:")&"°"
end if
end if
end if
end if
end if
'Response.write TDate&" "&TTime&"<br>"&TImg&" "&TGif&" "&TQ&"<br>"&TGw&TGwd&" "&TDw&TDwd&" "&TFx&" "&TFxz&" "&TFl&" "&TFlz&"<br><br>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -