📄 zipdel71.asp

📁 聊天室源码呵呵你好用~~~~~~2.0版本
💻 ASP
字号:
<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
Server.ScriptTimeout=600
if Session("a_c_user_name")="" then
 Response.write "<b>[操作失败]</b><p>您尚未登录（或已经超时退出），不能进行此操作！"
 Response.end
end if
if Session("a_c_user_level")<10 then
 Response.Write "<b>[操作失败]</b><p>您没有清理帐号的权限！"
 Response.End
end if
dim newinput(),show()
Application.Lock
input=Application("a_c_reg_data")
countud=Application("a_c_reg_num")
countudnum=(countud-4)/8
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj = s & ":" & f & ":" & m
sj2= n & "-" & y & "-" & r & " " & sj
for i=0 to 4
 Redim Preserve newinput(i)
 newinput(i)=input(i)
next
kill=0
s=0
j=5
for i=5 to countud step 8
 if DateDiff("d",input(i+6),sj2)>7 and input(i+3)=1 then
  Redim preserve show(s+1),show(s+2),show(s+3),show(s+4),show(s+5),show(s+6),show(s+7),show(s+8)
  show(s+1)=input(i)
  show(s+2)=input(i+1)
  show(s+3)=input(i+2)
  show(s+4)=input(i+3)
  show(s+5)=input(i+4)
  show(s+6)=input(i+5)
  show(s+7)=input(i+6)
  show(s+8)=input(i+7)
  s=s+8
  kill=kill+1
  Application("a_c_reg_num")=Application("a_c_reg_num")-8
 else
  Redim Preserve newinput(j),newinput(j+1),newinput(j+2),newinput(j+3),newinput(j+4),newinput(j+5),newinput(j+6),newinput(j+7)
  newinput(j)=input(i)
  newinput(j+1)=input(i+1)
  newinput(j+2)=input(i+2)
  newinput(j+3)=input(i+3)
  newinput(j+4)=input(i+4)
  newinput(j+5)=input(i+5)
  newinput(j+6)=input(i+6)
  newinput(j+7)=input(i+7)
  j=j+8
 end if
next
Application("a_c_reg_data")=newinput
Application.UnLock%><html>
<head>
<title>清理帐号</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type='text/css'>
<!--
.p9 {line-height: 150%; font-size: 9pt;}
.p12 {line-height: 150%; font-size: 12pt;}
td {line-height: 150%; font-size: 9pt;}
body {line-height: 150%;font-size : 12pt;}
A  {text-decoration: none;}
A:Hover  {text-decoration : none;}
a:visited {  color: #0000FF}
-->
</style>
</head>
<body bgcolor="FFFFFF">
<h1 align="center"><font color="0099FF">【清理帐号】</font></h1>
<hr noshade size="1" color=009900>
<%if kill=0 then%> 
<p>没有此类帐号，不能删除！<a href="zip.asp">【返回】</a></p>
<%end if%>
<%if kill>0 then%>
<p><b>[清除帐号完成]</b></p>
<blockquote> 
<p>共清除 7 天内未使用且只仅用过 1 次的帐号： <font color="FF0000"><b><%=kill%></b></font> 个　　<a href="zip.asp">【返回清理帐号】</a></p>
</blockquote>
<hr noshade size="1" color=009900>
<table width="100%" border="0" align="center">
<tr> 
<td><font color="FF0000">序号</font></td>
<td><font color="FF0000">用户名</font></td>
<td><font color="FF0000">密码</font></td>
<td><font color="FF0000">等级</font></td>
<td><font color="FF0000">访问次数</font></td>
<td><font color="FF0000">经验</font></td>
<td><font color="FF0000">注册时间</font></td>
<td><font color="FF0000">最后时间</font></td>
<td><font color="FF0000">最后IP</font></td>
</tr>
<%for i=1 to s step 8%> 
<tr> 
<td><%=(i+7)/8%></td>
<td><%=show(i)%></td>
<td><%=show(i+1)%></td>
<td><%=show(i+2)%></td>
<td><%=show(i+3)%></td>
<td><%=show(i+4)%></td>
<td><%=show(i+5)%></td>
<td><%=show(i+6)%></td>
<td><%=show(i+7)%></td>
</tr>
<%next%> 
</table>
<%end if%>
<hr noshade size="1" color=009900>
<div align="center" class="p9"><script src="use.asp"></script>　<script src="sn.asp"></script><br><script src="copyright.asp"></script></div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -