<!--#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

dbtype=request("dbtype")
if dbtype<>"calls" and dbtype<>"friendrq" and dbtype<>"scrollad" then response.end
sql="delete from "&dbtype
if request("read")=1 and dbtype="calls" then sql=sql&" where read<>0"
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open Application( ConstStr & "_connstr")
conn.execute(sql)
conn.close
Set conn=nothing
response.redirect("showerr.asp?errtext=²Ù×÷³É¹¦£¡")
%>














