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

application.unlock
if my_level=0 then
  set cschat=nothing
  response.end
end if
myname=cschat.myname
room_id=cschat.room_id

room_owner=cschat.getListvalue(Application( ConstStr & "_room_list"),room_id,1)
set cschat=nothing

if lcase(myname)=lcase(room_owner) and my_level-application( ConstStr & "_l_kick")<0 then my_level=application( ConstStr & "_l_kick")
votes=application( ConstStr & "_votes")
if (votes(0)<>0 and votes(1)=myname) then my_level=1

selwho=request("selwho")
errText="【系统】"&selwho&"："
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open Application( ConstStr & "_connstr")
set rs=conn.execute("SELECT * FROM user WHERE username='" & selwho & "'")
if rs.eof or rs.bof then
  errText=errText&"用户名尚未注册！"
else
  if rs("sex")=0 then
    sex="男"
  else
    sex="女"
  end if
  errText=errText&sex&",<font color=9900cc>"&rs("log_time")&"</font>首次访问,共访问<font color=9900cc>"&rs("visit_num")&"</font>次，经验值<font color=9900cc>"&rs("exp_num")&"</font>,状态："

  towho_level=rs("user_level")
  EXflag=false
  onlineinfo="不在线。"

  if instr(Application( ConstStr & "_user_list"),"<$"&selwho&"$>")<>0 then
     sel_user_array=split(Application( ConstStr & "_user_list"),"<$"&selwho&"$>")
     sel_user_array2=split(sel_user_array(1),"$>")
     sel_room_id=sel_user_array2(4)
     onlineinfo="在线，于<font color=9900cc>"&sel_user_array2(0)&"</font>登录,未发言<font color=9900cc>"&datediff("n",sel_user_array2(10),now())&"</font>分，未存点<font color=9900cc>"&datediff("n",sel_user_array2(11),now())&"</font>，未请求<font color=9900cc>"&datediff("s",sel_user_array2(5),now())&"</font>秒。"
     if sel_room_id-room_id=0 then EXflag=true
  end if
  errText=errText&onlineinfo
  admininfo="[<font style=\'color:red;cursor:hand\' onclick=\"&chr(34)&"window.open(\'overroom.asp?towho="&selwho&"\',\'overroom\',\'width=550,height=300,scrollbars=1\')\"&chr(34)&">呼叫</font>]"
  if (my_level-application( ConstStr & "_l_kick")>=0 or my_level-application( ConstStr & "_l_lockip")>=0) and my_level-towho_level>0 then
     if EXflag and lcase(selwho)<>lcase(room_owner) then
       if my_level-application( ConstStr & "_l_kick")>=0 then
         admininfo=admininfo&"[<font style=\'color:red;cursor:hand\' onclick=\"&chr(34)&"forwhat=prompt(\'请输入理由！\',\'到聊天室捣乱！\');if (forwhat) window.open(\'douser.asp?cmdYes=踢人&selwho="&selwho&"&forwhat=\'+forwhat,\'newsay\')\"&chr(34)&">踢出</font>]"
       end if
       if my_level-application( ConstStr & "_l_lockip")>=0 then
         admininfo=admininfo&"[<font style=\'color:red;cursor:hand\' onclick=\"&chr(34)&"forwhat=prompt(\'请输入理由！\',\'到聊天室捣乱！\');if (forwhat) window.open(\'douser.asp?cmdYes=封IP&selwho="&selwho&"&forwhat=\'+forwhat,\'newsay\')\"&chr(34)&">封IP</font>]"
       end if
     end if
     if (my_level-application( ConstStr & "_l_lockuser")>=0) then
       admininfo=admininfo&"[<font style=\'color:red;cursor:hand\' onclick=\"&chr(34)&"forwhat=prompt(\'请输入理由！\',\'到聊天室捣乱！\');if (forwhat) window.open(\'killuser.asp?cmdYes=冻结用户&selwho="&selwho&"&forwhat=\'+forwhat,\'newsay\')\"&chr(34)&">冻结用户</font>]"
     end if
     if my_level-application( ConstStr & "_l_colduser")>=0 then
       admininfo=admininfo&"[<font style=\'color:red;cursor:hand\' onclick=\"&chr(34)&"forwhat=prompt(\'请输入理由！\',\'到聊天室捣乱！\');if (forwhat) window.open(\'killuser.asp?cmdYes=永久冻结&selwho="&selwho&"&forwhat=\'+forwhat,\'newsay\')\"&chr(34)&">永久冻结</font>]"
     end if
  end if
  errText=errText&admininfo
end if
rs.close
set rs=nothing
conn.close
set conn=nothing%>
<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'><meta content='text/html;charset=gb2312' http-equiv='content-type'><SCRIPT>parent.addsay(-1,'<%=errText%>','','<%=myname%>',0,'black','',-2,'<%=time()%>');</script>