نسخة الكود كما يلي:
<٪@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 = لا شيء