📄 global.asax
字号:
<Script Language="VB" RunAt="Server">
Sub Application_OnStart(Sender As object,e As EventArgs)
'建立用户列表
Dim user(20) As String
Application("user")=user
Application("UserNum")=0
'预置20笔聊天记录
Dim chats(20) As String
Application("chats")=chats
'当前记录数
Application("Current")=0
'定义接受列表
Dim receive(40) As String
Application("sendto")=receive
'定义发送列表
Dim Owner(40) As String
Application("Owner")=Owner
'定义私聊内容列表
Dim chat(40) As String
Application("chat")=chat
'定义私聊内容的当前记录数
Application("chatnum")=0
'定义私聊信息发送时间
Dim chattime(40) As String
Application("chattime")=chattime
End Sub
</Script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -