【正文】 a:初 始狀態(tài) b:添加數(shù)據(jù) c:刪除數(shù)據(jù) 其控制變量有 : MsgHeadPointer ,MsgTailPointer,Msg_ID(變量說明見 ) 其操作包括 : 創(chuàng)建一個空的緩沖 CreateCache(MaxLines , MaxColumn , RoomAppName) 初始化一個緩沖 Init_Cache(cache , MaxLines , MaxColumn , RoomAppName) 如果緩沖為空 ,則返回 TRUE,否則返回 FALSE Cache _Is_Empty(cache , RoomAppName) 向隊列中添加一條聊天記錄 AddToCache(cache , MaxLines , RoomAppName , Talker, TalkTo , Msg , ChatMethod) 獲取緩沖中新的全局聊天消息 GetNewestMsg(cache , MaxLines , RoomAppName ) 具體函數(shù)程序 ,請參考附錄 ! 由于高速緩沖在整個聊天系統(tǒng)運行中是非常重要的共享數(shù)據(jù)區(qū) ,所以我們使用Application 對象保存高速緩沖數(shù)組 . 數(shù)據(jù)接收實現(xiàn) 數(shù)據(jù)接收模塊 , 接 收用戶從客戶端通過表單提交上來的聊天信息 , 然后把他添加進高速緩沖 . 主要利用 ASP 的 Request 對象截獲表單數(shù)據(jù) ,具體程序如下 : 基于 ASP 聊天室設(shè)計與實現(xiàn) 12 用戶輸入聊天內(nèi)容 并發(fā)送到服務(wù)器端 獲取用戶提交上來的信息 RoomAppName = request(RoomAppName) 39。 ChatNickName = (RoomAppName)(ChatNickName) ChatRoomTrueName = (RoomAppName)(ChatRoomTrueName) ChatRoomAppName = (RoomAppName)(ChatRoomAppName) MsgLastLinePos = CLng((RoomAppName)(MsgLastLinePointer)) 39。 return false。 ()。39。 Msg = MsgArray[i]。\39。 + TalkTo + 39。 + Msg。)39。\39。 } else { if (Talker == selfname) Talker = 39。)。)39。amp。) PrivateChatMessages = PrivateChatMessages + 。39。 SpliteScreen= 。 var MsgArray = new Array()。 39。 39。amp。amp。amp。 RoomAppName) 39。39。拓寬了自己的視野，更多的發(fā)現(xiàn)了自己的不足。 張老師 平日里工作繁多，但在我做畢業(yè)設(shè)計的整個過程中都給予了我悉心的指導(dǎo)。機械工業(yè)出版社。 由于本人水平有限，這個系統(tǒng)還存在許多不足之處，出現(xiàn)錯誤或不足之處，希望領(lǐng)導(dǎo)批評指正。本人通過用 ASP和數(shù)據(jù)庫構(gòu)成基本的聊天系統(tǒng)，讓我對它們有了更深一層的了解，并進一步學(xué)習(xí)使用了 ASP，對軟件開發(fā)的基本流程有了基本的了解。amp。39。39。39。 } 4. 實時刷新 為保證全局聊天信息的同步更新 ,我們使用 HTML 語言 head 區(qū)的 META標(biāo)簽實現(xiàn)客戶端頁面的自動刷新 ,具體代碼如下 : 39。39。39。生成 新信息記錄數(shù)組 每個對應(yīng)字段的初始值 , 初始值由 ASP 在服務(wù)器端解釋生成 ,包含在TheNewstMsg數(shù)組中 , 數(shù)組在客戶端分配應(yīng)用 . var TalkerArray = new Array()。 39。39。 PrivateChatMessages!=39。 + Msg。 + TalkTo + 39。\39。 說 : 39。39。 + Talker + 39。 + TalkTo+ 39。javascript:SetTalkTo(0,\39。39。I++) { Talker = TalkerArray[i]。39。 ()。 var nKey=0。加入當(dāng)前用戶信息到高速緩沖 (MaxLines 是系統(tǒng)常數(shù) 參考 ) AddToCache(cache , MaxLines , RoomAppName , Talker, TalkTo , Msg , ChatMethod) 數(shù)據(jù)發(fā)送實現(xiàn) 數(shù)據(jù)發(fā)送模塊 ,由客戶端瀏覽器每隔 5 秒鐘 , 主動刷新服務(wù)器端的數(shù)據(jù)發(fā)送頁面 , 發(fā)送程序把當(dāng)前用戶的所需的全局聊天信息從高速緩沖中取出并發(fā)送給客戶端 .主要應(yīng)用了 ASP 的 Request 和 Cookie 技術(shù)獲取 當(dāng)前用戶的在聊天室中的系統(tǒng)狀態(tài)信息 , 來判斷發(fā)送的信息內(nèi)容 , 應(yīng)用 Application 對象從高速緩沖中讀取信息 .具體程序如下 : RoomAppName = request(RoomName) 39。消息緩沖中 標(biāo)識消息記錄唯一的遞增變量 application(Faces) 39。 ASP 內(nèi)置 ADO 組件 ,因此可以輕松的存取各種數(shù)據(jù)庫 。 ASP 以對象為基礎(chǔ) ,因此可以使用 ActiveX 控件繼續(xù)擴充其功能 。_Msg_ID) 39。公聊 =off 或 私聊 =on 39。 var ieKey=。 = 。 var TalkTo = 39。iARRAYLEN。javascript:SetTalkTo(0,\39。 else TalkTo = (39。 對 39。39。javascript:SetTalkTo(0,\39。 + TalkTo + 39。 + Talker + 39。39。 說 : 39。amp。 PublicChatMessages!=39。如果 數(shù)初始值 數(shù)組 為空 說明沒有新信息更新 var PrivateChat,SpliteScreen,ScrollSreen,FrontColor,BackColor,selfname。 39。 var PrivateChatMessages= 39。在私聊信息顯示區(qū) 追加新信息 if (PrivateChatMessages!=39。 (0,65000)。UserSexamp。rs_room(Roomname)amp。amp。 and RoomAppName=39。 (sql) 聊天服務(wù)器 消息分發(fā)引擎 用戶 1 (聊天客戶端 IE) 用戶 2 (聊天客戶端 IE) 用戶 3 (聊天客戶端 IE) 用戶 4 (聊天客戶端 IE) 發(fā)送聊天消息 發(fā)送聊天消息 發(fā)送聊天消息 發(fā)送聊天消息 接收全局聊天消息 接收全局聊天消息 接收全局聊天消息 接收全局聊天消息 服務(wù)器端 聊天信息接收分發(fā)引擎 客戶端 聊天信息輸入與發(fā)送模塊 全局聊天消息緩沖 實例聊天室列表 表情圖釋索引表 聊天用戶個人信息保存模塊 聊天室顯示屬性個性化設(shè)置模塊 聊天室在線用戶列表 全局聊天信息接收與顯示模塊息保存模塊 全局模塊 局部模塊 退出模塊 基于 ASP 聊天室設(shè)計與實現(xiàn) 19 登陸模塊 全局消息高速緩沖 信息 1 信息 2 信息 3 . 用戶 用戶 數(shù)據(jù)接收接 口 數(shù)據(jù)發(fā)送接 口 用戶 用戶 用戶輸入聊天內(nèi)容 按回車鍵 或者 發(fā)送按鈕 客戶端發(fā)送程序 驗證內(nèi)容并提交到服務(wù)器端程序 服務(wù)器端 接收提交信息并處理 完成 1次信息顯示 客戶端顯示程序 整理信息內(nèi)容并顯示到瀏覽器頁面的信息顯示端 客戶端瀏覽器接收 從服務(wù)器端發(fā)送過來的更新信息 服務(wù)器端程序 從信息高速緩沖中獲取更新信息 完成 1次信息提交 用戶單擊控制面板上的表情圖釋超鏈接 由室登陸程序負(fù)責(zé)分配用戶資源 ,讓用戶在聊天室 中進行交互 用戶輸入 昵稱 并點擊 想進聊天室 服務(wù)器端程序 羅列出所有聊天室 彈出圖釋表情選擇對話框 信息接收模塊分析格式化圖釋符號 ,并用 Html的 img圖片標(biāo)簽替換到聊天內(nèi)容中 ,使發(fā)送到瀏覽器時可以顯示圖釋 用戶選擇所要的圖釋表情 , 對話框把選擇的表情符合信息插入 ,聊天內(nèi)容輸入框 用戶聊天室客戶端狀態(tài)初始化 分配服務(wù)器端資源 驗證表單信息正確性 ,和昵稱重名 接收用登陸表單 把用戶加進聊天室 結(jié)束語 文字聊天系統(tǒng)主要用到三方面的工作：使用 ASP提供的 Application和session兩個對象， 構(gòu)造一個基本的聊天室系統(tǒng)，其中 Application對象和 Session對象分別用來存儲聊天用戶的聊天內(nèi)容和用戶名，而聊天室的定時刷新用 meta基于 ASP 聊天室設(shè)計與實現(xiàn) 20 標(biāo)記實現(xiàn)。 通過本課題的設(shè)計和實現(xiàn)，以后需要在以下幾方面多下功夫： （ 1） 對編程的進一步理解和運用； （ 2） 對軟件工程編程思想進一步提高。 基于 ASP 聊天室設(shè)計與實