global.asax

一个关于asp.net的源码

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