<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #INCLUDE FILE = "inc.asp" -->
<%
Response.Buffer = True
Dim iRoom
iRoom = Request.QueryString("Room")

If iRoom = Empty Or Not IsNumeric(iRoom) Then err("非法访问房间，我们的房间是按数字进行编码的。")
iRoom = CInt(iRoom)
If iRoom < 1 Or iRoom > UBound(Application("UserList")) Then err("您所访问的房间超出了范围。")
Dim oChat
Set oChat = Server.CreateObject("LSChat.XML")
oChat.Configure g_SiteName, g_SiteDomain, g_DBString, g_ErrFile, g_ScriptName
%>

<html>
<head>
<script src="inc.js" language="javascript"></script>
<script>document.write("<title>"+Title+"查看在线人数</title>");</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="common.css">
</head>
<body <%=g_BodyTag%>>
<!-- #INCLUDE File = "top.asp" -->
<table border="0" cellspacing="0" cellpadding="0" align="center" width="80%" class="solid1">
  <tr>
    <td bgcolor="#FFFFFF"> 
      <table width="100%" border="0" cellspacing="1" cellpadding="3">
        <tr> 
          <th width="32" background="images/titlebg.gif"><font color="#FFFFFF">肖像</font></th>
          <th background="images/titlebg.gif"><font color="#FFFFFF">昵称(GUID)</font></th>
          <th background="images/titlebg.gif"><font color="#FFFFFF">性别</font></th>
          <th background="images/titlebg.gif"><font color="#FFFFFF">年龄</font></th>
        </tr>
        <%Call oChat.writeUserIndex(iRoom, "#DEE5FA")%>
      </table>
    </td>
  </tr>
</table>
<!-- #INCLUDE File = "bottom.asp" -->
<%
Set oChat = Nothing
%>
</body>
</html>
