?? inc.asp
字號:
<%sub head%>
<%dim Ip_address
Ip_address=Request.ServerVariables ("HTTP_X_FORWARDED_FOR") '獲得客戶端的代理ip地址
If Ip_address="" Then
Ip_address= Request.ServerVariables ("REMOTE_ADDR") '獲得客戶端的ip地址
End If
if valid_ip(Ip_address)<>"true" then
response.write"<div align=center><font color=red size=2>對不起，您的IP已被系統管理員鎖定!</font></div>"
response.end
end if
%>
<!--
┌──────────26q ─┐
│聽雪資源網26q.net版權所有 │
└───────────.net┘
-->
<html>
<HEAD>
<title><%=webname%> - <%=start%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="keywords" CONTENT="hx66,xc">
<META NAME="description" CONTENT="新聞，歌曲，影視，文章，下載，特效，圖片，酷站，連接，統計，留言">
<META NAME="robots" CONTENT="all"><META name="AUTHOR" content="xc,xc@hx66.net">
<link href="skin/<%=skin%>/css.css" rel="stylesheet" type="text/css">
<SCRIPT language=javaScript src="inc/js.js" type=text/javascript></SCRIPT>
</HEAD>
<BODY>
<table width="760" border="0" cellspacing="0" cellpadding="0" class="table-top" align="center">
<tr>
<td height="3" background="img/topLine.gif"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table-hx66s">
<tr>
<td valign="top" bgcolor="#FFFFFF" background="skin/<%=skin%>/banner.gif" height="138"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="456" height="108">
<param name="movie" value="img/top.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="img/top.swf" width="456" height="108" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent">
</embed> </object></td>
</tr>
</table>
<%end sub%>
<%sub menu%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table-hx66s">
<tr>
<td height="36"><table width="100%" border="0" cellspacing="0" cellpadding="0" class="table-top">
<tr>
<td width="100%" height="28" align="center"><a href="index.asp"><font color=red>首 頁</a>｜<a href="news.asp">新聞資訊</a>｜<a href="art.asp">文章中心</a>｜<a href="dj.asp">歌曲音樂</a>｜<a href="vid.asp">影視中心</a>｜<a href="down.asp">資源下載</a>｜<a href="pic.asp">精美圖片</a>｜<a href="web.asp">酷站推薦</a>｜<a href="js.asp">網頁特效</a>｜<a href="book.asp?page=1">留言本站</a>｜<a href="http://www.26q.net/bbs/index.asp" target="_blank"><font color=red>聽雪論壇</font></a>
</td>
</tr>
</table>
</td>
</tr></table>
<%end sub%>
<%sub footer
time2=timer
dim skin1
skin1=""&skin&""
if skin1="" then
hxskin="藍色理想"
elseif skin1="1" then
hxskin="黃色魅力"
elseif skin1="2" then
hxskin="墨藍深遠"
elseif skin1="3" then
hxskin="粉紅誘惑"
elseif skin1="4" then
hxskin="灰色暢想"
end if%>
<table width="760" border="0" align="center" cellspacing="0" cellpadding="0" class="table-shangxia">
<tr>
<td height="23" class="a1" align="right"><font color=#999999>當前風格：<%=hxskin%></font> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table-hx66s">
<tr>
<td valign="top" height="6"></td>
</tr>
<tr>
<td align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" align="center" valign="TOP"><a href='about.asp'>關于本站</a> | <a href='about.asp?hx66=lx'>聯系我們</a> | <a href='about.asp?hx66=gg'>廣告合作</a> | <a href='about.asp?hx66=dt'>網站地圖</a> | <a href="link.asp">友情連接</a> | <a href='admin.asp' target='_blank' Title='后臺管理'>后臺管理</a> | <script language='JavaScript' src='counter.asp'></script></td>
</tr>
<tr>
<td width="100%" align="center">版權所有 Copyright © 2005 <a href='<%=weburl%>' target=_blank title='<%=WebName%>'><font color='#ff6600'><%=WebName%></font></a> All Rights Reserved. <br><font color='#999999' face=arial><b>Powered by：</b></font><a href="http://www.26q.net" target="_blank"><font color='#999999' face=arial><b>聽雪資源網</b></font></a> <font color='#999999' face=arial> 頁面執行時間：<%=FormatNumber((time2-time1)*1000,2)%>MS</font><a href="http://www.miibeian.gov.cn/" target="_blank">豫ICP備05024012</a><a href="http://www.51.la/?277336" target="_blank"><img alt="51.la Free Site Stats" src="http://c.s31.51.la/s.asp?siteid=2179&t=img" border="0" /></a></td><script>
ed_ads_UserId=1520;
</script>
<script src="http://1.ads8.com:8001/code_56.js"></script>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" height="8"></td>
</tr>
</table>
</BODY>
</HTML>
<%end sub%>
<%sub guesterror()%>
<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>您沒有權限操作！！</title></head><body>
<table width='100%' height='96' border='0' cellpadding='0' cellspacing='0'><tr>
<td align='center'><p><font color='##666666'>此頁不允許游客觀看！請登陸后操作！</font></p><p><font color='##666666'><a href='UserReg.asp'>登陸或注冊</a></font></p></td>
</tr></table>
</body></html>
<%end sub%>
<%sub count()
sql="select articlecount,softcount,coolsitescount,djcount,newscount,piccount,jscount,usercount,vidcount from allcount"
set rs=conn.execute(sql)
articlecount=rs("articlecount")
softcount=rs("softcount")
coolsitescount=rs("coolsitescount")
djcount=rs("djcount")
newscount=rs("newscount")
piccount=rs("piccount")
jscount=rs("jscount")
usercount=rs("usercount")
vidcount=rs("vidcount")
%>
<!--#include file=cnt.asp-->
□- 新聞資訊： <%=newscount%><br>
□- 歌曲音樂： <%=djcount%> <br>
□- 技術文章： <%=articlecount%><br>
□- 下載中心： <%=softcount%> <br>
□- 精美圖片： <%=piccount%> <br>
□- 影視中心： <%=vidcount%> <br>
□- 網頁特效： <%=jscount%> <br>
□- 推薦酷站： <%=coolsitescount%><br>
□- 注冊會員： <%=usercount%><br>
□- 當前在線： <%=i%>
<%end sub%>
<%
function valid_ip(guest_ip) 'IP 過濾判斷
valid_ip="true"
dim ti,tdim,hn,aabb,ccdd
hn=guest_ip
tdim=split(bad_ip,"|")
aabb=split(hn,".")
for ti=0 to ubound(tdim)
ccdd=split(tdim(ti),".")
if ccdd(3)="*" then
if ccdd(2)="*" and ccdd(3)="*" then
if ccdd(1)="*" and ccdd(2)="*" and ccdd(3)="*" then
hn=aabb(0)&".*.*.*"
if instr(hn,tdim(ti))>0 then valid_ip="false":erase tdim:exit function
else
hn=aabb(0)&"."&aabb(1)&".*.*"
if instr(hn,tdim(ti))>0 then valid_ip="no":erase tdim:exit function
end if
else
hn=aabb(0)&"."&aabb(1)&"."&aabb(2)&".*"
if instr(hn,tdim(ti))>0 then valid_ip="false":erase tdim:exit function
end if
else
hn=aabb(0)&"."&aabb(1)&"."&aabb(2)&"."&aabb(3)
if instr(hn,tdim(ti))>0 then valid_ip="false":erase tdim:exit function
end if
next
erase tdim
end function
'以上為檢查訪客IP是否合法的函數
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -