<!--#include file="inc_const.asp"-->
<%Response.CacheControl = "Private"
response.expires=0
application.lock
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
application.unlock
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:12;line-height:130%}
A {color:blue;TEXT-DECORATION: none;}
A:hover {color:#009900;TEXT-DECORATION: underline}
#divUpControl{position:absolute; width:11; left:130; top:0; z-index:1; text-align: center}
#divDownControl{position:absolute; width:11; left:130; top:270; z-index:1; text-align:center}
#divContainer{position:absolute; width:320; height:5000; overflow:hidden; top:0; left:0; clip:rect(0,320,5000,0); visibility:hidden} #divContent{position:absolute; top:0; left:0}
</style><body onmouseout='this.style.backgroundColor="#eaf2ff"' onmouseover='this.style.backgroundColor="#ddeeff"' style="margin:0px" bgcolor=EAF2FF title="请选择房间" onLoad=InitialiseScrollableArea();MM_preloadImages('images/downb.gif','images/upb.gif')>
<script language="JavaScript" src="data/sc.js"></script>
<table width=100% cellspacing=0 cellpadding=0 border=0><form>
<tr><td align=left nowrap>
&nbsp;选择房间[<a href=roomlist.asp>刷新</a>]<br>
<a href=rooms_info.asp title="显示房间信息" style="color:9900cc" target=viewroom>&nbsp;房间[<%=room_num%>]</a>;<a href=online_list.asp title="显示在线列表" style="color:red" target=viewlist>在线[<%=all_user_num%>]</a>
<%
for i=0 to UBound(all_room_array) step 2
  all_room_array2=split(all_room_array(i),"$>")
 if all_room_array2(15)="1" and all_room_array2(16)="1" then
  room_id=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(14)<>"" then room_name="<font color=green>"&room_name&"</font>"
  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
%>
<br><input <%if room_id-1=0 then%>checked<%end if%> type='radio' name='room' value=''
onclick="parent.document.frmLogin.room_id.value=<%=room_id%>"><a target='viewroom'
href='viewroom.asp?room_id=<%=room_id%>')" title='房主[<%=room_owner%>]房间人气[<%=room_exp%>]'><%=room_name%></a>[<%=user_num%>]
<%
 end if
next%></td></tr></form></table></div></div></script></body>





























































