ASP聊天室实验报告.doc

《ASP聊天室实验报告.doc》由会员分享，可在线阅读，更多相关《ASP聊天室实验报告.doc（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

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

3、。其次，程序段中，会检查用户是否输入了昵称，如果没有只能停留在当前页面，如果输入了昵称并输入了默认的密码”则进入超链接。源代码：趣味聊天室%UID=TRIM(Request(UID)if len(uid)0 and request.form(“PWD”)=” THENsession(UID)=UID% 欢迎进入聊天室 欢迎进入趣味聊天室 姓名：* 密码：* 2，聊天室主界面 main.aspmain.asp是一个框架页，他将屏幕分成三个部分，如下图，在显示这个框架之前先检查登陆人数是否超过了定义的上界，如果没有则完成下面三项准备工作：聊天室用户添加一个，将新用户的昵称加入用户名单，新用户进入的

4、信息添加到公共话语中。最后显示框架。源代码：聊天室 浏览器不支持 3，全局文件global.asa全局文件将在web服务器启动后第一个用户访问网络时启动，他的作用一般是初始化。源代码：Sub Application_OnStartApplication.lockAllSee=欢迎进入聊天室！Application.unlockend sub 4，聊天室下屏speaking.aspspeaking.asp用于输入用户所要说的话语，并允许用户选择说话的语气和字体颜色并进行处理话语的对象。如果用户提出了退出请求，则用户名单会自动清楚您的用户名。源代码：%Ext=Request(Ext)if Ext=

5、退出 ThenUid=Session(Uid)Items=Split(Application(Peoples),)Application.lockApplication(Peoples)=For i=0 to UBound(Items)-1if Items(i)Uid ThenApplication(Peoples)=Application(Peoples)&Items(I)&,end ifNextApplication(Uid)=Application.UnlockSession.AbandonResponse.Endelse if Request(Content) then构造显示信息Ui

6、d=Session(Uid)Strig=_& Uid & Request(Facial) & 说：_& Request(Content) & 发送显示信息Who=Request(Who)Items=Split(Application(Peoples),)Application.lockif Request(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

7、(i)=Who ThenApplication(Items(i)=strig & Application(Items(i)end ifNextend ifApplication.Unlock end if%字体颜色 蓝色 黄色 绿色 红色 灰色 黑色 白色 选择谈话表情 兴高采烈地 无聊搭闲地 悲哀忧伤地 悲怒谴责地 选择聊天对象 全体成员 Option Value=              5，聊天室右屏talker.asp用于显示聊天者每当一个用户登录就会显示其用户名，

8、当退出时，进行刷新就会剔除其用户名。源代码：聊天成员%If session(Uid) Then% 聊天者：%Items=Split(application(Peoples),)For i=0 to UBound(Items)Response.Write & - &_Items(i) & - & NextElse%请您离开 6，聊天室上屏show.asp用于显示speaking.asp中的话语部分，如果用户退出则显示：请您离开聊天室！源代码：聊天内容%Uid = Session(Uid)if Session(Ext)退出 thenresponse.write application( Uid )else 删除客户%请您离开聊天室！