La copia del código es la siguiente:
<%@Idioma = "vBscript" Codepage = "936"%>
<%
'------------------------------
'Nombre del programa: ladrones de clima azul del espacio
'Programación: Pony
'QQ: 55100100
'Sitio web: http://www.bluespace.cn (Blue Space)
'Fecha: 2005-11-15
'------------------------------
DimStrarray (9,2), Areaid
Strarray (1,0) = "index.htm"
Strarray (1,1) = "Región de China del Norte"
Strarray (2,0) = "Hd.htm"
Strarray (2,1) = "China este"
Strarray (3,0) = "Hn.htm"
Strarray (3,1) = "Región de China del Sur"
Strarray (4,0) = "Hz.htm"
Strarray (4,1) = "Región Central de China"
Strarray (5,0) = "db.htm"
Strarray (5,1) = "Región del noreste"
Strarray (6,0) = "xb.htm"
Strarray (6,1) = "Región del noroeste"
Strarray (7,0) = "xn.htm"
Strarray (7,1) = "Región del suroeste"
Strarray (8,0) = "Ga.htm"
Strarray (8,1) = "Hong Kong, Macao y Taiwán"
AreaId = request.Querystring
IfareaiD = "" "entoncesareaid = 1
SubgetPage ()
Dimstrurl, strtmp, strtmp1
Strurl = "http://weather.265.com/" & Strarrray (AreaID, 0)
strtmp = gethttppage (strurl)
strtmp1 = strcut (strtmp, "<tableWidth =" "750" "border =" "0" "cellPadding =" "2" "celular =" "1" "bgcolor =" "4952bc" ">", "<scriptLanguage =" javaScript "" ">", 2), 2), 2), 2), 2), 2), 2), 2), 2), 2), 2)
strtmp1 = "<tableWidth =" "750" "border =" "0" "CellPadding =" "2" "CellPacing =" "1" "bgcolor =" "4952bc" ">" & strtmp1
strtmp1 = reemplazar (strtmp1, "width =" "750" "", "width = '760'Align =' Center '")
strtmp1 = reemplazar (strtmp1, "bgcolor =" "4952bc" "", "bgcolor = '#cccccc'")
strtmp1 = reemplazar (strtmp1, "bgcolor =" "#e4f0f8" "," bgcolor = '#ffffff'onmouseover = "" sbar (this) "" "onMouseOut =" "cbar (this)" ")")
strtmp1 = "<!-Tiempo de generación:" & Now () & "->" & vbcrlf & strtmp1
Respuesta.WriteStTMP1
Endsub
Functiongethttppage (URL)
OnerrorResumEnext
dimhttp
setThttp = server.CreateObject ("Microsoft.xmlhttp")
Http.open "Get", URL, falso
Http.send ()
ifhttp.readyState <> 4then
extinción
endif
gethttppage = bytestobstr (http.ResponseBody, "GB2312")
setthttp = nada