constants.inc

来自「简单的」· INC 代码 · 共 22 行

<%
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
%>