<%@ Language=VBScript %>
<%Option Explicit%>
<!-- #INCLUDE FILE = "inc.asp" -->
<%
If Session("GUID") = Empty Then err("您已经退出聊天室了。")

Dim iGUID, sIgnore, bIgnore, oChat'这里的iGUID是被忽略对象的GUID，不是自己的

iGUID = CInt(Request("GUID"))
sIgnore = Trim(Request("Ignore"))
'注意：bIgnore的值为false时是用来从忽略列表中删除指定NickName的，取值为true是用来添加NickName到忽略列表的。

If sIgnore <> "true" And sIgnore <> "false" Then err("参数输入错误。")
If sIgnore = "true" Then
	bIgnore = True
Else
	bIgnore = False
End If

Set oChat = Server.CreateObject("LSChat.XML")
oChat.Configure g_SiteName, g_SiteDomain, g_DBString, g_ErrFile, g_ScriptName
oChat.ignore bIgnore, iGUID
Set oChat = Nothing
%>