⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 weather.asp

📁 天气预报的一个简单wap程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#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,"&nbsp;<span class=estitle>"),Html,">")+1,instr(instr(instr(instr(Html,"最高:"),Html,"&nbsp;<span class=estitle>"),Html,">"),Html,"<")-(instr(instr(instr(Html,"最高:"),Html,"&nbsp;<span class=estitle>"),Html,">")+1))
				TDw=mid(Html,instr(Html,"最低:"),3)
				TDwd=mid(Html,instr(instr(instr(Html,"最低:"),Html,"&nbsp;<span class=estitle>"),Html,">")+1,instr(instr(instr(instr(Html,"最低:"),Html,"&nbsp;<span class=estitle>"),Html,">"),Html,"<")-(instr(instr(instr(Html,"最低:"),Html,"&nbsp;<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,"&nbsp"),Html,";")+1,instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),Html,";"),Html,"<")-(instr(instr(instr(Html,"低"),Html,"&nbsp"),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,"高")),"高&nbsp;","最高:")&"&#176;"
					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,"低")),"低&nbsp;","最低:")&"&#176;"
				else
					TTime="更新时间:未知"
					TDate2=Replace(mid(Html,instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1,instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<")-(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1)),mid(Html,instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1,instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<")-(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">")+1)),"明天天气")
					Img2=mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w")-instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),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,"&nbsp"),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,"&nbsp"),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,"&nbsp"),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,"&nbsp"),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,"&nbsp"),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,"&nbsp"),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">"),Html,"<"),Html,"高")),"高&nbsp;","最高:")&"&#176;"
					TDw2=Replace(mid(Html,instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(instr(Html,"低"),Html,"&nbsp"),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,"&nbsp"),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,"&nbsp"),Html,";"),Html,"<"),Html,"ffcc33"),Html,"b"),Html,">"),Html,"<"),Html,"<img"),Html," w"),Html,"-2"),Html,">"),Html,"<"),Html,"低")),"低&nbsp;","最低:")&"&#176;"
				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 + -