聊天室的基本方法

 

（1）、在golbal文件中利用application设定访问人数的计数器

<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

'Sub Session_OnEnd(Sender As Object,e As EventArgs)

 '  Application.lock

  ' Dim count As Integer

   'If Application("Current")>=20 then

    '  count=0

     ' Application("Current")=0

   'Else

   '   count=Application("Current")

   'End If

   'Application("Chats")(count)=now & Session("User") & "离线!"

  'Application("Current")+=1

  'Application.Unlock

'End Sub

</Script>

（2）、实现“无刷新”更新数据

原理：使用隐藏帧来获取数据，然后将隐藏帧的数据显示出来。从页实现“无刷新”更新数据。    使用隐藏帧刷新数据最重要的技术是在两个Frame中传送数据。同一份数据在两个Frame的表单中显示，其中一个用于从服务器端获取数据，为了避免刷新感，可以将这个Frame隐藏起来，另一个Frame用于显示数据，建立一个简单的HTML表单就足够了。当隐藏帧刷新完页面后，将刷新后的数据写到显示帧中，这样就实现了无刷新的效果。