<!--#include file="inc_const.asp"-->
<%response.expires=0
Response.CacheControl = "Private"
application.lock

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

set cschat=nothing
application.unlock
if  my_level-application( ConstStr & "_superlevel")<>0 then response.end

Set Conn=Server.CreateObject("ADODB.Connection")
conn.open Application( ConstStr & "_connstr")
  on error resume next
  conn.Execute("DELETE FROM record WHERE DATEDIFF('d',occ_time,now())>"&application( ConstStr & "_managelogtimeout"))
  if err then
    err.clear
    response.redirect("showerr.asp?errtext=异常发生，请对数据库做压缩修复处理！")
  else
    response.redirect("showerr.asp?errtext=你清除了"&application( ConstStr & "_managelogtimeout")&"天前的聊务公开记录！")
  end if
conn.close
Set conn=nothing%>