第7章网络程序开发实例.ppt
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,小小聊天室现在共有人在线请输入昵称,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(“user_online”)+1 在线人数加1Application.Unlock 解除锁定%此网页使用了框架，但您的浏览器不支持框架。,9,Input.asp,发言区发言:颜色:黑色黑色,10,Input.asp,红色红色黄色黄色蓝色蓝色,11,Input.asp,表情:无 回眸一笑 幸灾乐祸 号啕大哭 拳打脚踢 气急败坏 温柔细语 得意非凡 大惊失色,12,Input.asp,     离开聊天室 Then获取发言的有关信息Dim say,mycolor,myemote,user_name 声明变量待用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 sayStrsayStr=&user_name&Time&myemote&说：sayStr=sayStr&say&下面几句将本次发言信息保存到Application中Application.Lock 先锁定Application(show)=sayStr&Application(show)If Len(Application(show)10000 Then 如果发言总长度超过10000个字符，则截断为10000Application(show)=Mid(Application(show),1,10000)End IfApplication.Unlock 解除锁定End If%,14,Main.asp,发言区,15,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 在线人数减1Application.Unlock 解除锁定Response.Redirect index.asp 重定向回首页%,
