لصوص الطقس الأزرق

نسخة الكود كما يلي:

<٪@language = "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) = "شرق الصين"

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) = "Hong Kong و Macao و Taiwan"

areaid = request.querystring

ifareaid = "" theryareaid = 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 "

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 = '#fffffff'onmouseover = "" sbar (this) "" "onMouseout =" "cbar (this)" "" "" ")

strtmp1 = "<!-وقت التوليد:" & now () & "->" & vbcrlf & strtmp1

استجابة

ينتهي

FunctionGethTtppage (URL)

onerrorresumenext

DIMHTTP

setThTTP = server.createBject ("microsoft.xmlhttp")

http.Open "get" ، url ، false

http.send ()

ifhttp.readyState <> 4then

exitfunction

Endif

gethttppage = bytestobstr (http.responsebody ، "GB2312")

setThttp = لا شيء