《实习二十使用ASP对象Server对象.ppt》由会员分享，可在线阅读，更多相关《实习二十使用ASP对象Server对象.ppt（21页珍藏版）》请在三一文库上搜索。
1、实习二十 使用ASP对象Server对象,实验要求 1.掌握Server对象的属性和方法 2.掌握Server对象CreateObject方法 3.综合程序聊天室的编写,实验内容,1 编写一个ASP程序，在文件中使用包含文件。 2 在Global.asa文件中定义一个Application对象dw，dw=“北方交通大学经济管理学院信息管理系”， 编写一个ASP程序，在文件中显示dw。 3 试编写一个简单的聊天室参考书上的实例。,2.写Appilacton的OnStart过程。 3.写Session的Onstart过程。 4.写Global.asa文件,7.8 简单的聊天室例子,例7-17Glo
2、bal.asa文件 sub ApplicationOnStart Application(VN) = 0 Application(ly) = 欢迎你来到欢乐聊天室！ end sub,sub SessionOnStart end sub sub SessionOnEnd end sub 例7-18这是一个简单的聊天室程序，它具有进入、聊天、离开等功能，文件名为7-18.asp。 %,Response.Buffer=true 设置输出缓存，用于显示不同页面。 on error resume next 忽略程序出错部分 if Request.ServerVariables(RequestMethod
3、)=GET then 判断客户是以什么方式请求 Web 页面 客户登录界面 % ,你是本站点的第位客人。 输入你的昵称： %,Response.End 结束程序的处理 else Response.Clear 清空缓存中的内容 Dim talk If Request.Form(nick) then 判断客户是否在聊天界面中 Session(nick)=Request.form(nick) end if 客户聊天界面 %, 说话： 离开 ,1 then if trim(Request.Form(talk)= then 判断用户是否没有输入任何内容 talk=Session(nick)& 沉默是金。
4、 else talk=trim(Request.Form(talk) 去掉字符后的空格 end if,Application.lock Application(show)= Session(nick)&time& 说：&talk&Application(show) Application.UnLock Response.Write Application(show) end if end if % ,在浏览器地址栏中输入http:/localhost/slp/7-18.asp按回车键后可看到如图7.19所示的页面，在这里输入你的名字，然后单击“进入聊天室”按钮，将打开如图7.20所示页面，在这
5、里可输入聊天的内容，然后单击“提交”按钮，可看到如图7.21所示页面。如果你要离开聊天室，可单击“离开”链接，可看到如图7.22所示页面。如果你要看到多个人在聊天室的情景，可在状态栏中单击浏览器图标再打开一个浏览器的窗口，输入该页面的地址，换一个名字进入聊天室，你会看到站点的人数增加了。,图7.19,图7.20,图7.21,例7-19这是用户离开时看到的页面程序，文件名为7-19.asp。 欢迎你再来我们的聊天室！ ,图7.22,下面我们来对这个聊天室程序进行逐步的分析。 1. 全局变量 首先，由于聊天室的所有用户都要能够共享信息，所以不可避免地要用到具有应用程序级变量即全局变量对象Appli
6、cation，这是建立聊天程序的关键所在，所有的谈话数据都存放在一个全局变量中，以便让所有的用户读取。 2. 对全局变量的约束 接下来要考虑的是，当不同的用户同时向Chat应用程序进行操作的时候如何处理。这个问题其实与在数据库中的两个用户同时写入同一个记录一样，如果两个用户同时对同一个全局变量进行写操作，则一个用户所作的修改会被另一个用户的操作所覆盖，如下所示。,Application.lock Application(show)=talk&Application(show) Application.UnLock 3. 局部变量的使用 现在整个程序的核心部分你已经了解了，下面考虑如何保存客户信
7、息，这里要用到一个会话级变量，即局部变量，这里是将客户的昵称nick保存在Session对象中。如： Session(nick)=Request.Form(nick),4. 各种事件的调用 最后，要考虑的是如何仅在一个.asp 文件中处理各种事件，如： 客户登录界面、客户聊天界面等。 由于客户第一次请求ASP文件时，采用的是简单的HTTP GET方式，但是当客户在页面上的表单字段中增加的数据并向自身提交表单后，ASP文件会再次被请求，不过这次数据是经过HTTP POST方式进行传递的。文件被请求的方式可以用两种方法来确定：一是测试Request.Form 集合是否包含成员，若没有，则表明没有发送给表单处理的数据；二是使用 Request.ServerVariables(RequestMethod) 变量。如果表单是通过 HTTP GET 方式被请求的，则这个变量会返回Get，如果表单被提交处理则返回Post。由于后一种方法对于确定文件的请求方式更直接，所以在例子中使用如下代码进行判断:,if Request.ServerVariables(RequestMethod)=Get then,