📄 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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -