蓝色空间天气小偷_ASP教程-查字典教程网

复制代码代码如下:

<%@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>

<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">

</table>

<tablebgcolor="#f1f1f1"align='center'width="760"cellspacing='1'cellpadding='3'>

<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">

</table>

<SCRIPTtype=text/javascript>

</SCRIPT>

CallGetPage()

<hrsize='1'color='#cccccc'width='770'align='center'>

</BODY>

</HTML>