复制代码 代码如下:
<%@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="<>"&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
IfErr.number<>0then
Response.Write"<palign=center>服务器获取文件内容出错，请稍后再试！！！</p>"
Err.Clear
EndIf
Endfunction
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
'截取字符串,1.包括起始和终止字符，2.不包括
FunctionstrCut(strContent,StartStr,EndStr,CutType)
DimstrHtml,S1,S2
strHtml=strContent
OnErrorResumeNext
SelectCaseCutType
Case1
S1=InStr(strHtml,StartStr)
S2=InStr(S1,strHtml,EndStr)+Len(EndStr)
Case2
S1=InStr(strHtml,StartStr)+Len(StartStr)
S2=InStr(S1,strHtml,EndStr)
EndSelect
IfErrThen
strCute="<palign='center'>没有找到需要的内容。</p>"
Err.Clear
ExitFunction
Else
strCut=Mid(strHtml,S1,S2-S1)
EndIf
EndFunction
'----------------------------
'取得当前脚本名称
'----------------------------
FunctionGetScript()
DimScriptAddress
ScriptAddress=CStr(Request.ServerVariables("SCRIPT_NAME"))
GetScript=ScriptAddress
EndFunction
%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">
<HTML>
<HEAD>
<TITLE>天气预报</TITLE>
<metahttp-equiv=Content-Typecontent=text/html;charset=gb2312>
<style>
A:LINK{COLOR:#000000;TEXT-DECORATION:NONE}
A:VISITED{COLOR:#000000;TEXT-DECORATION:NONE}
A:HOVER{COLOR:blue;TEXT-DECORATION:NONE}
body{
margin:2px;
font-size:12px;
font-family:宋体,Arial;
}
td{font-size:12px;}
.tb0{
BORDER-RIGHT:#f1f1f11pxsolid;
PADDING-RIGHT:6px;
BORDER-TOP:#f1f1f11pxsolid;
PADDING-LEFT:6px;
BACKGROUND:#f1f1f1;
PADDING-BOTTOM:2px;
BORDER-LEFT:#f1f1f11pxsolid;
CURSOR:hand;
PADDING-TOP:2px;
BORDER-BOTTOM:#f1f1f11pxsolid;
}
.tb1{
BORDER-RIGHT:#9991pxsolid;
PADDING-RIGHT:6px;
BORDER-TOP:#9991pxsolid;
PADDING-LEFT:6px;
BACKGROUND:#ccc;
PADDING-BOTTOM:2px;
BORDER-LEFT:#9991pxsolid;
CURSOR:hand;
PADDING-TOP:2px;
BORDER-BOTTOM:#9991pxsolid;
}
</style>
</HEAD>
<BODY>
<tablewidth="100%"border="0"cellspacing="0"cellpadding="0">
<tr><tdheight=3></td></tr>
</table>
<tablebgcolor="#f1f1f1"align='center'width="760"cellspacing='1'cellpadding='3'style="border:1solid#cccccc">
<tralign='center'>
<TDclass="tb0"noWraponmouseleave="mhHover('tb0')"onmouseenter="mhHover('tb1')"><Ahref="<%=GetScript()%>?1">华北地区</a></td>
<TDclass="tbsep">|</TD>
<TDclass="tb0"noWraponmouseleave="mhHover('tb0')"onmouseenter="mhHover('tb1')"><Ahref="<%=GetScript()%>?2">华东地区</a></td>
<TDclass="tbsep">|</TD>
<TDclass="tb0"noWraponmouseleave="mhHover('tb0')"onmouseenter="mhHover('tb1')"><Ahref="<%=GetScript()%>?3">华南地区</a></td>
<TDclass="tbsep">|</TD>
<TDclass="tb0"noWraponmouseleave="mhHover('tb0')"onmouseenter="mhHover('tb1')"><Ahref="<%=GetScript()%>?4">华中地区</a></td>
<TDclass="tbsep">|</TD>
<TDclass="tb0"noWraponmouseleave="mhHover('tb0')"onmouseenter="mhHover('tb1')"><Ahref="<%=GetScript()%>?5">东北地区</a></td>
<TDclass="tbsep">|</TD>
<TDclass="tb0"noWraponmouseleave="mhHover('tb0')"onmouseenter="mhHover('tb1')"><Ahref="<%=GetScript()%>?6">西北地区</a></td>
<TDclass="tbsep">|</TD>
<TDclass="tb0"noWraponmouseleave="mhHover('tb0')"onmouseenter="mhHover('tb1')"><Ahref="<%=GetScript()%>?7">西南地区</a></td>
<TDclass="tbsep">|</TD>
<TDclass="tb0"noWraponmouseleave="mhHover('tb0')"onmouseenter="mhHover('tb1')"><Ahref="<%=GetScript()%>?8">港澳台地区</a></td>
</tr>
</table>
<tablewidth="100%"border="0"cellspacing="0"cellpadding="0">
<tr><tdheight=3></td></tr>
</table>
<SCRIPTtype=text/javascript>
<>
</SCRIPT>
<%
CallGetPage()
%>
<hrsize='1'color='#cccccc'width='770'align='center'>
<divalign='center'>Copyright©2005<ahref='http://www.bluespace.cn'target='_blank'>BlueSpace.CN</a></div>
</BODY>
</HTML>
【蓝色空间 天气小偷】相关文章：
★ ASP编程入门进阶（十四）：Browser & Linking