weather.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 639 行 · 第 1/2 页
ASP
639 行
href="/wlds.asp"
>网络电视</a>┋</td>
<td width="68"><a class=h_menu
href="/gallery.asp?types=paste"
>精彩贴图</a>┋</td>
<td width="68"><a class=h_menu
href="/photo.asp"
>精美相册</a>┋</td>
<td width="69"><a class=h_menu
href="/gallery.asp?types=film&c_id=113"
>本地mtv</a>┋</td>
<td width="60"><a class=h_menu
href="/gbook.asp"
><font
color=#0000ff>访客留言</font></a></td>
</tr>
<tr align=middle height=22>
<td width="68"><a class=h_menu
href="/down.asp"
>软件下载</a>┋</td>
<td width="68"><a class=h_menu
href="/flea.asp"
>二手市场</a>┋</td>
<td width="68"><a class=h_menu
href="/shop.asp"
>网络商城</a>┋</td>
<td width="68"><a class=h_menu
href="/wzdh/"
><font class=h_menu>网站导航</font></a>┋</td>
<td width="68"><a class=h_menu
href="/sousuo/"
>搜索引擎</a>┋</td>
<td width="68"><a class=h_menu
href="/mtv.asp"
><font class=h_menu>在线mtv</font></a>┋</td>
<td width="68"><a class=h_menu
href="/music.asp"
>动感音乐</a>┋</td>
<td width="68"><a class=h_menu href="/video.asp"><font class=h_menu>影视欣赏</font></a>┋</td>
<td width="69"><a class=h_menu
href="gallery.asp?types=flash"
><font class=h_menu>动画世界</font></a>┋</td>
<td width="60"><a class=h_menu
href="/forum.asp"
><font color="#ff00ff">情缘论坛</font></a></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td height=24><img height=20
src="/top1/top_dh_button02.gif"
width=78></td>
</tr>
</tbody>
</table></td>
<td align=right width=13><img height=54
src="/top1/top_img06.gif"
width=13></td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=777 bgcolor=#ffffff
border=0>
<tbody>
<tr>
<td
height=2></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
</td></tr>
</table>
<table width="780" background="/img/bg_td.gif">
</table>
<table width="780" border="0" cellpadding="0" cellspacing="0">
</table>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0" height="1">
</table>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ffffff" height="75">
<tr>
<td align=middle height=69><div align="center">
<p align="center"><a href="http://www.meigui8.cn" target="_blank"><img height=69 src="http://www.meigui8.cn/images/guanggao01.gif" width=776 border=0></a></p>
</div></td>
</tr>
</table>
</table>
</table>
</center>
<div align="center">
<table width="760" height="20" border="0" cellpadding="0" cellspacing="1" bordercolor="#999999" bgcolor="#cccccc">
<form action="http://www.baimuyao.com/bbs/login.asp?action=chk" method="post" target="_blank">
</table>
</div>
<%@language="vbscript" codepage="936"%>
<%
'------------------------------
'程序名称：百目妖 天气小偷
'程序设计：米米
'qq：55100100
'网站：http://www.baimuyao.com(百目妖)
'------------------------------
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">
<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()
%>
<div align='center'></div>
<div align="center">
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="4"></td>
</tr>
<tr>
<td height="4" background="http://www.meigui8.cn/images/index_r57_c1.jpg"></td>
</tr>
</table>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<rt>
<td height="15" align=right valign="middle" class=wshadow><a href="help.asp">关于我们</a> | <a href="gg.asp">网站建设</a> | <a href="gg.asp">广告联系</a> | <a href="gg.asp">企业黄页</a> | <a href="gg.asp">域名主机</a> |<a href="gg.asp">网站推广</a> |<a href="links.asp">友情链接</a> |<a href="online.asp">在线列表</a> </td>
</table>
<script src="http://www.meigui8.cn/stat/mystat.asp?siteid=1"></script>
<script src="http://www.meigui8.cn/stat/show.asp?siteid=1&style=logo%7caj%7c%7caj%7cnumpic%2f003%7caj%7c%7caj%7c"></script>
<table width="776" height="48" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#fffefb"><table width="776" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center"><table class=bottom cellspacing=0 cellpadding=0 width="100%" align=center
border=0>
<tbody>
<tr>
<td height=15 align="center" valign="middle"><span style="behavior:url(font.htc)"> 玫瑰情缘 </span><a class=h_td target=_blank href="http://www.miibeian.gov.cn">粤icp备06080170号</a></td>
</tr>
<tr>
<td height=15 align="center" valign="middle"> copyright 2006 <a href=http://www.meigui8.cn target=_blank><b><font face=arial color=#cc3300>meigui8.cn</font></b></a> all rights reserved </td>
</tr>
</tbody>
</table></td>
</tr>
</table></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?