Die Codekopie lautet wie folgt:
<%@Sprache = "vbscript" Codepage = "936"%>
<%
'----------------------------------
'Programmname: Blue Space Wetterdiebe
'Programmierung: Pony
'QQ: 55100100
'Website: http://www.bluespace.cn (Blue Space)
'Datum: 2005-11-15
'----------------------------------
DimstraRray (9,2), AreaId
Strarrray (1,0) = "index.htm"
Strarrray (1,1) = "Nordchina Region"
Strarrray (2,0) = "Hd.htm"
Strarrray (2,1) = "Ostchina"
Strarrray (3,0) = "Hn.htm"
Strarrray (3,1) = "Region South China"
Strarrray (4,0) = "Hz.htm"
Strarrray (4,1) = "Zentralchina Region"
Strarrray (5,0) = "db.htm"
Strarrray (5,1) = "Nordostregion"
Strarrray (6,0) = "xb.htm"
Strarrray (6,1) = "Northwest Region"
Strarrray (7,0) = "xn.htm"
Strarrray (7,1) = "Southwest Region"
Strarrray (8,0) = "ga.htm"
Strarrray (8,1) = "Hongkong, Macao und Taiwan"
AreaId = Request.queryString
IfareAid = "" thenAeAID = 1
SubgetPage ()
Dimstrurl, Strtmp, Strtmp1
StRURL = "http://weather.265.com/" & Strarrray (AreaInId, 0)
STRTMP = Gethttppage (STRURL)
strTmp1=strCut(strTmp,"<tablewidth=""750""border=""0""cellpadding=""2""cellpacing=""1""bgcolor=""4952BC"">","<scriptlanguage=""javascript""">",2)
STRTMP1 = "<TableWidth =" "750" "Border =" "0" "cellpadding =" "2" "cellpacing =" "1" "bgcolor =" "4952bc" ">" & Strtmp1
STRTMP1 = Ersetzen (strtmp1, "width =" "750" "", "width = '760'Align =' Center '")
STRTMP1 = Ersatz (Strtmp1, "Bgcolor =" "4952BC" "", "BGCOLOR = '#CCCCC'"))
STRTMP1 = Ersatz (strtmp1, "bgcolor =" "#e4f0f8" "," bgcolor = '#ffffff'onmouseover = "" sbar (this) "" onmouseout = "" cbar (this) "" ")
STRTMP1 = "<!-Generation Zeit:" & now () & "->" & vbcrlf & strtmp1
Response.writestrtmp1
Ende
FUNKTIONSETHTTTPPAGE (URL)
OnErrorresumeNext
Dimhttp
settThttp = server.createObject ("microsoft.xmlhttp"))
Http.open "get", url, falsch
Http.send ()
IFHTTP.REYYSTATE <> 4Then
Ausgangsfunktion
Endif
getttppage = byTestObstr (http.Responsebody, "GB2312")
settThttp = nichts