<%
'=================================================
'过程名：head
'作  用：页头
'参  数：无
'=================================================
sub head()
if Request.Cookies("skins")<>"" and skinopen="yes" then
skin=Request.Cookies("skins")
end if
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
'--------ID限制
u_uid=Request.Cookies("HX_CHECK")("uid")
checkopen=False
if bad_ID<>"" then
check_uid=split(bad_ID,"|")
for z=0 to ubound(check_uid)
    'if instr(u_uid,check_uid(z))>0 then
    if check_uid(z)=u_uid then
          checkopen=true
          exit for
    end if
next
end if
'--------ID限制
if valid_ip(Ip_address)<>"true" OR checkopen=true then 
    response.write"<div align=center><font color=red size=2>对不起，您的IP已被系统管理员锁定!</font></div>"
    response.end
end if
if webopen="yes" then 
    response.write"<div align=center><font color=red size=2>"& offweb &"</font></div>"
    response.end
end if
%>
<!--
┌──────────17vd┐
│17VD www.17vd.com│
└──────────.com┘
-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-CN" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="generator" content="juncai" />
<meta name="keywords" content="网兜" />
<meta name="description" content="公益 大学创业 大学社团 网兜 手机下载 diy手工 立体绣" />
<meta name="robots" content="all" />
<meta name="author" content="ming,longjizhuo@126.com" />
<title><%=webname%>　<%=start%></title>
<link href="skin/1/css.css" rel="stylesheet" type="text/css" />
<base onmouseover="window.status='网兜www.17vd.comg一个展示个人才华、互相沟通交流的平台……';return true" />
<SCRIPT language=javaScript src="inc/js.js" type=text/javascript></SCRIPT>
<%if qq="yes" then%><script language="javascript" type="text/javascript" src="qq/qq.asp"></script><%end if%>
<script Language=Javascript src='inc/pop.js'></script>
<style type="text/css">
<!--
.STYLE2 {color: #E9E9E9}
.STYLE3 {color: #DD1E01}
.STYLE4 {color: #FFFF00}
.STYLE6 {color: #33FF00}
-->
</style>
</HEAD>
<BODY style='cursor:url(skin/mouse.cur)'>
<TABLE width="956" height="4" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TR>
    <TD vAlign=top align=center width="100%" background="skin/1/logo_bg.gif" height=88><TABLE cellSpacing=0 cellPadding=0 width=958 border=0>
	<TR>
          <TD width=319><IMG height=82 src="skin/1/logo.gif" width=257 border=0></TD>
          <TD width=320></TD>
          <TD valign="bottom" align="right" width=319>
<TABLE cellSpacing=0 cellPadding=0 border=0>
        <TR>
          <TD width=250><a style="cursor:hand" href='#' onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=weburl%>');" title=设为首页><font color=#FFFFFF>设为首页</font></a>&nbsp;&nbsp;<a href="javascript:window.external.addFavorite('<%=weburl%>','<%=WebName%>');" title=加入收藏夹><font color=#FFFFFF>加入收藏</font></a>&nbsp;&nbsp;<a href='book.asp' Title='站内留言'><font color=#FFFFFF>站内留言</font></a>&nbsp;&nbsp;<a id="StranLink" title='点击转换'><font color=#FFFFFF>繁體中文</font></a></td><script src=inc/Std_StranJF.Js></script>
</TD></TR></TABLE>
<form action="search.asp" method="get" target=_blank>
  <DIV style="padding-top:5px;padding-bottom:5px;">
    <table border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="49"><img src="../skin/1/top_st.gif" width="43" height="22"></td>
        <td><select name="SearchType" class='input'>
          <option value="新闻">兜客采风</option>
          <option value="音乐">铃声音乐</option>
          <option value="资源">下载中心</option>
          <option value="文章">兜客学院</option>
          <option value="特效">网页特效</option>
          <option value="图片">精美图片</option>
          <option value="影视">影视中心</option>
        </select>
        <input name="keyWord" type="text" class='input' size="20">&nbsp;<input name="submit" type="submit" style="{background-image: url(../skin/1/top_go.gif);height:22px; width:22px;border: 0px;}" value=""></td>
      </tr>
    </table>
  </DIV>
</form>
</td>
</tr></TABLE></TD>
  </TR>
</TABLE>
<!--导航栏-->
<TABLE width="958" border=0 align="center" cellPadding=0 cellSpacing=0>
    <TR>
      <TD vAlign=top align=middle width="100%" 
    background="skin/1/logo_bg_1.gif" height=34><TABLE width=956 border=0 align="center" cellPadding=0 cellSpacing=0>
          <TR>
            <TD align=middle><IMG height=4 src="skin/1/top_line.gif" width=958 border=0></TD>
          </TR>
          <TR>
            <TD align=middle><TABLE cellSpacing=0 cellPadding=0 width=956 border=0>
                <TR>
                  <TD><TABLE cellSpacing=0 cellPadding=0 width=956 border=0>
                    <TR>
                      <TD align=right width=65><A href="../index.asp" class="STYLE2">首页</A>&nbsp;</TD>
        <TD align=center width=57 background="skin/1/in.gif" height=30 class="STYLE3"><B>网兜</B></TD>
        <TD width="834" >&nbsp;<A href="../new.asp" class="STYLE2">采风</A>|&nbsp;<A href="../music.asp" class="STYLE2">铃声</A>&nbsp;|&nbsp;<A href="../movie.asp" class="STYLE4">影视</A>&nbsp;|&nbsp;<A href="../game.asp" class="STYLE2">游戏</A>&nbsp;|&nbsp;<A href="../web.asp" class="STYLE6">入驻单位</A>&nbsp;|&nbsp;<A href="../down.asp" class="STYLE2">下载</A>&nbsp;|&nbsp;<A href="../blog.asp" class="STYLE2"></A><A href="../art.asp" class="STYLE4">兜客学院</A>&nbsp;|&nbsp;<A href="../pic.asp" class="STYLE2">图片</A>&nbsp;|&nbsp;<A href="../shoppe.asp" class="STYLE4">商城</A>&nbsp;|&nbsp;<A href="../jss.asp" class="STYLE2">电子书吧</A>&nbsp;|&nbsp;<A href="../fillbuy.asp" class="STYLE2">供求</A>&nbsp;|&nbsp;<A href="../jobperson.asp" class="STYLE2">招聘</A>&nbsp;|&nbsp;<A href="../corporation.asp" class="STYLE2">黄页</A>&nbsp;|&nbsp;<A href="../blog.asp" class="STYLE2">兜客中心</A>&nbsp;|&nbsp;<A href="../bbs" class="STYLE2">论坛</A></TD>
      </TR>
                  </TABLE></TD>
              </TR>
</TABLE></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
<!--导航栏-->
<%end sub

'=================================================
'过程名：footer
'作  用：页脚
'参  数：无
'=================================================
sub footer()
time2=timer
dim skin1
skin1=""&skin&""
if skin1="0" then      
hxskin="原创风格"
elseif skin1="1" then
hxskin="日历风格" 
elseif skin1="2" then
hxskin="古色古香"  
hxskin="5" 
end if%>
<TABLE width=958 border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
    <TR>
      <TD width=4></TD>
      <TD align=middle width=950 bgColor=#ffffff height=24><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TR>
            <TD vAlign=top align=middle width="100%" height=93><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                  <TR>
                    <TD width="100%" bgColor=#cecccc height=2></TD>
                  </TR>
                  <TR>
                    <TD width="100%" bgColor=#ae213e height=4></TD>
                  </TR>
                  <TR>
                    <TD width="100%" align="center"><table width="97%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height=100><%call flink(18)%></td>
  </tr>
  <tr>
    <td><%call flinkwz(100)%></td>
  </tr>
</table></TD>
                  </TR>
                  <TR>
                    <TD width="100%" bgColor=#cecccc height=2></TD>
                  </TR>
            </TABLE></TD>
          </TR>
      </TABLE></TD>
      <TD width=4></TD>
    </TR>
</TABLE>
<TABLE width=650 border=0 align="center" cellPadding=0 cellSpacing=0>
    <TR>
      <TD height=16></TD>
    </TR>
    <TR>
      <TD align=center background="skin/1/bg1.gif" 
      height=22><FONT color=#ffffff><%
Set rs_foot = conn.Execute("select id,title from Channel where f_id=0 order by id")
do while not rs_foot.eof
response.write "<a href='about.asp?id="&rs_foot(0)&"'><FONT color=#ffffff>"&rs_foot(1)&"</a> | "
rs_foot.movenext
loop
rs_foot.close
response.write "<a href='admin.asp' target='_blank' Title='后台管理'><FONT color=#ffffff>后台管理</a> | <a href='link.asp' Title='友情连接'><FONT color=#ffffff>友情连接</a> | <a href='map.asp' Title='电子地图' target='_blank'><FONT color=#ffffff>电子地图</a>"
%> <%if blog_menu="yes" then%>
      <SCRIPT language="javaScript" src="../blog_menu.asp" type=text/javascript></SCRIPT>
      <%end if%>
       | <a href='http://www.miibeian.gov.cn' target='_blank'><FONT color=#ffffff><%=webinfo%></a></FONT></TD>
    </TR>
    <TR>
      <TD align=center><FONT color=#ffffff>版权所有 www.17vd.com &copy; 2009 <a href='<%=weburl%>' target=_blank title='<%=WebName%>'><FONT color=red><%=WebName%></FONT></a> All Rights Reserved by IE5.x 1024*768</TD>
    </TR>
    <TR>
      <TD align=center><FONT color=#ffffff>页面执行时间：<%=FormatNumber((time2-time1)*1000,2)%>MS 客服QQ:267323</FONT> <%=tongji%></TD>
    </TR>
    <TR>
      <TD align=middle 
height=10></TD>
    </TR>
</TABLE>
    <noscript><iframe src=*.html></iframe></noscript>
    <!--#include file="count.asp"-->
</body>
</html>
<%end sub

'=================================================
'过程名：无
'作  用：会员登陆判断
'参  数：无
'=================================================
if Request.Cookies("HX_USER")("User_Name")="" or isnull(Request.Cookies("HX_USER")("User_Name")) or Request.Cookies("HX_USER")("User_Pwd")="" or isnull(Request.Cookies("HX_USER")("User_Pwd")) then
UserLogined=False
checkmember=False
SupAdmin=False
Hx66_Grade=""
Hx66_points=""
else
function ReplaceBadChar(strChar)
	if strChar="" then
		ReplaceBadChar=""
	else
                ReplaceBadChar=replace(replace(replace(replace(replace(replace(replace(strChar,"'",""),"*",""),"?",""),"(",""),")",""),"<",""),".","")
	end if
end function
userid=clng(request.Cookies("HX_USER")("uid"))
username=ReplaceBadChar(request.Cookies("HX_USER")("User_Name"))
password=ReplaceBadChar(request.Cookies("HX_USER")("User_Pwd"))
sql="select * from [User] where userid=" & userid &" and UserName='" & Username & "' and password='" & password & "'"
set rs0=server.createobject("adodb.recordset")
rs0.open sql,conn,1,1
IF Rs0.eof Then
   Response.Redirect "show_error.asp?eid=非法登录,请不要破坏此系统,如果依然有问题请联系管理员!"
   Response.End
else
UserLogined=True
Hx66_uid=rs0("UserID")
Hx66_name=rs0("UserName")
Hx66_Password=rs0("Password")
Hx66_Question=rs0("Question")
Hx66_Answer=rs0("Answer")
Hx66_Email=rs0("Email")
Hx66_sex=rs0("sex")
Hx66_RegDate=rs0("RegDate")
Hx66_LoginTimes=rs0("LoginTimes")
Hx66_Homepage=rs0("Homepage")
Hx66_QQ=rs0("QQ")
Hx66_LastLoginTime=rs0("LastLoginTime")
Hx66_Grade=rs0("UserGrade")
Hx66_points=rs0("points")
Hx66_Photo=rs0("UserPhoto")
Hx66_Sign=rs0("UserSign")
Hx66_friend=rs0("Userfriend")
Hx66_collect=rs0("usercollect")
Hx66_hidden=rs0("hidden")
Hx66_whe=rs0("whe")
Hx66_birthday=rs0("birthday")
Hx66_phone=rs0("phone")
Hx66_address=rs0("address")
Hx66_vipin=rs0("vipindate")
Hx66_vipend=rs0("vipenddate")
rs0.close
set rs0=nothing
End IF
IF Hx66_Grade=1 and Hx66_vipend-date()<=0 Then conn.Execute("insert into message(incept,sender,title,content,sendtime) values('"&Hx66_name&"','"&webname&"','系统消息--VIP资格到期','亲爱的用户"&Hx66_name&"，您的VIP资格有效期已到，非常感谢你对本站的支持。',now())")
IF Hx66_Grade=1 and Hx66_vipend-date()<=0 Then Conn.execute("update [User] set UserGrade=0 where UserID in ("&userid&")")
dim checkmember,SupAdmin
IF blog_yes=1 then
      checkmember=true
Elseif blog_yes=2 and Hx66_Grade=1 then
      checkmember=true
Elseif blog_yes=3 then
   blog_names=split(blog_name,"|")
   for z=0 to ubound(blog_names)
       if Hx66_name=blog_names(z) then
          checkmember=true
          exit for
       end if
   next
Else
      checkmember=False
End if
IF session("adminlogin")=sessionvar and Session("hxStudioAdminDj")=4 then
      SupAdmin=true
Else
      SupAdmin=False
End if
End IF

'=================================================
'过程名：userlogin
'作  用：会员登陆
'参  数：无
'=================================================
sub userlogin()
if UserLogined=False then%>
<form method='post' action='UserChkLogin.asp?hx66=login'>
<table width='180' height='136' border='0' cellpadding='0' cellspacing='0' align=center>
   <tr>
     <td height='30' align=center>帐号：<input class='input' maxlength='20' size='13' name='username' title='输入您的ID' type='text'></td>
   </tr>
   <tr>
     <td height='30' align=center>密码：<input class='input' type='password' maxlength='20' size='13' name='password' value='' title='输入您的密码'></td>
   </tr>
   <tr>
     <td height='25' align=center>Cookie：<select name=CookieDate class=input><option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option></select></td>
   </tr>
  <tr>
     <td align=center><input name='login' type='image' src='img/login.gif' width='39' height='25' border='0'>&nbsp;<a href='UserReg.asp' target=_blank><img src='img/reg.gif' width='39' height='25' border="0"></a>&nbsp;<a href='user_password.asp' target=_blank><img src='img/zm.gif' border='0' alt='会员找回密码' width='39' height='25'></a></td></form>
  </tr>
  <tr>
     <td align='center' valign='top'><font color='#800000'>请注册或登陆查看您的信息!</font></td>
  </tr>
</table>
<%else%>
<table width="180" height="136" border="0" cellpadding="0" cellspacing="0" align="Center">
   <tr>
     <td height="5"></td>
   </tr>
   <tr>
     <td align="Center">
       <table border="0" cellpadding="0" cellspacing="0">
	<tr><td align="center" style="BORDER-RIGHT:#e6e6e6 1px solid; BORDER-TOP:#e6e6e6 1px solid; BORDER-LEFT:#e6e6e6 1px solid; BORDER-BOTTOM:#e6e6e6 1px solid"><%if Hx66_Photo<>"" then%><img src='<%=Hx66_Photo%>' border=0 onload="initimg(this,90,90)" onClick="window.open(this.src,null,'')"><%else%><img src='img/face/36.gif' border=0 width=90 height=90><%end if%></td>
	</tr>
       </table>
     </td>
   </tr>
   <tr>
     <td align="Center"><%if Hx66_Grade=0 then%>普通会员<%end if%><%if Hx66_Grade=1 then%><font color=red>VIP会员</font><%end if%>：<%=Hx66_name%></td>
   </tr>
<%
set rsm=server.createobject("adodb.recordset")
sql="select * from message where incept='"&Hx66_name&"' and flag=0 order by flag"
rsm.open sql,conn,1,1
if not rsm.eof then 
%>
   <tr>
     <td align="Center"><a href="Messager.asp?action=inbox">短信<%if rsm("flag")<>0 then%>(0)<%else%><font color=red><b>(<%=rsm.recordcount%>)</b></font><bgsound src="img/mail.wav" loop="1"><%end if%></a>&nbsp;<a href="User_main.asp"><font color=red>会员中心</font></a>&nbsp;<a href="UserChkLogin.asp?hx66=logout">安全退出</a></td>
   </tr>
<%else%>
   <tr>
     <td align="Center" colspan="3"><a href="Messager.asp?action=inbox">短信(0)</a>&nbsp;<a href="user_main.asp"><font color=red>会员中心</a>&nbsp;<a href="UserChkLogin.asp?hx66=logout">安全退出<font></a></td>
   </tr>
<%
end if
rsm.close
set rsm=nothing
Response.Write "</table>" & vbCrLf
end if
end sub

'=================================================
'过程名：guesterror,HxErrMsg
'作  用：错误判断页面
'参  数：无
'=================================================
sub guesterror()%>
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312' />
<title>您没有权限操作！！</title>
<link href='skin/1/css.css' rel='stylesheet' type='text/css' />
</head>
<body><br><br>
<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 HxErrMsg()
	dim HxErr
	HxErr=HxErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
	HxErr=HxErr & "<link href='skin/1/css.css' rel='stylesheet' type='text/css'></head><body><br><br>" & vbcrlf
	HxErr=HxErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbcrlf
	HxErr=HxErr & "  <tr align='center' class='title'><td height='22'><strong>错误信息</strong></td></tr>" & vbcrlf
	HxErr=HxErr & "  <tr class='tdbg'><td height='100' valign='top'><b>产生错误的可能原因：</b>" & errmsg &"</td></tr>" & vbcrlf
	HxErr=HxErr & "  <tr align='center' class='tdbg'><td><a href='javascript:history.go(-1)'>&lt;&lt; 返回上一页</a></td></tr>" & vbcrlf
	HxErr=HxErr & "</table>" & vbcrlf
	HxErr=HxErr & "</body></html>" & vbcrlf
	response.write HxErr
end sub

'=================================================
'过程名：flink
'作  用：首页连接调用----LOGO横向
'参  数：num-------------调用条数
'=================================================
sub flink(num)
Response.Write "<TABLE width='100%' cellSpacing=0 cellPadding=0  align=center border=0><TR>" & vbCrLf
sql="select top "&num&" * from friendlink where fl_logo<>'' and passed=0 and lk=0 and istop=1 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<TD>"
Response.Write "<TABLE cellPadding=3>" & vbCrLf
Response.Write "<tr><TD><a href='link.asp?action=go&fl_id="&rs("fl_id")&"' target='_blank'><img border=0 src='"&rs("fl_logo")&"' width='88' height='31' title='网站名称："&rs("fl_name")&"&#13&#10网站地址："&rs("fl_url")&"&#13&#10加入时间："&rs("fl_date")&"&#13&#10点击次数："&rs("count")&"'></a></TD></TR>" & vbCrLf
Response.Write "</table></TD>" & vbCrLf
i=i+1
if i mod 9 = 0 then
Response.Write "</tr>"
end if
rs.movenext
loop
'if rs.eof and rs.bof then
'Response.Write "当前没有链接"
'end if
Response.Write "</TR></TABLE>"  
rs.close
set rs=nothing
end sub

'=================================================
'过程名：flinkwz
'作  用：首页连接调用----文字连接
'参  数：num-------------调用条数
'=================================================
sub flinkwz(num)
sql="select top "&num&" * from friendlink where fl_logo='' and passed=0 and lk=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<a href='link.asp?action=go&fl_id="&rs("fl_id")&"' target='_blank'>"&rs("fl_name")&"</a>" & vbCrLf
rs.movenext
loop
if rs.eof and rs.bof then
   Response.Write "当前没有链接"
end if
rs.close
set rs=nothing
end sub

'=================================================
'过程名：Cms_diary
'作  用：公告调用公用函数
'参  数：dclass
'        dclass——公告分类ID,1-首页，2-动漫，3-影视，4-学院，5-留言，6-商城供求
'=================================================
sub Cms_diary(dclass)
sql="SELECT d_content,d_date FROM diary Where d_top=0 and (d_class=0 or d_class="&dclass&") ORDER BY d_id DESC"   
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1
if DateDiff("h",rs("d_date"),now())<=48 then Response.Write "<font color=red>"
Response.Write "<div><img src='img/user/sz2-"&i&".gif'>&nbsp;"&rs("d_content")&""
Response.Write "</div><div align=""right"" class=table-xia>["&year(rs("d_date"))&"-"&month(rs("d_date"))&"-"&day(rs("d_date"))&"]</div></font>" & vbCrLf
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<font color=""#666666"">目前尚无公告！</font>"
end if
rs.close
set rs=nothing
end sub

'=================================================
'过程名：djs
'作  用：首页倒记时调用
'=================================================
sub djs()
response.write "今天是"
response.write formatDateTime(Date(),1) & "," 
'格式化为长日期格式输出显示
response.write " 离<font color=red>"&riqi&"</font>还有"
response.write "<font color=blue><u>"
'调用DateDiff函数,计算日期间隔.
response.write DateDiff("d",Date(),""&rdate&"")
response.write "</font></u>"
response.write "天"
end sub


'=================================================
'过程名：count
'作  用：首网站统计调用函数
'参  数：无
'=================================================
sub count()
set newsuser = conn.execute("select top 1 UserID,UserName from [User] order by UserID desc")
sql="select * 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")
flashcount=rs("flashcount")
shopcount=rs("shopcount")
gqcount=rs("gqcount")
%>
&nbsp;□-兜客采风：<font color=red><%=newscount%></FONT> 篇<br>
&nbsp;□-兜客学院：<font color=red><%=articlecount%></FONT> 篇<br>
&nbsp;□-精美图片：<font color=red><%=piccount%></FONT> 张<br>
&nbsp;□-资源下载：<font color=red><%=softcount%></FONT> 个<br>
&nbsp;□-铃声音乐：<font color=red><%=djcount%></FONT> 首<br>
&nbsp;□-精彩动漫：<font color=red><%=flashcount%></FONT> 个<br>
&nbsp;□-影视中心：<font color=red><%=vidcount%></FONT> 片<br>
&nbsp;□-网页特效：<font color=red><%=jscount%></FONT> 个<br>
&nbsp;□-商城产品：<font color=red><%=shopcount%></FONT> 个<br>
&nbsp;□-供求信息：<font color=red><%=gqcount%></FONT> 个<br>
&nbsp;□-推荐酷站：<font color=red><%=coolsitescount%></FONT> 个<br>
&nbsp;□-注册会员：<font color=red><%=usercount%></FONT> 人<br>
&nbsp;□-新进来宾：<font color=red><%=newsuser(1)%></FONT>
<%end sub

'=================================================
'过程名：valid_ip
'作  用：IP 过滤判断
'参  数：无
'=================================================
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
%>

<script language="javascript" type="text/javascript" src="http://www.54kfqq.com/User/17vd/jqqonline.html"></script>

