A cópia do código é a seguinte:
<%@Idioma = "vBScript" codePage = "936"%>
<%
'--------------------------------
'Nome do programa: ladrões de clima espacial azul
'Programação: pônei
'QQ: 55100100
'Site: http://www.bluespace.cn (espaço azul)
Data: 2005-11-15
'--------------------------------
DiMStrarray (9,2), área
Strarray (1,0) = "Index.htm"
Strarray (1,1) = "Região do Norte da China"
Strarray (2,0) = "HD.HTM"
Strarray (2,1) = "Oriental China"
Strarray (3,0) = "Hn.htm"
Strarray (3,1) = "Região do Sul da China"
Starray (4,0) = "Hz.htm"
Strarray (4,1) = "Região da China Central"
Strarray (5,0) = "db.htm"
Strarray (5,1) = "Região Nordeste"
Strarray (6,0) = "XB.HTM"
Strarray (6,1) = "Região Noroeste"
Strarray (7,0) = "Xn.htm"
Strarray (7,1) = "Região Sudoeste"
Strarray (8,0) = "Ga.htm"
Starray (8,1) = "Hong Kong, Macau e Taiwan"
AreaID = request.QueryString
Ifareaid = "" ThenArEAid = 1
Subgetpage ()
DIMSTRURL, STRTMP, STRTMP1
strurl = "http://weather.265.com/" & Strarray (área, 0)
strtmp = gethttppage (strurl)
strtmp1 = strcut (strtmp, "<tabelawidth =" "750" "border =" "0" "CellPadding =" "" 2 "" CellPacing = "" 1 "" BGCOLOR = "" 4952BC ">", "<scriptLanguage =" "Javascript" "" "" 2) "," "
strtmp1 = "<tabelawidth =" "750" "border =" "0" "CellPadding =" "2" "CellPacing =" "" 1 "" bgcolor = "" 4952bc ""> "& strtmp1
strtmp1 = substituir (strtmp1, "width =" "750" "", "width = '760'align =' center '")
strtmp1 = substituir (strtmp1, "bgcolor =" "4952bc" "," bgcolor = '#cccccc' ")
strtmp1 = substituir (strtmp1, "bgcolor =" ""#e4f0f8 "", "bgcolor = '#ffffff'onMouseOver =" "sBar (this)" "" onMouseout = "" cBar (this) "" "")
strtmp1 = "<!-Tempo de geração:" & agora () & "->" & vbcrlf & strtmp1
Response.WriteSTRTMP1
Endsub
Functiongethttppage (URL)
OnErrorReSumenext
dimhttp
setthttp = server.createObject ("Microsoft.xmlHttp")
Http.open "get", url, falso
Http.send ()
ifhttp.readyState <> 4Then
saída de saída
endif
gethttppage = bytestobstr (http.Responsebody, "GB2312")
setthttp = nada