小小聊天室的制与设计.docVIP

作品名称：小小聊天室的制作与设计 课程： Web网页制作与程序设计 学号： 姓名： 班级： 教师： 引言 聊天室是最能吸引人的节目。聊天室(chat room)是一个网上空间，为了保证谈话的焦点，聊天室通常有一定的谈话主题。任何一个联入Internet、使用正确的聊天软件，并且渴望谈论的人都可以享受其乐趣。聊天室有语音聊天室和视频聊天室等分类。 目前网上聊天室一般都是比较复杂的，通常包括公共交淡、秘密交淡、显示在线人数和名单、各种表情、开辟新的聊天房间等功能。本系统是一个小小聊天室，功能简单，包括公共交淡、选择说话颜色、添加说话表情、查看在线人员名单等基本功能。 根据这样的设计思想，本系统包括以下以文件。 首页 index.asp——这是登录页，用户输入用户名后就可以进入聊天室，同时会将该用户添加到在线人员名单中，在线人数加1. 聊天室主页chat.asp——这是一个框架页，其中显示main.asp、online.asp、refreshpage.asp refreshpage.asp、chatform.asp. 显示聊天信息页面main.asp——其中用于显示聊天信息。 输入聊天内容页面chatform.asp——在其中可以发言 显示在线人员名单页面online.asp——其中会显示当前在线人员名单及人数。 refreshpage.asp——刷新在线名单、刷新屏幕、退出系统等功能。 incfoot.asp——隔(endtime-starttime)*1000毫秒后刷新聊天内容。 config.asp 、function.asp——这些是公共文件，用来存放几个常量、函数。 数据库设计 采用Access2003数据库进行数据库设计。 1、聊天记录信息表chatinfo的设计视图： 2、用户信息表userinfo的设计视图 详细设计（代码设计）与系统实现 1.登录页面设计 在登陆界面中，首先检查是否存在该用户，如果不存在则添加新用户信息，包括用户名、密码、性别；如果已经存在，则将输入的密码与数据库中密码对比，如果匹配则正常登录，否则报错。 主要代码如下： % Function SplitWords(mys,coun) dim ts,i,l if isnull(mys) then exit Function ts = 0 For i = 1 To Len(mys) l = Mid(mys, i, 1) If Asc(l) 0 and Asc(l) 255 Then ts = ts + 1 End If if i-ts/2 coun then exit for Next If i-ts/2 coun Then ts=ts\2+coun mys = left(mys,ts) end if SplitWords=mys end Function userid=request.form(userid) if request.form(submit)=登陆 then userid=request.form(userid) password=request.form(password) usersex=trim(request.form(usersex)) if usersex男 and usersex女 then usersex=保密 end if if userid= or password= then response.write script language=javascriptchr(13) response.write !--chr(13) response.write alert(请将呢称和密码填写完整！);chr(13) response.write window.history.go(-1);chr(13) response.write //--chr(13) response.write /scriptchr(13) elseif trim(userid)userid or trim(password)password or instr(userid,)0 or instr(userid,)0 or instr(password,)0 or instr(password,)0 then respo