Кода -копия выглядит следующим образом:
<%@Language = "vbscript" codepage = "936"%>
<%
'-------------------------------
«Имя программы: голубая погода воры
'Программирование: пони
QQ: 55100100
'Веб -сайт: http://www.bluespace.cn (Blue Space)
Дата: 2005-11-15
'-------------------------------
DimStrarray (9,2), Areaid
Strarray (1,0) = "index.htm"
Strarray (1,1) = "регион Северного Китая"
Strarray (2,0) = "hd.htm"
Strarray (2,1) = "Восточный Китай"
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 =" "0" "cellpadding =" "2" "" 750 "" border = "" 0 "" cellpadding = "" 2 "" cellpacing = "" 1 "" bgcolor = "" 4952bc ""> "," <scriptlanguage = "" javascript ">", 2)
strtmp1 = "<tablewidth =" "750" "border =" "0" "cellpadding =" "2" "cellpacing =" "1" "bgcolor =" "4952bc" ">" & strtmp1
strtmp1 = replace (strtmp1, "width =" "750" "", "width = '760'align =' center '")
strtmp1 = reply (strtmp1, "bgcolor =" "4952bc" "", "bgcolor = '#cccccc'")
strtmp1 = reply (strtmp1, "bgcolor =" "#e4f0f8" "," bgcolor = '#ffffff'onmouseover = "" sbar (this) "" onmouseout = "" cbar (this) "")
strtmp1 = "<!-время поколения:" & own () & "->" & vbcrlf & strtmp1
Response.writestrtmp1
Заканчивая
Functiongethttppage (url)
OnerRorResumenext
Dimhttp
SETTHTTP = server.createObject ("microsoft.xmlhttp")
Http.open "Get", url, false
Http.send ()
ifhttp.readystate <> 4then
Выходная функция
эндиф
gethttppage = bytestobstr (http.responsebody, "gb2312")
SETTHTTP = ничего