网络程序开发实例

《网络程序开发实例》由会员分享，可在线阅读，更多相关《网络程序开发实例（16页珍藏版）》请在装配图网上搜索。

1、1第第12章章 网络程序开发实例网络程序开发实例212-2 聊天室聊天室312-2-1 聊天室的设计聊天室的设计l一般网络上的聊天室含有如下功能：一般网络上的聊天室含有如下功能：公共交谈；私密交谈；显示在线人数和名单；各种表情；开辟新的聊天室等功能。l实例介绍主要功能，避开次要代码的影响。实例介绍主要功能，避开次要代码的影响。公共交谈；选择颜色；添加表情等。412-2-2 聊天室的实现聊天室的实现l该聊天室共包含五个文件：该聊天室共包含五个文件：聊天室首页，用户登录 聊天室界面框架主文件 输入聊天室内容文件 显示聊天室信息文件 推出聊天室文件。5lhtmll聊天室聊天室llll6ll小小聊天室

2、小小聊天室ll现在共有现在共有人在线人在线ll请输入昵称请输入昵称lllll7ll小小聊天室小小聊天室l%l 将用户昵称保存到将用户昵称保存到session中中l Session(user_name)=Request(user_name)ll下面几句返回来访者信息下面几句返回来访者信息lDim sayStrlsayStr=来自来自&Request.ServerVariables(Remote_Addr)&的的 来访者来访者IP地址地址lsayStr=sayStr&Session(user_name)&“来访者昵称来访者昵称 lsayStr=sayStr&于于&Time&大驾光临大驾光临 来访时

3、间来访时间lsayStr=&sayStr&红色显示红色显示8l下面几句将来访信息保存到下面几句将来访信息保存到Application中中l 先锁定先锁定lApplication(show)=sayStr&Application(show)返回聊天信息返回聊天信息lApplication(“user_online”)=Application(“user_online”)+1 在线人数加在线人数加1l 解除锁定解除锁定l%llllll此网页使用了框架，但您的浏览器不支持框架。此网页使用了框架，但您的浏览器不支持框架。llll9l发言区发言区lll发言发言:l l l颜色颜色:l ll黑色黑色ll黑

4、色黑色l10ll 红色红色ll红色红色lll黄色黄色ll黄色黄色lll蓝色蓝色ll蓝色蓝色ll 11l表情表情:l l无无 l回眸一笑回眸一笑 l幸灾乐祸幸灾乐祸 l号啕大哭号啕大哭 l拳打脚踢拳打脚踢 l气急败坏气急败坏 l温柔细语温柔细语 l得意非凡得意非凡 l大惊失色大惊失色 l12l     l离开聊天室离开聊天室 ll%lIF Request(say)Thenl获取发言的有关信息获取发言的有关信息lDim say,mycolor,myemote,user_name 声明变量待用声明变量待用luser_name=Session(user_name

5、)返回用户昵称返回用户昵称lsay=Server.HtmlEncode(Request(say)返回发言，并用返回发言，并用HtmlEncode编码编码lmycolor=Request(mycolor)返回本次发言的颜色返回本次发言的颜色lmyemote=Request(myemote)返回本次发言表情返回本次发言表情lIf myemote=无无 Then l myemote=lEnd If13l下面三句将得到本次发言的字符串下面三句将得到本次发言的字符串lDim sayStrlsayStr=&user_name&Time&myemote&说：说：lsayStr=sayStr&say&ll下面

6、几句将本次发言信息保存到下面几句将本次发言信息保存到Application中中lApplication.Lock 先锁定先锁定lApplication(show)=sayStr&Application(show)lIf Len(Application(show)10000 Then 如果发言总长度超过如果发言总长度超过10000个字符，个字符，则截断为则截断为10000lApplication(show)=Mid(Application(show),1,10000)lEnd Ifl 解除锁定解除锁定lEnd Ifl%l14lll 发言区发言区llllll15l%l下面几句返回离开者信息下面几句

7、返回离开者信息lDim sayStrlsayStr=来自来自&Request.ServerVariables(Remote_Addr)&的的 来访者来访者IP地址地址lsayStr=sayStr&Session(user_name)&来来访者昵称访者昵称 lsayStr=sayStr&于于&Time&高兴而去高兴而去 离开时间离开时间lsayStr=&sayStr&红色显红色显示示l16l下面几句将来访信息保存到下面几句将来访信息保存到application中中lApplication.Lock 先锁定先锁定lApplication(show)=sayStr&Application(show)lApplication(user_online)=Application(user_online)-1 在线人数减在线人数减1lApplication.Unlock 解除锁定解除锁定l 重定向回首页重定向回首页l%