コードコピーは次のとおりです。
<%@言語= "vbscript" codepage = "936"%>
<%
'-----------------------------------------
'プログラム名:青い空間の天気泥棒
'プログラミング:ポニー
'QQ:55100100
'ウェブサイト:http://www.bluespace.cn(青いスペース)
'日付:2005-11-15
'-----------------------------------------
Dimstrarray(9,2)、Areaid
strarray(1,0)= "index.htm"
Strarray(1,1)=「北中国地域」
Strarray(2,0)= "Hd.htm"
Strarray(2,1)= "East China"
strarray(3,0)= "hn.htm"
Strarray(3,1)=「南中国地域」
Strarray(4,0)= "Hz.htm"
Strarray(4,1)=「中国中央地域」
strarray(5,0)= "db.htm"
Strarray(5,1)=「北東地域」
strarray(6,0)= "xb.htm"
Strarray(6,1)=「北西地域」
strarray(7,0)= "xn.htm"
Strarray(7,1)=「南西地域」
strarray(8,0)= "ga.htm"
Strarray(8,1)=「香港、マカオ、台湾」
areaid = request.querystring
ifareaid = "" thenareaid = 1
subgetPage()
dimstrurl、strtmp、strtmp1
strurl = "http://weather.265.com/"&strarray(areaid、0)
strtmp = gethttppage(strurl)
strtmp1 = strcut(strtmp、 "<tablewidth =" "750" "border =" "" cellpadding = "" "cellpacing =" "1" "bgcolor =" "4952bc" "
strtmp1 = "<tablewidth =" "750" "border =" "" "cellpadding =" "2" "cellpacing =" "" bgcolor = "" 4952bc ""> "&strtmp1
strtmp1 =置換(strtmp1、 "width =" "750" ""、 "width = '760'align =' center '")
strtmp1 =置換(strtmp1、 "bgcolor =" "4952bc" "" "、" bgcolor = '#cccccc' ")
strtmp1 =置換(strtmp1、 "bgcolor =" "#e4f0f8" "、" bgcolor = '#ffffff'onmouseOver = "" sbar(this) "" "onmouseout =" "cbar(this)" "" ")
strtmp1 = "<! - 生成時間:"&now()& " - >"&vbcrlf&strtmp1
Response.writestrtmp1
Endingub
functiongethttppage(url)
onerrorresumenext
dimhttp
setthttp = server.createObject( "microsoft.xmlhttp")
http.open "get"、url、false
http.send()
ifhttp.ReadyState <> 4then
exitFunction
endif
gethttppage = bytestobstr(http.responsebody、 "gb2312")
setthttp =何もない