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

myname=cschat.myname
room_id=cschat.room_id
if my_level-application( ConstStr & "_superlevel")<>0 then
  response.redirect("showerr.asp?errtext=你没有权利执行此项操作！")
else
  Set Conn=Server.CreateObject("ADODB.Connection") 
  conn.open Application( ConstStr & "_connstr")
  act_name=request("name")
  conn.execute("delete from action where act_name='"&act_name&"'")
  occ_env=cschat.GetListValue(Application(ConstStr & "_room_list"), room_id, 0)&">"&myname&">"&Request.ServerVariables("REMOTE_ADDR")&">/"&act_name&"> >此处只作记录>删除动作%%"
  conn.Execute("INSERT INTO record (stype,occ_time,occ_env) VALUES (53,'"&now()&"','"&occ_env&"')")
  response.redirect("showerr.asp?errtext=你成功的删除了动作<u>"&act_name&"</u>！")  
  conn.close
  Set conn=nothing
  application.unlock
end if
set cschat=nothing
application.unlock%> 














