ขโมยสภาพอากาศสีน้ำเงิน

การคัดลอกรหัสมีดังนี้:

<%@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 = ไม่มีอะไร