当前位置: 首页 > 图文教程 > 网络编程 > ASP > 蓝色空间 天气小偷

ASP
一个ASP版的图片浏览管理器
无组件上传图片至SQLSERVER数据库
利用Jmail.Message发送邮件
用Web页面执行客户端程序
多图片上传到指定的目录并存到数据库
dreamweaverMX通用分页代码研究
下拉菜单输入,根据输入内容自动定位
中文的无组件文件上传ASP函数
一个利用adsi得到局域网信息的asp文件
根据需要动态include不同的文件
让自定义文件下载支持断点续传
用数组实现数据记录的批量录入方法
上传的进度条 实时反映上传情况
用ASP动态生成javascript的表单验证代码
ASP 编程中20个非常有用的例子
ASP生成Word文档的又一方法
用asp解析图片地址，并将其保存。
利用ASP的文件操作实现用户管理
创建 Visual Basic COM 组件在 ASP 中使用
调试 ASP 中使用的 Visual Basic COM 组件

No. « 195 196 197 198 »

技术文章搜索

关键字

ASP 中的 蓝色空间 天气小偷

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-13   浏览: 113 ::
收藏到网摘: n/a

复制代码 代码如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'------------------------------
'程序名称：蓝色空间 天气小偷
'程序设计：小马
'QQ：55100100
'网站：http://www.bluespace.cn(蓝色空间)
'日期：2005-11-15
'------------------------------
Dim strArray(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
If AreaID = "" Then AreaID = 1
Sub GetPage()
Dim strUrl,strTmp,strTmp1

strUrl = "http://weather.265.com/"&strArray(AreaID,0)
strTmp = GetHttpPage(strUrl)
strTmp1 = strCut(strTmp,"<table width=""750"" border=""0"" cellpadding=""2"" cellspacing=""1"" bgcolor=""4952BC"">","<script language=""javascript"">",2)
strTmp1 = "<table width=""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.Write strTmp1
End Sub
Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
If Err.number<>0 then
Response.Write "<p align=center>服务器获取文件内容出错，请稍后再试！！！</p>"
Err.Clear
End If
End function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
'截取字符串,1.包括起始和终止字符，2.不包括
Function strCut(strContent,StartStr,EndStr,CutType)
Dim strHtml,S1,S2
strHtml = strContent
On Error Resume Next
Select Case CutType
Case 1
S1 = InStr(strHtml,StartStr)
S2 = InStr(S1,strHtml,EndStr)+Len(EndStr)
Case 2
S1 = InStr(strHtml,StartStr)+Len(StartStr)
S2 = InStr(S1,strHtml,EndStr)
End Select
If Err Then
strCute = "<p align='center'>没有找到需要的内容。</p>"
Err.Clear
Exit Function
Else
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()%>?7">西南地区</a></td>
<TD class="tbsep">|</TD>
<TD class="tb0" noWrap onmouseleave="mhHover('tb0')" onmouseenter="mhHover('tb1')"><A href="<%=GetScript()%>?8">港澳台地区</a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td height=3></td></tr>
</table>
<SCRIPT type=text/javascript>
<!--//
function sbar(st) {
st.style.backgroundColor = "#F5F5F5";
}
function cbar(st) {
st.style.backgroundColor = "#ffffff";
}
function mhHover(cls)
{
event.srcElement.className = cls;
}
function mhClick(tbObj, cls)
{
event.srcElement.className = cls;
}
//-->
</SCRIPT>
<%
Call GetPage()
%>
<hr size='1' color='#cccccc' width='770' align='center'>
<div align='center'>Copyright ©2005 <a href='http://www.bluespace.cn' target='_blank'>BlueSpace.CN</a></div>
</BODY>
</HTML>