การคัดลอกรหัสมีดังนี้:
<%@language = "vbscript" codePage = "936"%>
-
-
'ชื่อโปรแกรม: Blue Space Weather ขโมย
'การเขียนโปรแกรม: ม้า
'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) = "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) = "ฮ่องกง, มาเก๊าและไต้หวัน"
พื้นที่ = request.querystring
ifareaid = "" thingareaid = 1
SubgetPage ()
Dimstrurl, strtmp, strtmp1
strurl = "http://weather.265.com/" & strarray (พื้นที่, 0)
strtmp = gethttppage (strurl)
strtmp1 = strcut (strtmp, "<tablewidth =" "750" "border =" "0" "cellpadding =" "2" "cellpacing =" "1" "bgcolor =" "4952bc" ">"
strtmp1 = "<tablewidth =" "750" "border =" "0" "cellpadding =" "2" "cellpacing =" "1" "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 (นี่) "" onmouseout = "" cbar (นี้) "")
strtmp1 = "<!-เวลาสร้าง:" & ตอนนี้ () & "->" & vbcrlf & strtmp1
Response.writestrtmp1
enddub
FunctionGetHttppage (URL)
onerrorresumenext
dimhttp
setthttp = server.createObject ("microsoft.xmlhttp"))
http.open "get", url, false
http.send ()
ifhttp.readystate <> 4 จากนั้น
exitfunction
endif
gethttppage = bytestobstr (http.responsebody, "GB2312"))
setthttp = ไม่มีอะไร