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
End Sub
</Script>