The code copy is as follows:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
'------------------------------
'Program name: Blue Space Weather Thieves
'Programming: Pony
'QQ: 55100100
'Website: http://www.bluespace.cn(blue space)
'Date: 2005-11-15
'------------------------------
DimstrArray(9,2), AreaID
strArray(1,0)="index.htm"
strArray(1,1)="North China Region"
strArray(2,0)="hd.htm"
strArray(2,1)="East China"
strArray(3,0)="hn.htm"
strArray(3,1)="South China Region"
strArray(4,0)="hz.htm"
strArray(4,1)="Central China Region"
strArray(5,0)="db.htm"
strArray(5,1)="Northeast Region"
strArray(6,0)="xb.htm"
strArray(6,1)="Northwest Region"
strArray(7,0)="xn.htm"
strArray(7,1)="Southwest Region"
strArray(8,0)="ga.htm"
strArray(8,1)="Hong Kong, Macao and Taiwan"
AreaID=Request.QueryString
IfAreaID=""ThenAreaID=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""cellpacing=""1""bgcolor=""4952BC"">","<scriptlanguage=""javascript""">",2)
strTmp1="<tablewidth=""750""border=""0""cellpadding=""2""cellpacing=""1""bgcolor=""4952BC"">"&strTmp1
strTmp1=Replace(strTmp1,"width=""750""","width='760'align='center'")
strTmp1=Replace(strTmp1,"bgcolor=""4952BC""","bgcolor='#cccccc'")
strTmp1=Replace(strTmp1,"bgcolor=""#e4f0f8"","bgcolor='#ffffff'onmouseover=""sbar(this)"""onmouseout=""cbar(this)""")
strTmp1="<!--Generation time: "&Now()&"-->"&vbCrLf&strTmp1
Response.WritestrTmp1
EndSub
FunctiongetHTTPPage(url)
OnErrorResumeNext
dimhttp
setthttp=Server.createobject("Microsoft.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate<>4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
setthttp=nothing