ASP程序设计培训_共11章 (9).ppt

1、第10章 网络程序开发实例书店聊天室,10.1 书店聊天室的设计 10.2 书店聊天室的实现,本章主要介绍网络程序开发实例书店聊天室。通过本章的学习，读者应该掌握以下内容： 书店聊天室的设计 书店聊天室的实现,10.1 书店聊天室的设计,本章将主要利用Application对象和Session对象建立一个简单的聊天室，实现公共交谈、选择颜色及表情等基本功能，用简练的语句使学习者掌握聊天室的实现。,10.2 书店聊天室的实现,聊天室网页主要包括5个网页文件，它们分别如下。 index.asp：用户登录页面，要求进入聊天室的用户输入代表自己的昵称。 chatp.asp：聊天界面的框架主文件，并读取

2、用户的一些基本信息。, input.asp：下方框架的来源网页，输入聊天内容文件。 message.asp：上方框架的来源网页，显示聊天信息的文件，且每隔5秒钟刷新一次。 exit.asp：退出聊天室的文件，读取用户信息并提示某用户已离开。,1聊天室首页index.asp 首页的任务主要是显示当前在线人数，并要求用户输入昵称后进入聊天界面。代码如下： 聊天室 ,书店聊天室 现在共有人在线 ,if form1.user_name.value= then msgbox 名字不能为空 form1.clearattributes end if ,请输入昵称 ,2框架的主文件chat.asp 主文件的主

3、要任务是创建一个上下结构的框架网页，显示来访者的一些信息，并且将在线人数加1。 在记事本中输入如下代码： 书店聊天室 ,% session(user_name)=request(user_name) 将用户昵称保存到session中 下面几句返回来访者信息 Dim sayStr,p sayStr=来自 & Request.ServerVariables(Remote_Addr) 来访者IP地址,sayStr=sayStr & & session(user_name) & 来访者昵称 sayStr=sayStr & 于 & time & 光临此地 来访时间 sayStr= & sayStr &

4、红色显示 p= 大家好！我是:& session(user_name),下面几句将来访信息保存到application中 Application.Lock 先锁定 Application(show)=p&sayStr & & Application(show) 返回聊天信息 Application(user_online)=Application(user_online)+1 在线人数加1 Application.Unlock 解除锁定 %, ,此网页使用了框架，但您的浏览器不支持框架。 ,3输入聊天室的内容文件input.asp 发言区 ,请输入发言: 请选择颜色: , 桔黄色 桔黄色 ,

5、黑色 黑色 , 红色 红色 , 黄色 黄色 , 蓝色 蓝色 , 粉红色 粉红色 , 深红色 深红色 , 表情: 无 回眸一笑 气急败坏 温柔细语,妩媚百加 轻轻诉说 幸灾乐祸 号啕大哭 拳打脚踢 痛恨至极 得意非凡 大惊失色,      离开聊天室 Then 获取发言的有关信息,Dim say,mycolor,myemote,user_name 定义变量待用 user_name=Session(user_name) 返回用户昵称 say=Server.HtmlEncode(request(say) 返回发言，并用HtmlEncode编码 mycolor=requ

6、est(mycolor) 返回本次发言的颜色 myemote=request(myemote) 返回本次发言表情,If myemote=无 Then myemote= End If 下面三句将得到本次发言的字符串 Dim sayStr sayStr= & user_name & time & myemote & 说： sayStr=sayStr & & say & ,下面几句将本次发言信息保存到Application中 Application.Lock 先锁定 Application(show)= sayStr & & Application(show) If Len(Application(

7、show)10000 Then 如果发言信息总长度超过10000，则截短 Application(show)=Mid(Application(show),1,10000) End If,Application.Unlock 解除锁定 End If % ,4显示聊天信息的文件message.asp 通过，表示页面5秒钟刷新一次。, 发言区 ,5退出聊天室文件 exit.asp 当用户单击如图10-2所示界面中的“离开聊天室”时，将打开该文件，主要目的是将在线人数减1，然后重定向回首页。, & session(user_name) & 来访者昵称,sayStr=sayStr & 于 & time & 欢乐离开 来访时间 sayStr= & sayStr & 红色显示 下面几句将来访信息保存到application中 Application.Lock 先锁定 Application(show)= sayStr & & Application(show),App