<%application.lock myname=Session("myname") set rsparam=conn.execute("select * from param") myid=Session("myid") call get_guests del_flag=0 if myname="" or myid="" then elseif myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then else if guests(myid,4)=rsparam("superlevel") then del_flag=1 end if application.unlock if del_flag then username=trdb(request("name")) conn.execute("delete from user where username='"&username&"'") conn.Execute("INSERT INTO record (occ_env,occ_time,for_what) VALUES ('聊天室管理员 删除了用户 『"&username&"』','"&now()&"','此处只作记录，不需要输入理由！')") call echoerr("你成功的删除了聊友"&username&"！","allact.asp") else call echoerr("你没有权利执行此项操作！","allact.asp") end if conn.close Set conn=nothing%>