<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #INCLUDE FILE = "../inc.asp" -->
<%
Dim oChat
Dim i
CheckAdminLogin()

Set oChat = Server.CreateObject("LSChat.ChatRooms")
oChat.Configure g_SiteName, g_SiteDomain, g_DBString, g_ErrFile, g_ScriptName
Dim rst
Set rst = oChat.GetAllChatRooms

%>
<html>
<head>
<title>检阅房间页面</title>
<link rel="stylesheet" href="manager.css" type="text/css">
<script src="../inc.js" language="javascript"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body <%=g_BodyTag%>>
<table border="0" cellspacing="1" cellpadding="3" align="center" width="100%"><%For i = 1 To rst.RecordCount%>
  <tr> 
    <td height="16" background="images/admin_bg_1.gif" class="Solid1"><b><%=i%></b>号房间：<a href="m_vroom.asp?RoomID=<%=rst("RoomID")%>"><%=rst("RoomName")%></a> 
      <%If rst("State") = 0 Then Response.Write "<font color=""red"">已关闭</font>"%>
      <--点击链接进入编辑模式</td>
  </tr>
  <tr> 
    <td>:::<b>欢迎致词</b>:::</td>
  </tr>
  <tr> 
    <td bgcolor="#F0F3FD">
      <%=rst("Welcome")%></td>
  </tr>
  <tr>
    <td>:::<b>房间说明</b>:::</td>
  </tr>
  <tr> 
    <td bgcolor="#F0F3FD">
      <%=rst("Description")%></td>
  </tr>
  <tr> 
    <td height="10"></td>
  </tr>
    <tr> 
    <td height="1" bgcolor="black"></td>
  </tr>
    <tr> 
    <td height="10"></td>
  </tr><%
  rst.MoveNext
  Next
  rst.Close
  Set rst = Nothing
  %>
</table>
<!-- #INCLUDE FILE = "../bottom.asp" -->
</body>
</html>