作者：網絡之門

　   聊天室程序是一個application和session對象結合性很強的asp程序。首先，它比較具有實時性，聊天速度太慢，那么沒有人會喜歡的，而且在多人同時發言的時侯，如果程序處理不好，那么難免會發生張官李戴的現象，比如說明明張三說的話在先。李四說的話在后，但顯示出來的結果卻是倒轉了。還有就是每個客戶端顯示的談話內容不同步。（這里強調一點，聊天室的談話內容自動更新方式主要是兩種，一種是服務器自動更新，也就是它的聊天顯示內容區是一個正在打開中的html流，每當服務器接收到用戶的談話內容就會發送到用戶的瀏覽器中。另一種是用戶端定時向服務器端發出更新請求。后者的實時性沒前者強。但制作起來簡單，要完成服務器端自動更新，光靠asp是無法完成的。因為ASP沒有內置的延時功能?，F在所舉例的聊天室主要是以后者來說明的，但方法同樣可以前者里使用）

　　要解決多個用戶同時發言以及顯示的順序問題，那么就必須為談話內容建立一個緩沖區，就好象操作系統的鍵盤緩沖區的功能一樣，即使系統正在忙于處理別的任務，但還是可以準確地接受用戶輸入。

　　上面的程序例子：

dim chats(20)
for n=1 to 20
chats(n)=application("chats")(n)
next
　　就是建立了一個20個元素的chats數組，那么只需要再建立一個全局公用的計數器（用application對象來保存），用以指示當前最新的發言內容是在那一個元素當中。而每個用戶又定義一個session對象的計數器。用以記錄當前聊天者本機顯示的信息是顯示到那一條談話記錄上。兩者之差的談話內容都必須在下一次更新說話內容的時侯顯示出來。

　　chats數組作為一個談話緩沖區，是需要循環使用的。比如第一句發言的保存在chats(1)中，第二十句則保存在chats(20)中，而第二十一句則重新使用chats(1)來保存，而把第一句的內容覆蓋掉。而chats數組只是用于處理公共的談話內容。也就是不是“悄悄話”如果把悄悄話也作為一條新的信息保存在這里，那么就會影響的計數器了。因為對于非悄悄話的聊天對象來說。這句話是無意義的。為了減少條件判斷，就把悄悄話另外用application("chat")這個應用對象變量來保存。在悄悄話的處理用，小虎并沒有使用緩沖區，因此當同一聊天室內多個網友同時使用悄悄話功能時，就可能出現有的悄悄話在沒被顯示出來之前，被漏掉的缺點，大家不妨可以發揮自己的智慧去改進一下哦：）

　　當處理完chats的對話內容后。必須把它重新存儲到application("chats")(n)這個全局的談話緩沖區中，那樣才能讓所有用戶共享對話內容。

　　下面是對耳語的談話處理

'耳語處理
application("chat")="<font color=blue>"&usertime&"</font> <font color=black>"&username&"</font> <I>悄悄地對<font color=#00bb00>&nbsp;"&request.FORM("whoto")&" </font>耳語</I>:<font color=#0000aa> "&usersays&"</font><BR><BR>"
'對誰說
application("chatto")=request.FORM("whoto")
'說話的人
application("owner")=username
session("chat")="true"
end if

　　session("chat")是一個用來記錄用戶是否有悄悄話的標記，當更新對話內容的時候，就通過判斷這個標記來判斷是否有悄悄話產生。同時。通過applicaton("chat")記錄對話內容，applicaton("chatto")悄悄話的對象，application("owner")保存發言者本人（別忘了悄悄話是自己和接受悄悄話的對方可以看見的哦：（，還有，當對ALL（所有人）發悄悄話時，大家都應能看見這句瞧瞧話。

當發言內容都分別進入了application("chats")(n)和applicaton("chat")這兩個談話緩沖區后。下一步要做的就是顯示出對話內容了。這里先向大家提一下如何實現聊天事的定時刷新（客戶端主動）

         在我們的html文件的頭有一個這樣的標記

         <meta http-equiv="refresh" content="2.5">

         這里示了html文檔的更新類行，上面這個標記就是把本文檔按2.5秒的速度不斷自動刷新，那么利用這一點，就可以實現自動更新對話內容了。我們使用的顯示對話的asp文件名為top.asp。下一節大家一起來看看它的結構。