<!--#include file="inc_const.asp"-->

<%response.expires=0
Response.CacheControl = "Private"

application.lock
set cschat=server.createobject("ffcschat.cssbchat")
cschat.ConstStr=ConstStr
my_level=cschat.getLevel(Session,Application(ConstStr & "_user_list"),Application(ConstStr & "_room_list"))


if my_level-application( ConstStr & "_superlevel")<>0 then response.end

if request("cmdYes")="yes" then
  on error resume next
  cschat.UserClear Application, 1
  if err then
    err.clear
    response.redirect("showerr.asp?errtext=异常发生，请对数据库做压缩修复处理！")
  else
    response.redirect("showerr.asp?errtext=你成功删除过期帐号！")
  end if
else%>
<META content="text/html; charset=gb2312" http-equiv=content-type>
<link rel="stylesheet" type="text/css" href="chat.css">
<script>function xx(n) {document.write("<a href='modusersaved.asp?name="+n+"&action=cancel'>"+n+"</a> ");}</script>
<body  style="background-color:EAF2FF;color:112233;scrollbar-Base-Color: #b0d8ff;SCROLLBAR-DARKSHADOW-COLOR:#b0d8ff;SCROLLBAR-arrow-COLOR:#336699;SCROLLBAR-TRACK-COLOR: EAF2FF;SCROLLBAR-3DLIGHT-COLOR: #b0d8ff;SCROLLBAR-SHADOW-COLOR: #336699;SCROLLBAR-HIGHLIGHT-COLOR: #b0d8ff;" leftmargin=3 topmargin=10 >
<table cellspacing=0 cellpadding=0 align=center width=400 height=100%><tr><td valign=center>
  <table align=center width=90% cellspacing=0 cellpadding=0 border=1 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#ffffff>
  <tr><td class=navy2>过期帐号统计</td>
<tr><td class=navy1>以下帐号已经过期，你决定清除吗？<a style="color:red" href='autoclearuser.asp?cmdYes=yes'>确认</a></td></tr>
  <tr><td style="text-align:left"> &nbsp;<%=cschat.UserClear(Application, 0)%></td></tr>
</table><tr<td><br>[<a href='javascript:history.go(-1)'>后退</a>]</table></body></html>
<%end if
application.unlock
set cschat=nothing%>