Salinan kode adalah sebagai berikut:
<%@Language = "vbscript" codepage = "936"%>
<%
'------------------------------
'Nama Program: Pencuri Cuaca Luar Angkasa Biru
'Pemrograman: kuda poni
'QQ: 55100100
'Situs web: http://www.bluespace.cn (ruang biru)
'Tanggal: 2005-11-15
'------------------------------
Dimstrarray (9,2), AreaD
Strarray (1,0) = "index.htm"
Strarray (1,1) = "Wilayah Cina Utara"
Strarray (2,0) = "hd.htm"
Strarray (2,1) = "Cina Timur"
Strarray (3,0) = "hn.htm"
Strarray (3,1) = "Wilayah Cina Selatan"
Strarray (4,0) = "hz.htm"
Strarray (4,1) = "Wilayah Tiongkok Tengah"
Strarray (5,0) = "db.htm"
Strarray (5,1) = "Wilayah Timur Laut"
Strarray (6,0) = "xb.htm"
Strarray (6,1) = "Wilayah Barat Laut"
Strarray (7,0) = "xn.htm"
Strarray (7,1) = "Wilayah Barat Daya"
Strarray (8,0) = "ga.htm"
Strarray (8,1) = "Hong Kong, Macao dan Taiwan"
AreaD = request.QueryString
Ifareaid = "" thenareAiD = 1
Subgetpage ()
Dimstrurl, strtmp, strtmp1
strurl = "http://weather.265.com/" & Strarray (AreaD, 0)
strtmp = getHttppage (strurl)
strtmp1 = strcut (strtmp, "<tableWidth =" "750" "border =" "0" "cellpadding =" "2" "cellpacing =" "1" "bgcolor =" "4952bc" ">," <scriptLanguage = "" Javascript "" ", 2), 2)")
strtmp1 = "<tableWidth =" "750" "border =" "0" "cellpadding =" "2" "cellpacing =" "1" "bgcolor =" "4952bc" ">" & strtmp1
strtmp1 = ganti (strtmp1, "width =" "750" "", "width = '760'align =' center '")
strtmp1 = ganti (strtmp1, "bgcolor =" "4952bc" "", "bgcolor = '#cccccc'")
strtmp1 = ganti (strtmp1, "bgcolor =" "#e4f0f8" "," bgcolor = '#ffffff'onmouseover = "" sbar (ini) "" "onmouseout =" "cbar (ini)" ")
strtmp1 = "<!-Waktu generasi:" & sekarang () & "->" & vbcrlf & strtmp1
Response.writeStrtmp1
Endsub
FunctionGetHttppage (URL)
OnerrorresumeNext
DIMHTTP
setthttp = server.createObject ("microsoft.xmlhttp")
Http.open "get", url, false
Http.send ()
ifhttp.readystate <> 4then
fungsi keluar
endif
getHttppage = bytestoBstr (http.responseBody, "GB2312")
setthttp = tidak ada