《第7章网络程序开发实例.ppt》由会员分享，可在线阅读，更多相关《第7章网络程序开发实例.ppt（16页珍藏版）》请在三一文库上搜索。
1、1,第12章 网络程序开发实例,2,12-2 聊天室,3,12-2-1 聊天室的设计,一般网络上的聊天室含有如下功能： 公共交谈； 私密交谈； 显示在线人数和名单； 各种表情； 开辟新的聊天室等功能。 实例介绍主要功能，避开次要代码的影响。 公共交谈； 选择颜色； 添加表情等。,4,12-2-2 聊天室的实现,该聊天室共包含五个文件： Index.asp 聊天室首页，用户登录 Chat.asp 聊天室界面框架主文件 Input.asp 输入聊天室内容文件 Main.asp 显示聊天室信息文件 Exit.asp 推出聊天室文件。,5,Index.asp,html 聊天室 ,6,Index.asp
2、, 小小聊天室 现在共有人在线 请输入昵称 ,7,Chat.asp, 小小聊天室 “ & Session(“user_name“) & “ 来访者昵称 sayStr=sayStr & “于“ & Time & “大驾光临“ 来访时间 sayStr=“ & sayStr & “ 红色显示,8,Chat.asp,下面几句将来访信息保存到Application中 Application.Lock 先锁定 Application(“show“)= sayStr & “ & Application(“show“) 返回聊天信息 Application(“user_online”)=Application
3、(“user_online”)+1 在线人数加1 Application.Unlock 解除锁定 % 此网页使用了框架，但您的浏览器不支持框架。 ,9,Input.asp,发言区 发言: 颜色: 黑色 黑色 ,10,Input.asp, 红色 红色 黄色 黄色 蓝色 蓝色 ,11,Input.asp,表情: 无 回眸一笑 幸灾乐祸 号啕大哭 拳打脚踢 气急败坏 温柔细语 得意非凡 大惊失色 ,12,Input.asp, 离开聊天室 “ Then 获取发言的有关信息 Dim say,mycolor,myemote,user_name 声明变量待用
4、 user_name=Session(“user_name“) 返回用户昵称 say=Server.HtmlEncode(Request(“say“) 返回发言，并用HtmlEncode编码 mycolor=Request(“mycolor“) 返回本次发言的颜色 myemote=Request(“myemote“) 返回本次发言表情 If myemote=“无“ Then myemote=“ End If,13,Input.asp,下面三句将得到本次发言的字符串 Dim sayStr sayStr=“ & user_name & Time & myemote & “说：“ sayStr=sa
5、yStr & “ & say & “ 下面几句将本次发言信息保存到Application中 Application.Lock 先锁定 Application(“show“)= sayStr & “ & Application(“show“) If Len(Application(“show“)10000 Then 如果发言总长度超过10000个字符，则截断为10000 Application(“show“)=Mid(Application(“show“),1,10000) End If Application.Unlock 解除锁定 End If % ,14,Main.asp, 发言区 ,15
6、,Exit.asp,“ & Session(“user_name“) & “ 来访者昵称 sayStr=sayStr & “于“ & Time & “高兴而去“ 离开时间 sayStr=“ & sayStr & “ 红色显示,16,Exit.asp,下面几句将来访信息保存到application中 Application.Lock 先锁定 Application(“show“)= sayStr & “ & Application(“show“) Application(“user_online“)=Application(“user_online“) -1 在线人数减1 Application.Unlock 解除锁定 Response.Redirect “index.asp“ 重定向回首页 %,