ASP聊天室实验报告

1、ASP聊天室实验报告一、聊天室功能：通过ASP语言和HTML语言完成一个简单网页聊天室。通过设置该聊天 室的默认密码，提高了安全性，如果密码为“ 000000”则允许多个用户同时登入 聊天室进行实时交流。并且每个用户可以选择自己的昵称并且可以看到彼此的信 息。同时可以选择聊天的语气和字体的颜色。聊天室由chat.asp, global.asa,ma in .asp, talker.asp speak in g.asp show.asp文 件组成 二，聊天室使用方法：需把所有文件放到一个文件夹中，如果在局域网中，则将此文件夹设置为 共享，则其他用户可通过在浏览器中输入http:/局域网中本机地址

2、/chat.asp登入聊天室。如果在互联网上，则可用IIS将本机模拟成 WEB服务器，然后在浏览 器中输入http:/本机IP地址/chat.asp。三，聊天室介绍：各文件功能介绍序号文件名功能说明1chat.asp登入聊天室页面并进行检查核 对2global.asa初始化全局文件3main .asp聊天室主页面4speak in g.asp构造、发送并显示信息5 talker.asp聊天者列表6show.asp聊天内容具体执行流程chat.asp main. asp speak in g.asp talker.aspshow.asp四，各文件介绍：1，登入页面 chat.asp登入页面的效果

3、如下图，首先是插入了一个表格，使页面看上去会比较整齐。 其次，程序段中，会检查用户是否输入了昵称，如果没有只能停留在当前页 面，如果输入了昵称并输入了默认的密码 ”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是一个框架页，他将屏幕分成三个部分，如下图，在显示这个框架 之前先检查登陆人数是否超过了定义的上界，如果没有则完成下面三项准备工 作：聊

5、天室用户添加一个， 将新用户的昵称加入用户名单， 新用户进入的信息添 加到公共话语中。最后显示框架。源代码：v%response.buffer=true%vhtmlvheadvtitle 聊天室 v/titlevmeta name=GENERATOR content=Microsoft FrontPage 4.0 浏览器不支持 3，全局文件 global.asa全局文件将在 web 服务器启动后第一个用户访问网络时启动，他的作用一 般是初始化。源代码：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构造显示信息Uid=Session(Uid)Strig=_& Uid & Request(Facial) & 说： _& Request(Content) & 发送显示信息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、 悲哀忧伤地 悲怒谴责地 选择聊天对象 全体成员 Option Value=               5，聊天室右屏 talker.asp 用于显示聊天者每当一个用户登录就会显示其用户名， 当退出时， 进行刷新就会 剔除其用户名。源代码： 聊天成员 %If session(Uid) Then% 聊天者： %Items=Split(application(Peoples),)For i=0 to UBound(Items)Response.Write & - &_Items(i) & - & NextElse% 请您离开 6，聊天室上屏 show.asp用于显示 sp