<!--#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
  set cschat=nothing
  application.unlock
  response.end
end if
room_id=cschat.room_id
all_room_array=split(Application(ConstStr & "_room_list"),"$><$")

if Application(ConstStr & "_user_list")="" then
  all_user_num=0
else
  all_user_array=split(Application(ConstStr & "_user_list"),"$><$")
  all_user_num=(UBound(all_user_array)+1)\2
end if

room_num=(UBound(all_room_array)+1)\2%>
<META content='text/html; charset=gb2312' http-equiv=content-type><meta HTTP-EQUIV='Pragma' CONTENT='no-cache'>
<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'><STYLE type=text/css>
td{FONT-SIZE:10pt;line-height:130%;text-align:left}
A {color:blue;TEXT-DECORATION: none;line-height:110%;}
A:hover {color:#009900;TEXT-DECORATION: underline}
</style>
<script>document.write("<body style='"+parent.gbt()+"margin:0'>");</script>
<table height=100% width=100%>
<tr><td colspan=2 valign=top><center><a href='room.asp'style='color:green' title=刷新房间列表><b>〖房间列表〗</b></a>
<tr><td style=text-align:right><a href=rooms_info.asp target=viewroom><font color=3366cc>房间[<%=room_num%>]</font></a><td><a href='newroom.asp' target='newroom' style='color:cc6622' title='建立新的房间'>建房</a>
<tr><td style=text-align:right><a href=online_list.asp target=viewlist><font color=cc0000>在线[<%=all_user_num%>]</font></a><td><a href=online_list.asp target=viewroom>列表</a></center></td></tr>
<tr><td colspan=2 height=100% valign=top><center><hr width=100% color=336699 size=1><table cellspacing=1 cellpadding=0 border=0>
<%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)
  room_owner=all_room_array2(2)
  room_exp=all_room_array2(11)
  if all_room_array2(16)<>"1" then
   room_name="<font color=666666>"&room_name&"</font>"
  elseif all_room_array2(15)-my_level>0 then 
   room_name="<font color=red>"&room_name&"</font>"
  elseif all_room_array2(14)<>"" then
   room_name="<font color=green>"&room_name&"</font>"
  end if
  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%>
  <TR><TD><%if room_id - room_id2=0 then%><%=room_name%>[<%=user_num%>人]<%else%>
  <a target=newsay href='room_op.asp?toroom=<%=room_id2%>' onclick="return confirm('你要换房到[<%=all_room_array2(1)%>]去吗？')" title='房主[<%=room_owner%>]房间人气[<%=room_exp%>]'><%=room_name%></a>[<%=user_num%>人]<%end if
  if my_level-application(ConstStr & "_l_delroom")>=0 and i<>0 then%><font style='color:red;cursor:hand' title='撤房' onclick="window.open('cutroom.asp?selroomid=<%=room_id2%>','cutroom','width=450,height=200,scrollbars=1')">※</font><%end if
next%></table><hr width=100% color=336699 size=1><%if my_level-application(ConstStr & "_l_delroom")>=0 then%><br><font color=red>※</font>-删除房间<%END IF%><br><font color=666666>灰</font>-房间关门<br><font color=red>红</font>-级别限制<br><font color=green>绿</font>-嘉宾房间</td></tr></table></body>





























































