<%Response.Buffer=true response.expires=0 myid=Session("myid") myname=Session("myname") if myid="" or myname="" then response.end application.lock call get_guests if myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then response.end my_level=guests(myid,4) if my_level<(-1*guests(myid,9)) then my_level=-1*guests(myid,9) call get_votes if (votes(0)<>0 and votes(1)=myname) then my_level=1 towho=request("username") forwhat=left(trdb(request("forwhat")),40) set rsparam=conn.execute("select * from param") if guests(myid,4)=rsparam("superlevel") then myname="聊天室管理员" if my_level-rsparam("llockuser")<0 then errText="你暂时还没有此高级管理权力！" elseif forwhat="" then errText="不注明原因，你想乱来啊？" else sql="SELECT out_info FROM user WHERE username='"&towho&"'" set Rs=conn.Execute(sql) if Rs.eof or Rs.bof then errText="用户"&towho&"还没有注册呢！" else if rs("out_info")<6 then errText="用户"&towho&"的帐号并没有被冻结！" elseif rs("out_info")=7 and my_level-rsparam("lcolduser")<0 then errText="用户"&towho&"的帐号被永久冻结，你权力不够！" else conn.Execute("UPDATE user SET out_info=1 WHERE username='"&towho&"'") end if end if end if if errText="" then conn.Execute("INSERT INTO record (occ_env,occ_time,for_what) VALUES ('"&myname&" 解冻了用户 "&towho&" 的帐号','"&now()&"','"&forwhat&"')") call get_says say_id=says(current,0)+1 current=current+1 if current>MaxTalk then current=0 says(current,0)=say_id says(current,1)="大家" says(current,2)="大家" says(current,3)=false says(current,4)=guests(myid,5) says(current,5)="'【解冻】##解冻了用户%%的帐号！','"&myname&"','"&towho&"',0,'#cc6600','green',-2,'"&time()&"'," guests(myid,11)=now() call put_guests call put_says errText="你成功地解冻了用户("&towho&")的帐号!" end if call echoerr(errText,"superuser.asp") application.unlock%>