<%@ Language=VBScript %>
<%Option Explicit
Response.Buffer = True
Response.Expires = 0
%>
<!-- #INCLUDE FILE = "inc.asp" -->
<!-- #INCLUDE FILE = "config.asp" -->
<html>
<head>
<script language="javascript" src="ref.js"></script>
</head>
<body>
<%
Dim iRoom, iGUID

iRoom = Request("Room")
If iRoom = Empty Then err("请填写房间号")
If Not IsNumeric(iRoom) Then err("非法访问房间，我们的房间是按数字进行编码的。")
iRoom = CInt(iRoom)
If iRoom < 1 Or iRoom > UBound(Application("UserList")) Then err("您所访问的房间号超出了范围。")

If Session("GUID") = Empty Then err("您已经退出聊天室了。")
Dim oChat
Set oChat = Server.CreateObject("LSChat.XML")
oChat.Configure g_SiteName, g_SiteDomain, g_DBString, g_ErrFile, g_ScriptName
oChat.refresh iInterval + 3, bSetTimeOut, iWillTimeOut, iTimeOut

Set oChat = Nothing
%>
</body>
</html>