基于asp聊天室設(shè)計(jì)與實(shí)現(xiàn)(已改無錯(cuò)字)
2022-12-30 22:07:24 本頁(yè)面
【正文】 LinePos = CLng((RoomAppName)(MsgLastLinePointer)) 39。發(fā)送數(shù)據(jù)給 客戶端 39。獲得程序生成的 需更新記錄的 javascript 消息數(shù)組 TheNewstMsg = GetNewestMsg(application(RoomAppName),MaxMsgLines,RoomAppName ) 39。顯示新的全局聊天信息到客戶端 客戶端聊天信息輸入與發(fā)送模塊設(shè)計(jì) 功能說明 : 此模塊用于 用戶輸入聊天內(nèi)容 ,并發(fā)送到聊天室里 , 即實(shí)現(xiàn)在聊天室中發(fā)言的功能 。 代碼的設(shè)計(jì) : 聊天內(nèi)容輸入表單設(shè)計(jì) 說明 : 這里使用了一個(gè) 單行的文本框和一個(gè)按鈕控件 來做用戶的輸入界面 . 文本框控件名字為 chatmsgbox,顯示長(zhǎng)度為 45 個(gè)字符 , 容量為 150個(gè)字符 (約75個(gè)中文字 ), 包含一個(gè)鍵盤按下事件 — onKeyPress 用于用戶輸入內(nèi) 容后直接按回車直接觸發(fā)客戶端發(fā)送程序 . 按鈕控件 包含一個(gè)鼠標(biāo)按下事件 — onClick 用于 用戶用鼠標(biāo)單擊此按鈕觸發(fā) 客戶端發(fā)送程序提交聊天內(nèi)容 . 基于 ASP 聊天室設(shè)計(jì)與實(shí)現(xiàn) 13 客戶端表單提交程序設(shè)計(jì) 這里我們用 javascript 程序 實(shí)現(xiàn) 頁(yè)面表單的提交 , 由表單事件觸發(fā)運(yùn)行 . 1. 按鍵判斷函數(shù) function KeyDown(e) { var message。 var ieKey=。 var nKey=0。 if (ieKey==13||nKey==13) { printchatmsg()。 return false。 } return true。 } 2. 表單數(shù)據(jù)驗(yàn)證提交函數(shù) function printchatmsg() { if ( !=39。39。) { ()。 = 。 ()。 } Else { alert(發(fā)送內(nèi)容不能為空 !)。 ()。 } } 功能說明 : 接收 由消息分發(fā)引擎 發(fā)送過來的 全局聊天信息 ,并在客戶端利用javascipt 格式化信息 , 然后顯示在聊天內(nèi)容顯示區(qū) . 運(yùn)行性能 : 由于本模塊關(guān)系到用戶聊天時(shí) 的實(shí)時(shí)性 , 所以 要求客戶端每隔35 秒 刷新一次信息 , 以實(shí)現(xiàn)用戶之間的 實(shí)時(shí)交互 . 應(yīng)用技巧 : 在這里 我們巧妙的 應(yīng)用了服務(wù)器端的 VBscirpt 數(shù)組 和 客戶端的 Javascript 數(shù)組對(duì)象的特性 , 在 ASP 程序中配合使用 ,使程序從取信息到顯示信息一氣呵成 , 表現(xiàn)出良好的運(yùn)行效率 , 可謂是短小而精湛 . 符合了運(yùn)行性能的要求 . 代碼設(shè)計(jì) : 基于 ASP 聊天室設(shè)計(jì)與實(shí)現(xiàn) 14 在這里我們就應(yīng)用了 ASP 的這個(gè)功能 ,動(dòng)態(tài)的生成了 javascitpt 的數(shù)組的 初始內(nèi)容 ,好讓 javascript 信息顯示程序 在客戶端解釋的時(shí)候 ,每次都顯示不同的內(nèi)容 ,從而大幅度提高了 ASP 程序的運(yùn)行效率 . 客戶端 信息格式化函數(shù) (Javascript) function FormatMsg() { var i= 1。 var Arraylen = 0 。 var Talker = 39。39。 var TalkTo = 39。39。 var Msg = 39。39。 var Saytime = 39。39。 Arraylen = 。 for (i=1。iARRAYLEN。I++) { Talker = TalkerArray[i]。 TalkTo = TalkToArray[i]。 Msg = MsgArray[i]。 Saytime = SaytimeArray[i]。 Msg = (FrontColor)//前景設(shè)置 if(SpliteScreen)//如果分屏才有私聊信息 if (Talker == selfname || TalkTo == selfname)//自己對(duì)別人說的話 { if (Talker == selfname) Talker = 39。你 39。 else Talker = (39。javascript:SetTalkTo(0,\39。39。 + Talker + 39。\39。)39。)。 if (TalkTo == selfname) TalkTo = 39。你 39。 else TalkTo = (39。javascript:SetTalkTo(0,\39。39。 + TalkTo + 39。\39。)39。)。 PrivateChatMessages=PrivateChatMessages + Saytime + Talker + 39。 對(duì) 39。 + TalkTo+ 39。 說 : 39。 + Msg。 } else { if (Talker == selfname) Talker = 39。你 39。 else Talker = (39。javascript:SetTalkTo(0,\39。39。 + Talker + 39。\39。)39。)。 if (TalkTo == selfname) TalkTo = 39。你 39。 基于 ASP 聊天室設(shè)計(jì)與實(shí)現(xiàn) 15 else TalkTo = (39。javascript:SetTalkTo(0,\39。39。 + TalkTo + 39。\39。)39。)。 PublicChatMessages = PublicChatMessages + Saytime + Talker + 39。 對(duì) 39。 + TalkTo + 39。 說 : 39。 + Msg。 } else { if (Talker == selfname) Talker = 39。你 39。 else Talker = (39。javascript:SetTalkTo(0,\39。39。 + Talker + 39。\39。)39。)。 if (TalkTo == selfname) TalkTo = 39。你 39。 else TalkTo = (39。javascript:SetTalkTo(0,\39。39。 + TalkTo + 39。\39。)39。)。 PublicChatMessages = PublicChatMessages + Saytime + Talker + 39。 對(duì) 39。 + TalkTo + 39。 說 : 39。 + Msg。 } if ( i+1 Arraylen amp。amp。 PublicChatMessages!=39。39。) PublicChatMessages = PublicChatMessages + 。 if ( i Arraylen amp。amp。 PrivateChatMessages!=39。39。) PrivateChatMessages = PrivateChatMessages + 。 }//for //背景設(shè)置 if (BackColor != 39。39。 amp。amp。 PublicChatMessages!=39。39。 ) PublicChatMessages = 39。39。 + PublicChatMessages + 39。39。 return (PublicChatMessages)。 } 39。如果 數(shù)初始值 數(shù)組 為空 說明沒有新信息更新 var PrivateChat,SpliteScreen,ScrollSreen,FrontColor,BackColor,selfname。 39。獲取用戶在 聊天室里的個(gè)性化設(shè)置狀態(tài) PrivateChat = 。 SpliteScreen= 。 ScrollSreen = 。 FrontColor = 。 BackColor = 。 selfname = 。 39。生成 新信息記錄數(shù)組 每個(gè)對(duì)應(yīng)字段的初始值 , 初始值由 ASP 在服務(wù)器端解釋生成 ,包含在TheNewstMsg數(shù)組中 , 數(shù)組在客戶端分配應(yīng)用 . var TalkerArray = new Array()。 基于 ASP 聊天室設(shè)計(jì)與實(shí)現(xiàn) 16 var TalkToArray = new Array()。 var MsgArray = new Array()。 var SaytimeArray = new Array()。 39。公聊私聊信息內(nèi)容變量 var PublicChatMessages = 39。39。 var PrivateChatMessages= 39。39。 FormatMsg()。 39。在公聊信息顯示區(qū) 追加新信息 If(PublicChatMessages!=39。39。) (BeforeEnd , + PublicChatMessages)。 39。在私聊信息顯示區(qū) 追加新信息
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1