网络聊天室.doc

科目名称 基于Web的程序设计 题 目 网络聊天目 录一、设计分析1二、程序结构11、程序结构图1三、模板功能及程序说明21、选择聊天频道22、自定义用户名称23、显示当前用户信息24、聊天字体颜色自定义2四、源程序21、index.asp主页源程序22、admin.asp源程序43、function.asp源程序54、change源程序125、f1.asp源程序126、f2.asp源程序137、f4.asp源程序15五、操作方法161、登陆界面操作方法162、聊天室界面操作方法16六、试验结果171、测试用户昵称172、添加聊天记录17七、设计体会18一、设计分析网络聊天室是当前网络很流行的工具之一，就目前网络需求来看，比较有发展的网络聊天室如：5178、同城交友，歪歪语音，其前身都是网络聊天室。本网络聊天室基本结构符合要求，其功能较为简单，可以作为今后学习之用，在开发前期，有部分代码和设计方案，均得到了考证，实用性较高，符合设计需求。此网络聊天室以ASP为基础，开发周期短，结构鲜明，易于上手。二、程序结构1、程序结构图进入聊天室输入昵称退出聊天室（程序结构图）三、模板功能及程序说明1、选择聊天频道主要对个人信息的录入以及对用户的注册。要求填写用户名，帐号密码，联系电话，通讯地址，个人签名，用户类型等信息的填写。2、自定义用户名称用户在登陆此聊天室，可以自由输入合法的用户昵称。3、显示当前用户信息 进入聊天室后，可显示当前所在频道里的所有成员。4、聊天字体颜色自定义 可以编辑聊天时字体类型和相关字体属性，比如，大小，颜色等。四、源程序1、index.asp主页源程序欢迎页面 请输入您的用户名请选择一个聊天室：input type=radio name=chatroom value=  ()%If request.form(username) thenDim username,chatroomusername=request.form(username)Session(username)=usernameSession(IP)=Request.ServerVariables(REMOTE_ADDR) IP地址chatroom=Request.Form(chatroom)session(chatroom)=chatroom 保存到Session中如果该聊天室名单还没有初始化，就先初始化call NewUserName(chatroom)下面检查是否已经有人使用该昵称If GetUserName(username,chatroom)=True ThenResponse.Write 已经有人使用该名称，请重新输入Else下面将该用户保存到数据库中Call addUserName(username,chatroom)下面将该用户来到的信息保存到发言信息中Dim sayStrsayStr=Time() & 来自 & Session(IP) & 的 & Session(username) & 大驾光临Application.Lock 先锁定Application(session(chatroom)= Application(session(chatroom) & & sayStr Application.Unlock 解除锁定重定向response.redirect whole.aspEnd IfEnd If%2、admin.asp源程序管理本聊天室请输入密码清空聊天内容3、function.asp源程序0 Then将其后的所有人往前挪一个位置For I=J To numTemp-1arrayUsername(I,0)=arrayUsername(I+1,0)arrayUsername(I,1)=arrayUsername(I+1,1)Next定义一个新的数组Dim arrayTemp()Redim arrayTemp(numTemp-1,1)For I=0 To numTemp-1arrayTemp(I,0)=arrayUsername(I,0)arrayTemp(I,1)=arrayUsername(I,1)Next下面加进去Application.LockApplication(chatroom & _arrayUserName)=arrayTempApplication.UnlockElse表示就一个人，调用子程序将其初始化即可Call NewUserName(chatroom)End IfEnd IfEnd Sub该函数返回该聊天室共有多少人Function AllUserName(chatroom)Dim arrayUsername,IarrayUsername=Application(chatroom & _arrayUsername)If IsArray(arrayUsername)=False ThenAllUserName=0ElseAllUserName=Ubound(arrayUsername)End IfEnd Function该函数用来将发言字符串中不属于自己的发言删除Function GetPrivate(strSays,username)num0是用来记录当前的位置，num1表示找到的第一个【，num2表示找到的第二个】,num3表示找到的第三个Dim num0,num1,num2,num3,numLennumLen=Len(strSays)num0=1Do While num0numLen找寻三个标记在字符串中的位置num1=InStr(num0,strSays,【)如果num1=0，表示找不到,表示已经到最后了If num1=0 ThenGetPrivate=strSaysExit FunctionEnd Ifnum2=InStr(num1,strSays,】)num3=InStr(num2,strSays,)下面判断一下是否是本人的，如果不是，将其删除，否则保留If Mid(strSays,num1+1,num2-num1-1)=对 & username Then这表示是本人的，需要将最后的删除strSays=Left(strSays,num3-1) & Mid(strSays,num3+1)numLen=numLen-1num0=num3Else这表示不是本人的，需要将其删除,注意要将之前的也要删除strSays=Left(strSays,num1-5) & Mid(strSays,num3+1)numLen=numLen-(num3-num1+1)-4num0=num1End IfLoopGetPrivate=strSaysEnd Function%4、change源程序5、config.asp源程序6、f2.asp源程序meta http-equiv=refresh content= 在线人员大家a href=# onClick=javascript:selectwho();7、f4.asp源程序发言区 刷新名单区 管理聊天室 切换聊天室 五、操作方法1、登陆界面操作方法打开网络聊天室，如图（5-1）所示，添加您的聊天室所用昵称点击进入图（5-1）2、聊天室界面操作方法进入聊天室，右侧会现实所有在线用户，只需输入您要的聊天内容点击“发言”。也可以选择文字的字体，颜色等属性。如图（5-2）图（5-2）六、试验结果1、测试用户昵称输入昵称“张鹏飞”，点击进入聊天室。如图（6-1）所示图（6-1）2、添加聊天记录 为了测试多用户，多添加一个用户昵称为“测试用户”，如图（6-2）图（6-2）七、设计体会1.本次设计的聊天室没有数据库，所以它设计很简单，很实用。2.通