CookiesGlobal.asa及基Application对象的简单聊天室的实现.docVIP

实验2 Cookies、Global.asa及基于Application对象的简单聊天室的实现 一、实验目的 通过本实验的学习，熟悉ASP脚本语言VBScript，继续深入学习ASP的5个内部对象，并能够利用这些知识实现一些简单的动态网页程序，如简单的聊天室。掌握常用网页设计的步骤和方法，能够独立完成网页设计。 二、实验内容 1. Cookies综合示例的实现 2. Global.asa简单示例的实现 3. 基于Application对象的简单聊天室的实现 三、实验步骤 1. Cookies综合示例的实现 Cookies综合示例请参见教材主要功能是实现显示某用户浏览网站的次数，源文件如下： cookies.asp % Response.Buffer=True 注意，必须有这句话 % html head title Cookies综合示例/title /head body % Dim varNumber 定义一个访问次数变量 varNumber=Request.Cookies(Number) 读取Cookies值 if varNumber= then varNumber=1 如果是第一次，则令访问次数为1 Else varNumber=varNumber+1 如果不是第一次，则令访问次数加1 End If Response.Write 您是第 varNumber 次访问本站 Response.Cookies(Number)=varNumber 将新的访问次数存到Cookies中 % /body /html 网页效果如图2.1所示。 图2.1 Cookies综合示例的运行效果 2. Global.asa简单示例的实现 Global.asa简单示例请参见教材，主要功能是实现显示网站在线人数和访问总人数的功能，源文件如下： Script language=VBScript runat=server Sub Application_OnStart Application.Lock Application(all)=0 Application(Online)=0 Application.Unlock End Sub Sub Session_OnStart Application.Lock Application(all)= Application(all)+1 Application(Online)= Application(Online)+1 Application.Unlock End Sub Sub Session_OnEnd Application.Lock Application(Online)= Application(Online)-1 Application.Unlock End Sub /Script 3. 基于Application对象的简单聊天室的实现 index.asp html frameset rows=*,60 frame name=message src=top.asp frame name=say src=bottom.asp /framesetnoframes/noframes /html top.asp html head title显示发言页面/title meta http-equiv=refresh content=5 /head body % Response.Write Application(strChat) 显示聊天内容 % /body /html bottom.asp html body form name=form1 method=post action= 昵称：input type=text name=txtName size=10 发言：input type=text name=txtSay size=30 input type=submit value= 发送 /form % 如果提交了表单，就将发言内容添加到Application对象中 If Trim(Request.Form(txtName)) And Trim(Request.Form(txtSay)) Then 下面先获取本次发言字符串，包括发言人和发言内容 Dim strSay strSay=Request.Form(txtName) 说： Request.Form(tx