⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 inc.asp

📁 本程序采用花香内核
💻 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>&nbsp;&nbsp;</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 &copy; 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>&nbsp;&nbsp;<font color='#999999' face=arial>&nbsp;&nbsp;页面执行时间：<%=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&amp;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-->
&nbsp;□- 新闻资讯： <%=newscount%><br>
&nbsp;□- 歌曲音乐： <%=djcount%> <br>
&nbsp;□- 技术文章： <%=articlecount%><br>
&nbsp;□- 下载中心： <%=softcount%> <br>
&nbsp;□- 精美图片： <%=piccount%> <br>
&nbsp;□- 影视中心： <%=vidcount%> <br>
&nbsp;□- 网页特效： <%=jscount%> <br>
&nbsp;□- 推荐酷站： <%=coolsitescount%><br>
&nbsp;□- 注册会员： <%=usercount%><br>
&nbsp;□- 当前在线： <%=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 + -