global.asax

来自「设计中的通讯系统是用asp.net技术实现的基于web的聊天室系统。聊天室是We」· ASAX 代码 · 共 30 行

<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
      '定义用户的最后一次刷新时间
      Dim lastaccess(20) As Date
      Application("last")=lastaccess
 End Sub
</Script>