《ASP动态网页设计教程 教学课件 ppt 作者 丁桂芝 第11-4章》由会员分享，可在线阅读，更多相关《ASP动态网页设计教程 教学课件 ppt 作者 丁桂芝 第11-4章（30页珍藏版）》请在金锄头文库上搜索。
1、1,11.4 聊天室,11.4.1 认识聊天室(Chatroom) 11.4.2 组成网页的文件清单 11.4.3 网页的执行流程 11.4.4 必须具备的知识 11.4.5 完整程序代码清单,2,11.4 聊天室,11.4.1 认识聊天室(Chatroom) 许多网站会提供聊天室让用户从事在线聊天，而且多数聊天室不仅会提供文本模式交谈，还允许用户选择代表自己的颜色与图案，并统计在线人数、在线名单及在线传讯。 现在，我们来看个实例，图a、图b (见下页) 是我们即将要制作的聊天室。这个聊天室有两个画面，第一个画面是要求用户输入名字并选择代表自己的颜色与图案，然后单击“登录”按钮进入第二个画面，
2、里面会列出目前加入聊天的名单及内容，用户可以发表自己的谈话。,3,11.4 聊天室,11.4.1 认识聊天室(Chatroom),1. 输入名字,2. 选择颜色,3. 选择图案,4. 单击“登录”,图a,4,11.4 聊天室,11.4.1 认识聊天室(Chatroom),聊天的内容,5. 进入聊天室，目前加入聊天的名单,图b,若要发表谈话，请在此输入，然后按“发送”按钮,“发送”按钮,5,11.4 聊天室,11.4.2 组成网页的文件清单 制作这个聊天室需要如下文件，见下表。,6,11.4 聊天室,11.4.2 组成网页的文件清单 续上表。,7,11.4 聊天室,11.4.2 组成网页的文件清
3、单 续上表。,8,11.4 聊天室,11.4.3 网页的执行流程 首先，执行 ，要求用户输入名字、选择颜色及图案，然后按下“登录”按钮，就调用表单处理程序 。 会读取用户输入的名字、颜色及图案。若名字字段是空白的，就结束程序，否则就初始化一个问候字符串并执行框架网页的各个来源网页，如下页图所示。,9,11.4 聊天室,11.4.3 网页的执行流程,10,11.4 聊天室,11.4.4 必须具备的知识 首先，读者必须熟悉 HTML 语法或其他网页编辑软件(如Macromedia Dreamweaver MX 2004)，因为我们将用到框架、表单及读取表单数据等技巧。其次，您必须了解Applica
4、tion变量和Session变量的意义及用法。,11,11.4 聊天室,11.4.5 完整程序代码清单 在解释的用途之前，我们先来说明Application(“Msg1“) Application(“Msg21“) 等21个Application变量的意义，这些变量用来存放聊天内容。当用户在 输入聊天内容并按下“发送”时，表单处理程序 会先把Application(“Msg20“) 存放到Application(“Msg21“)中、把Application(“Msg19“) 存放到Application(“Msg20“)中，然后依此类推，直到把Application(“Msg1“) 存放到Ap
5、plication(“Msg2“)中，再去读取聊天内容，然后加上代表该用户的颜色及图案并存放在Application(“Msg1“)中。,12,11.4 聊天室,11.4.5 完整程序代码清单 这个初始化文件必须放在 Web 服务器的主目录，其任务则是将用来存放聊天内容的21个字符串变量 Application(“Msg1“) Application(“Msg21“) 初设为空字符串。 SUB Application_OnStart For I = 1 to 21 Application(“Msg“&I) = “ Next END SUB ,13,11.4 聊天室,11.4.5 完整程序代码清
6、单 这个网页为聊天室的第一个画面，提供表单让用户输入名字、选择颜色和图案。按下“登录”按钮后会调用表单处理程序 。其程序代码如下：, 快乐聊天室 请输入您的名字： 请选择您的颜色： 白色,14,11.4 聊天室,11.4.5 完整程序代码清单 ,黄色 粉红色 紫红色 粉蓝色 萤光绿色 请选择您的图案： ,15,11.4 聊天室,11.4.5 完整程序代码清单 这个网页是构成聊天室第二个画面的框架网页，它有下列两个任务： * 在用户进入聊天室的时候，读取用户输入的名字及所选取的颜色、图案，然后初始化一个问候的字符串“大家好，我是XXX，请多多指教！”，再把这个字符串存放在Application(
7、“Msg1“) 变量中。 * 声明构成聊天室的框架网页，上方框架的高度为60像素点、名称为Top、来源网页为，下方框架的高度也为60像素点、名称为Bottom、来源网页为，其他为中间框架的高度；中间左方框架的宽度为160像素点、名称为Lmiddle、来源网页为 ，其他为中间右方框架的宽度、名称为Rmiddle、来源网页为 。, 网页所输入的名字颜色及图案 Session(“UserName“) = Request(“UserName“) Session(“UserColor“) = Request(“UserColor“),16,11.4 聊天室,11.4.5 完整程序代码清单 续,Sessi
8、on(“UserFig“) = Request(“UserFig“) 若尚未输入名字, 显示错误信息并结束网页 If Session(“UserName“) = “ Then Response.Write “很抱歉，您尚未登录，无法进入聊天室！“ Response.End End If Application.Lock For I = 21 To 2 Step -1 J = I - 1 Application(“Msg“ 初始化一个问候字符串，然后存放在 Application(“Msg1“) strTmp = “ & “大家好，我是“ & Session(“UserName“) & “，请多
9、多指教！“ & strTime & “,17,11.4 聊天室,11.4.5 完整程序代码清单 续,Application(“Msg1“) = strTmp Application.Unlock % 快乐聊天室 “ ,18,11.4 聊天室,11.4.5 完整程序代码清单 续 其中：12 15行：把Application(“Msg20“)存放到Application(“Msg21“)中、把Application (“Msg19“) 存放到Application(“Msg20“)中，然后依此类推，直到把Application(“Msg1“) 存放到Application(“Msg2“)中。 35
10、行：设置上方框架的来源网页为 并传送一个值为No的参数Logout。 37行：设置中间左方框架的来源网页为 并将用户名作为参数传送。,19,11.4 聊天室,11.4.5 完整程序代码清单 这是第二个画面上方框架的来源网页，用来显示用户的名字、进入时间、IP地址。若按下 图案，会再度调用 并传送一个值为Yes的参数Logout。一旦 检查到Logout变量的值为Yes，就会初始化一个向大家说Bye!Bye! 的字符串，然后存放在Application(“Msg1“) 中并关闭窗口。,% If Request(“Logout”) = “Yes” Then 检查用户是否按下 EXIT 图案 要离开
11、聊天室 Application.Lock For I = 21 To 2 Step -1 J = I - 1 Application(“Msg“&I) = Application(“Msg“&J) Next,20,11.4 聊天室,11.4.5 完整程序代码清单 续,strHour = Hour(Time() If Len(strHour) = 1 Then strHour = “0“ & strHour strMinute = Minute(Time() If Len(strMinute) = 1 Then strMinute = “0“ & strMinute strTime = “ st
12、rTmp = “ & “& Session(”UserName“) & ”说：我要 离开聊天室了，Bye！Bye！“ & strTime & “ Application(“Msg1“) = strTmp Application.Unlock % Parent.Window.Close 关闭父窗口 ,21,11.4 聊天室,11.4.5 完整程序代码清单 续, 于进入快乐聊天室。IP为 将图片设置为超级链接并传送Logout变量的值为Yes ,22,11.4 聊天室,11.4.5 完整程序代码清单 这是第二个画面中间左方框架的来源网页，在这个聊天室中，我们只加入在线名单的功能。事实上，您也可以加
13、入在线传输的功能，会有越来越多的聊天室提供这项功能，有关在线传输的编写方法，在此不另作说明。由于这个网页每10秒钟会自动更新一次，闲置时间则为30秒，所以一旦有新用户加入，会在10秒钟之内反映出来，而一旦有人离线，会在30秒钟之内反映出来。,% Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, NewUser, User, UserName RefreshTime = 10 设置网页自动更新时间为 10 秒 IdleTime = RefreshTime * 3 设置闲置时间为自动更新时间的 3 倍,23,11
14、.4 聊天室,11.4.5 完整程序代码清单 续,NewUser = Request(“UserName“) Application.Lock OnlineUser 数组记录了所有联机到此网页的用户名称 清点所有联机到此网页的用户, 然后将目前的用户名称放入数组的最后 If Application(NewUser & “LastAccessTime“) = Empty Then If Application(“TotalUsers“) = Empty Then Application(“TotalUsers“) = 0 ReDim Tmp(Application(“TotalUsers“) +
15、 1) Num = 0 If Application(“TotalUsers“) 0 Then For I = LBOUND(Application(“OnlineUser“) To UBOUND(Application(“OnlineUser“) User = Application(“OnlineUser“)(I) If User NewUser AND User Session(“UserName“) Then Tmp(Num) = User Num = Num + 1 Else Application(User & “LastAccessTime“) = Empty,24,11.4 聊
16、天室,11.4.5 完整程序代码清单 续,End If Next End If Session(“UserName“) = NewUser Tmp(Num) = Session(“UserName“) Application(“TotalUsers“) = Num + 1 ReDim Preserve Tmp(Application(“TotalUsers“) Application(“OnlineUser“) = Tmp End If 记录目前用户的最近存取时间 Application(Session(“UserName“) & “LastAccessTime“) = Timer 检查所有联机到此网页的用户的最近存取时间，若与目前时间相差 30秒以上，表示结束联机 ReDim Tmp(Application(“TotalUsers“) Num = 0 For I = 0 To Application(“TotalUsers“) - 1 User = Ap
