La copie de code est la suivante:
<% @ Lingots = "vbscript" codepage = "936"%>
<%
'------------------------------
'Nom du programme: Blue Space Mether Thieves
'Programmation: poney
'QQ: 55100100
'Site Web: http://www.bluespace.cn (espace bleu)
'Date: 2005-11-15
'------------------------------
Dimstrarray (9,2), AreaDID
starray (1,0) = "index.htm"
StraRray (1,1) = "région du Nord de la Chine"
starray (2,0) = "hd.htm"
StraRray (2,1) = "Chine orientale"
starray (3,0) = "hn.htm"
StraRray (3,1) = "région du Sud de la Chine"
StraRray (4,0) = "Hz.htm"
StraRray (4,1) = "région de la Chine centrale"
starray (5,0) = "db.htm"
starray (5,1) = "région nord-est"
starray (6,0) = "xb.htm"
starray (6,1) = "région nord-ouest"
starray (7,0) = "xn.htm"
starray (7,1) = "région du sud-ouest"
starray (8,0) = "ga.htm"
StraRray (8,1) = "Hong Kong, Macao et Taiwan"
AreAd = request.querystring
IfareAid = "" thenareaid = 1
SubgetPage ()
Dimstrurl, strtmp, strtmp1
strurl = "http://weather.265.com/" & starray (AreaDid, 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 = remphier (strtmp1, "width =" "750" "", "width = '760'align =' Center '")
strtmp1 = remplacer (strtmp1, "bgcolor =" "4952bc" "", "bgcolor = '# cccccc'")
strtmp1 = remplacer (strtmp1, "bgcolor =" "# e4f0f8" "," bgcolor = '# ffffff'onmouseover = "" sbar (this) "" "onMouseout =" "cbar (this)" "")
strtmp1 = "<! - temps de génération:" & maintenant () & "->" & vbcrlf & strtmp1
Réponse.writestrtmp1
Fin
FonctionGethTTPPAGE (URL)
Onerrorresumenext
dimhttp
setThttp = server.createObject ("Microsoft.xmlhttp")
Http.open "get", URL, faux
Http.send ()
ifhttp.readystate <> 4Then
sortie
endire
GethTTPPAGE = BYTESTOBSTR (Http.ResponseBody, "GB2312")
setTHTP = rien