<!--#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"))
room_id=cschat.room_id

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

user_list_str=""

user_list=split(cschat.getListvalue(Application( ConstStr & "_room_list"),room_id,12)," ")

set cschat=nothing

for i=0 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),"$>")
    if user_list_str<>"" then user_list_str=user_list_str&","
    user_list_str=user_list_str&"'"&user_list(i)&" "&user_array2(2)&" "&user_array2(6)&" "&user_array2(12)&"'"
  end if
next
application.unlock%>
<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'><meta content="text/html;charset=gb2312" http-equiv="content-type">
<script>parent.userlist=new Array(<%=user_list_str%>);parent.newlist=1;</script>