ASP聊天室實驗報告

1、ASP聊天室實驗報告一、聊天室功能：通過ASP語言和HTML語言完成一個簡單網(wǎng)頁聊天室。通過設(shè)置該聊天 室的默認密碼，提高了安全性，如果密碼為“ 000000”則允許多個用戶同時登入 聊天室進行實時交流。并且每個用戶可以選擇自己的昵稱并且可以看到彼此的信 息。同時可以選擇聊天的語氣和字體的顏色。聊天室由chat.asp, global.asa,ma in .asp, talker.asp speak in g.asp show.asp文 件組成 二，聊天室使用方法：需把所有文件放到一個文件夾中，如果在局域網(wǎng)中，則將此文件夾設(shè)置為 共享，則其他用戶可通過在瀏覽器中輸入http:/局域網(wǎng)中本機地址

2、/chat.asp登入聊天室。如果在互聯(lián)網(wǎng)上，則可用IIS將本機模擬成 WEB服務(wù)器，然后在瀏覽 器中輸入http:/本機IP地址/chat.asp。三，聊天室介紹：各文件功能介紹序號文件名功能說明1chat.asp登入聊天室頁面并進行檢查核 對2global.asa初始化全局文件3main .asp聊天室主頁面4speak in g.asp構(gòu)造、發(fā)送并顯示信息5 talker.asp聊天者列表6show.asp聊天內(nèi)容具體執(zhí)行流程chat.asp main. asp speak in g.asp talker.aspshow.asp四，各文件介紹：1，登入頁面 chat.asp登入頁面的效果

3、如下圖，首先是插入了一個表格，使頁面看上去會比較整齊。 其次，程序段中，會檢查用戶是否輸入了昵稱，如果沒有只能停留在當(dāng)前頁 面，如果輸入了昵稱并輸入了默認的密碼 ”000000”則進入超鏈接。源代碼：趣味聊天室 v/head vbody bgcolor=p ink ali nk=pi nk vli nk=red %UID=TRIM(Request(UID)if len(uid)0 and request.form( PWD )= 000000” THEN sessio n( UID)=UID% 歡迎進入聊天室 vfont face=華文彩云color=#006600 size=7歡迎進入趣味聊

4、天室vfont face=華文行楷 ” color=black size=6 姓名：v/font*vfont face=華文行楷 ” color=black size=6 密碼：v/bv/font*v/trvbrvbrvtr width=100% align=center bgcolor=pinkvtd width=100% align=center bgcolor=pinkv/trv/bodyv/html2，聊天室主界面 main.aspmai n. asp是一個框架頁，他將屏幕分成三個部分，如下圖，在顯示這個框架 之前先檢查登陸人數(shù)是否超過了定義的上界，如果沒有則完成下面三項準(zhǔn)備工 作：聊

5、天室用戶添加一個， 將新用戶的昵稱加入用戶名單， 新用戶進入的信息添 加到公共話語中。最后顯示框架。源代碼：v%response.buffer=true%vhtmlvheadvtitle 聊天室 v/titlevmeta name=GENERATOR content=Microsoft FrontPage 4.0 瀏覽器不支持 3，全局文件 global.asa全局文件將在 web 服務(wù)器啟動后第一個用戶訪問網(wǎng)絡(luò)時啟動，他的作用一 般是初始化。源代碼：Sub Application_OnStartApplication.lockAllSee= 歡迎進入聊天室！ Application.unlo

6、ck end sub 4，聊天室下屏 speaking.aspspeak in g.asp用于輸入用戶所要說的話語，并允許用戶選擇說話的語氣和字 體顏色并進行處理話語的對象。 如果用戶提出了退出請求， 則用戶名單會自動清 楚您的用戶名。源代碼： %Ext=Request(Ext)if Ext= 退出 ThenUid=Session(Uid)Items=Split(Application(Peoples),)Application.lockApplication(Peoples)=For i=0 to UBound(Items)-1if Items(i)Uid Then Application(

7、Peoples)=Application(Peoples)&Items(I)&, end ifNextApplication(Uid)=Application.UnlockSession.AbandonResponse.Endelseif Request(Content) then構(gòu)造顯示信息Uid=Session(Uid)Strig=_& Uid & Request(Facial) & 說： _& Request(Content) & 發(fā)送顯示信息Who=Request(Who)Items=Split(Application(Peoples),)Application.lockif Requ

8、est(Who)=All ThenFor i=0 to UBound(Items)-1Application(Items(i)=strig & Application(Items(i)NextelseFor i=0 to UBound(Items)-1if Items(i)=Uid or Items(i)=Who Then Application(Items(i)=strig & Application(Items(i) end ifNextend ifApplication.Unlockend if % 字體顏色 藍色 黃色 綠色 紅色 灰色 黑色 白色 選擇談話表情 興高采烈地 無聊搭閑地

9、 悲哀憂傷地 悲怒譴責(zé)地 選擇聊天對象 全體成員 Option Value=               5，聊天室右屏 talker.asp 用于顯示聊天者每當(dāng)一個用戶登錄就會顯示其用戶名， 當(dāng)退出時， 進行刷新就會 剔除其用戶名。源代碼： 聊天成員 %If session(Uid) Then% 聊天者： %Items=Split(application(Peoples),)For i=0 to UBound(Items)Response.Write & - &_Items(i) & - & NextElse% 請您離開 6，聊天室上屏 show.asp用于顯示 sp