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

if my_level=0 then
  response.redirect("showerr.asp")
  set cschat=nothing
  application.unlock
  response.end
end if
myname=cschat.myname
room_id=cschat.room_id

true_level=cint(cschat.getListvalue(Application( ConstStr & "_user_list"),myname,3))
set cschat=nothing

if request("room")<>"" then room_id=request("room")

all_room_array=split(Application( ConstStr & "_room_list"),"$><$")

if instr(Application( ConstStr & "_room_list"),"<$"&room_id&"$>")=0 then room_id=replace(all_room_array(1),"$>","")

op_str=""
for i=0 to UBound(all_room_array) step 2
  all_room_array2=split(all_room_array(i),"$>")
  room_id2=replace(all_room_array2(0),"<$","")
  room_name=all_room_array2(1)
  if trim(all_room_array2(13))="" then
    user_num=0
  else
    user_array=split(trim(all_room_array2(13))," ")
    user_num=UBound(user_array)+1
  end if
  op_str=op_str+"<option value='"&room_id2&"'"
  if room_id2=room_id then
    op_str=op_str+" selected"
  end if
  op_str=op_str+">"&room_name&"["&user_num&"人]</option>"
next

room_array=split(Application( ConstStr & "_room_list"),"<$"&room_id&"$>")
room_array2=split(room_array(1),"$>")

if trim(room_array2(12))="" then
  user_num=0
else
  user_list=split(room_array2(12)," ")
  user_num=UBound(user_list)+1
end if
page_count=user_num\50
if page_count*50<user_num then page_count=page_count+1
page=cint(request("page"))
if page<1 then page=1
if page>page_count then page=page_count
page_start = (page-1)*50

count=1%>
<META content="text/html; charset=gb2312" http-equiv=content-type><meta HTTP-EQUIV='Pragma' CONTENT='no-cache'>
<link rel="stylesheet" type="text/css" href="chat.css">
<script>function xx(n,e,s,r,x,i,l){document.write("<tr><td nowrap><a href='topuser.asp?selwho="+n+"'>"+n+"</a></td><td>"+e+"</td><td>"+s+"</td><td>"+r+"</td><td>"+x+"</td><td>"+i+"</td><td>"+l+"</td>");}</script>
<body  style="background-color:EAF2FF;color:112233;scrollbar-Base-Color: #b0d8ff;SCROLLBAR-DARKSHADOW-COLOR:#b0d8ff;SCROLLBAR-arrow-COLOR:#336699;SCROLLBAR-TRACK-COLOR: EAF2FF;SCROLLBAR-3DLIGHT-COLOR: #b0d8ff;SCROLLBAR-SHADOW-COLOR: #336699;SCROLLBAR-HIGHLIGHT-COLOR: #b0d8ff;" leftmargin=3 topmargin=10 >
<table height=100% width=100%><script src="showad.asp?id=1"></script><tr><td align=center valign=center >
  <table align=center width=90% cellspacing=0 cellpadding=0 border=1 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#ffffff>
    <tr><td colspan=7 class=navy2>房间〖<%=room_array2(0)%>〗在线人员信息</td>
    <tr><td colspan=7 nowrap style="background-color:EAF2FF;color:112233;scrollbar-Base-Color: #b0d8ff;SCROLLBAR-DARKSHADOW-COLOR:#b0d8ff;SCROLLBAR-arrow-COLOR:#336699;SCROLLBAR-TRACK-COLOR: EAF2FF;SCROLLBAR-3DLIGHT-COLOR: #b0d8ff;SCROLLBAR-SHADOW-COLOR: #336699;SCROLLBAR-HIGHLIGHT-COLOR: #b0d8ff;" height=30>每页显示50个用户[共<%=page_count%>页]　　<a href='online_admin.asp?page=<%=page%>&room=<%=room_id%>'>刷新</a>　　房间选择：<select name="list" style="background-color:336699;color:white;" onchange="window.open('online_admin.asp?room='+this.value,'_self')">
<%response.write op_str%></select>
</td>
    <tr><td nowrap class=navy1>聊友呢称<td nowrap class=navy1>进入时间<td nowrap class=navy1>未说话(分)<td nowrap class=navy1>未请求(秒)<td nowrap class=navy1>未存点<td nowrap class=navy1>IP地址<td nowrap class=navy1>级别</tr>
<%if user_num>0 then
for i=page_start to UBound(user_list)
  if instr(Application( ConstStr & "_user_list"),"<$"&user_list(i)&"$>")<>0 then
    user_array=split(Application( ConstStr & "_user_list"),"<$"&user_list(i)&"$>")
    user_array2=split(user_array(1),"$>")
    ip=""
    if my_level-Application( ConstStr & "_l_seelevel")>=0 and true_level-user_array2(3)>=0 then
      l=user_array2(3)
      over_l=my_level-Application( ConstStr & "_l_seeip")+4
      if over_l>3 then
        ip=user_array2(1)
      end if
      if ip="" then
        location=instr(user_array2(1),".")
        for k=2 to over_l
          location=instr(location+1,user_array2(1),".")
        next
        ip=mid(user_array2(1),1,location)
      end if
    else
      l="&nbsp;"
      ip="&nbsp;"
    end if%>
    <script>xx("<%=user_list(i)%>","<%=user_array2(0)%>","<%=datediff("n",user_array2(10),now())%>","<%=datediff("s",user_array2(5),now())%>","<%=datediff("n",user_array2(11),now())%>","<%=ip%>","<%=l%>");</script>
    <%count=count+1
    if count>50 then exit for
  end if
next
end if
application.unlock%>
</table><BR>[<a href='online_admin.asp?page=<%=page%>&room=<%=room_id%>'>刷新</a>]
<%if page>1 then%> [<a href='online_admin.asp?page=1&room=<%=room_id%>'>首页</a>] [<a href='online_admin.asp?page=<%=page-1%>&room=<%=room_id%>'>上页</a>]<%end if%>
<%if page<page_count then%> [<a href='online_admin.asp?page=<%= page+1 %>&room=<%=room_id%>'>下页</a>] [<a href='online_admin.asp?page=<%= page_count %>&room=<%=room_id%>'>尾页</a>]<%end if%> [<a href='javascript:history.go(-1)'>后退</a>]</td></tr></table></form></body>



































































