コードコピーは次のとおりです。
<％@言語= "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 =何もない