复制代码代码如下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
'------------------------------
'程序名称：蓝色空间天气小偷
'程序设计：小马
'QQ：55100100
'网站：http://www.bluespace.cn(蓝色空间)
'日期：2005-11-15
'------------------------------
DimstrArray(9,2),AreaID
strArray(1,0)="index.htm"
strArray(1,1)="华北地区"
strArray(2,0)="hd.htm"
strArray(2,1)="华东地区"
strArray(3,0)="hn.htm"
strArray(3,1)="华南地区"
strArray(4,0)="hz.htm"
strArray(4,1)="华中地区"
strArray(5,0)="db.htm"
strArray(5,1)="东北地区"
strArray(6,0)="xb.htm"
strArray(6,1)="西北地区"
strArray(7,0)="xn.htm"
strArray(7,1)="西南地区"
strArray(8,0)="ga.htm"
strArray(8,1)="港澳台地区"
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""cellspacing=""1""bgcolor=""4952BC"">","<scriptlanguage=""javascript"">",2)
strTmp1="<tablewidth=""750""border=""0""cellpadding=""2""cellspacing=""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="<!--生成时间："&Now()&"-->"&vbCrLf&strTmp1
Response.WritestrTmp1
EndSub
FunctiongetHTTPPage(url)
OnErrorResumeNext
dimhttp
sethttp=Server.createobject("Microsoft.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate<>4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
sethttp=nothing