【正文】 摘 要 本文主要講述使用 ASP 提供的 Application和 session 兩個對象，構造一個基于 ASP 聊天室設計與實現(xiàn) 3 基本的聊天室系統(tǒng)，其中 Application 對象和 Session對象分別用來存儲聊天用戶的聊天內容和用戶 名，而聊天室的定時刷新用 meta標記實現(xiàn) 關鍵詞 ： ASP Application 對象 Session 對象定時刷新聊天。 ASP 內置 ADO 組件 ,因此可以輕松的存取各種數(shù)據(jù)庫 。消息緩沖環(huán)結構中的頭指針[這里用數(shù)組下標標識 ] application(RoomAppName amp。消息緩沖中 標識消息記錄唯一的遞增變量 application(Faces) 39。說話者 TalkTo = request(TalkTo) 39。加入當前用戶信息到高速緩沖 (MaxLines 是系統(tǒng)常數(shù) 參考 ) AddToCache(cache , MaxLines , RoomAppName , Talker, TalkTo , Msg , ChatMethod) 數(shù)據(jù)發(fā)送實現(xiàn) 數(shù)據(jù)發(fā)送模塊 ,由客戶端瀏覽器每隔 5 秒鐘 , 主動刷新服務器端的數(shù)據(jù)發(fā)送頁面 , 發(fā)送程序把當前用戶的所需的全局聊天信息從高速緩沖中取出并發(fā)送給客戶端 .主要應用了 ASP 的 Request 和 Cookie 技術獲取 當前用戶的在聊天室中的系統(tǒng)狀態(tài)信息 , 來判斷發(fā)送的信息內容 , 應用 Application 對象從高速緩沖中讀取信息 .具體程序如下 : RoomAppName = request(RoomName) 39。獲得程序生成的 需更新記錄的 javascript 消息數(shù)組 TheNewstMsg = GetNewestMsg(application(RoomAppName),MaxMsgLines,RoomAppName ) 39。 var nKey=0。 } 2. 表單數(shù)據(jù)驗證提交函數(shù) function printchatmsg() { if ( !=39。 ()。 var Arraylen = 0 。39。39。I++) { Talker = TalkerArray[i]。 Msg = (FrontColor)//前景設置 if(SpliteScreen)//如果分屏才有私聊信息 if (Talker == selfname || TalkTo == selfname)//自己對別人說的話 { if (Talker == selfname) Talker = 39。39。)。javascript:SetTalkTo(0,\39。)39。 + TalkTo+ 39。你 39。 + Talker + 39。 if (TalkTo == selfname) TalkTo = 39。39。)。 說 : 39。 else Talker = (39。\39。你 39。 + TalkTo + 39。 PublicChatMessages = PublicChatMessages + Saytime + Talker + 39。 + Msg。39。 PrivateChatMessages!=39。39。39。39。 39。 FrontColor = 。生成 新信息記錄數(shù)組 每個對應字段的初始值 , 初始值由 ASP 在服務器端解釋生成 ,包含在TheNewstMsg數(shù)組中 , 數(shù)組在客戶端分配應用 . var TalkerArray = new Array()。 39。39。39。39。 =60%,*。 } 4. 實時刷新 為保證全局聊天信息的同步更新 ,我們使用 HTML 語言 head 區(qū)的 META標簽實現(xiàn)客戶端頁面的自動刷新 ,具體代碼如下 : 39。39。39。39。39。39。39。amp。amp。amp。本人通過用 ASP和數(shù)據(jù)庫構成基本的聊天系統(tǒng)，讓我對它們有了更深一層的了解，并進一步學習使用了 ASP，對軟件開發(fā)的基本流程有了基本的了解。越來越多的知識壁壘，讓我們認識到 自主開發(fā)的重要性。 由于本人水平有限，這個系統(tǒng)還存在許多不足之處，出現(xiàn)錯誤或不足之處，希望領導批評指正。如果沒有 他們 的努力工作，此次設計的完成將變得非常困難。機械工業(yè)出版社。此次畢業(yè)設計才會順利完成。 張老師 平日里工作繁多，但在我做畢業(yè)設計的整個過程中都給予了我悉心的指導。無論對以后的學習還是工作，都是受益匪淺的。拓寬了自己的視野，更多的發(fā)現(xiàn)了自己的不足。39。39。39。 RoomAppName) 39。amp。amp。amp。amp。amp。amp。聊天信息顯示區(qū) 滾屏功能 if (ScrollSreen){ (0,65000)。 39。 39。 39。39。 var MsgArray = new Array()。 selfname = 。 SpliteScreen= 。 } 39。39。amp。) PrivateChatMessages = PrivateChatMessages + 。 if ( i Arraylen amp。amp。 + TalkTo + 39。)39。javascript:SetTalkTo(0,\39。)。39。 } else { if (Talker == selfname) Talker = 39。 對 39。\39。 基于 ASP 聊天室設計與實現(xiàn) 15 else TalkTo = (39。)39。javascript:SetTalkTo(0,\39。 + Msg。 PrivateChatMessages=PrivateChatMessages + Saytime + Talker + 39。 + TalkTo + 39。你 39。\39。 else Talker = (39。 Msg = MsgArray[i]。 for (i=1。39。39。 ()。) { ()。 return false。 代碼的設計 : 聊天內容輸入表單設計 說明 : 這里使用了一個 單行的文本框和一個按鈕控件 來做用戶的輸入界面 . 文本框控件名字為 chatmsgbox,顯示長度為 45 個字符 , 容量為 150個字符 (約75個中文字 ), 包含一個鍵盤按下事件 — onKeyPress 用于用戶輸入內 容后直接按回車直接觸發(fā)客戶端發(fā)送程序 . 按鈕控件 包含一個鼠標按下事件 — onClick 用于 用戶用鼠標單擊此按鈕觸發(fā) 客戶端發(fā)送程序提交聊天內容 . 基于 ASP 聊天室設計與實現(xiàn) 13 客戶端表單提交程序設計 這里我們用 javascript 程序 實現(xiàn) 頁面表單的提交 , 由表單事件觸發(fā)運行 . 1. 按鍵判斷函數(shù) function KeyDown(e) { var message。 ChatNickName = (RoomAppName)(ChatNickName) ChatRoomTrueName = (RoomAppName)(ChatRoomTrueName) ChatRoomAppName = (RoomAppName)(ChatRoomAppName) MsgLastLinePos = CLng((RoomAppName)(MsgLastLinePointer)) 39。聊天內容 ChatMethod = request(private) 39。 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 聊天室設計與實現(xiàn) 12 用戶輸入聊天內容 并發(fā)送到服務器端 獲取用戶提交上來的信息 RoomAppName =