当前位置：网学 > 编程文档 > ASP > 正文

蓝色空间天气小偷

作者：用户投稿来源：网络发布时间： 13/06/17

strCut = Mid(strHtml,S1,S2-S1)
End If
End Function

''----------------------------
''取得当前脚本名称
''----------------------------
Function GetScript()
Dim ScriptAddress
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
GetScript = ScriptAddress
End Function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> 天气预报 </TITLE>
<meta http-equiv=Content-Type content=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: #f1f1f1 1px solid;
PADDING-RIGHT: 6px;
BORDER-TOP: #f1f1f1 1px solid;
PADDING-LEFT: 6px;
BACKGROUND: #f1f1f1;
PADDING-BOTTOM: 2px;
BORDER-LEFT: #f1f1f1 1px solid;
CURSOR: hand;
PADDING-TOP: 2px;
BORDER-BOTTOM: #f1f1f1 1px solid;
}
.tb1 {
BORDER-RIGHT: #999 1px solid;
PADDING-RIGHT: 6px;
BORDER-TOP: #999 1px solid;
PADDING-LEFT: 6px;
BACKGROUND: #ccc;
PADDING-BOTTOM: 2px;
BORDER-LEFT: #999 1px solid;
CURSOR: hand;
PADDING-TOP: 2px;
BORDER-BOTTOM: #999 1px solid;
}
</style>
</HEAD>
<BODY>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td height=3></td></tr>
</table>
<table bgcolor="#f1f1f1" align=''center'' width="760" cellspacing=''1'' cellpadding=''3'' style="border:1 solid #cccccc">
<tr align=''center''>
<TD class="tb0" noWrap onmouseleave="mhHover(''tb0'')" onmouseenter="mhHover(''tb1'')"><A href="<%=GetScript()%>?1">华北地区</a></td>
<TD class="tbsep">|</TD>
<TD class="tb0" noWrap onmouseleave="mhHover(''tb0'')" onmouseenter="mhHover(''tb1'')"><A href="<%=GetScript()%>?2">华东地区</a></td>
<TD class="tbsep">|</TD>
<TD class="tb0" noWrap onmouseleave="mhHover(''tb0'')" onmouseenter="mhHover(''tb1'')"><A href="<%=GetScript()%>?3">华南地区</a></td>
<TD class="tbsep">|</TD>
<TD class="tb0" noWrap onmouseleave="mhHover(''tb0'')" onmouseenter="mhHover(''tb1'')"><A href="<%=GetScript()%>?4">华中地区</a></td>
<TD class="tbsep">|</TD>
<TD class="tb0" noWrap onmouseleave="mhHover(''tb0'')" onmouseenter="mhHover(''tb1'')"><A href="<%=GetScript()%>?5">东北地区</a></td>
<TD class="tbsep">|</TD>
<TD class="tb0" noWrap onmouseleave="mhHover(''tb0'')" onmouseenter="mhHover(''tb1'')"><A href="<%=GetScript()%>?6">西北地区</a></td>
<TD class="tbsep">|</TD>
<TD class="tb0" noWrap onmouseleave="mhHover(''tb0'')" onmouseenter="mhHover(''tb1'')"><A href="<%=GetScript()%>?