constants.inc

简单的

<%
Const MESSAGES = 25				' 显示屏幕多少个信息
Const USERS = 10				' 设置最大多少人在线
CONST TIMEOUT = 300				' 设置多少分钟不操作自动退出 (5*60=300)
Const CLEAR_ON_EMPTY = False	
Function FindUser(userName)
	userName = Trim(userName)

	Dim UserWasFound
	UserWasFound = False

	Dim arUserNames, i
	arUserNames = Application.StaticObjects.Item("ASPChat").Items
	For i = 0 To Application.StaticObjects.Item("ASPChat").Count-1
		If (StrComp(userName, arUserNames(i), 1) = 0) Then
			UserWasFound = True
			Exit For
		End If
	Next
	FindUser = UserWasFound
End Function
%>