global.asax

来自「一个关于asp.net的源码」· ASAX 代码 · 共 27 行

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