实习二十使用ASP对象Server对象.ppt
![实习二十使用ASP对象Server对象.ppt_第1页](https://file7.zhuangpeitu.com/fileroot7/2019-12/16/10074687-f7d2-442b-bea9-a83d14c63177/10074687-f7d2-442b-bea9-a83d14c631771.gif)
![实习二十使用ASP对象Server对象.ppt_第2页](/images/s.gif)
![实习二十使用ASP对象Server对象.ppt_第3页](/images/s.gif)
《实习二十使用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-17Global
2、.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)=G
3、ET 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)& 沉默是金。 el
4、se 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. 全局变量 首先,由于聊天室的所有用户都要能够共享信息,所以不可避免地要用到具有应用程序级变量即全局变量对象Applicat
6、ion,这是建立聊天程序的关键所在,所有的谈话数据都存放在一个全局变量中,以便让所有的用户读取。 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,
- 温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 新人版英语八年级下册Unit5总复习ppt课件
- 新人教部编版一年级语文上第五单元ppt课件(全套)
- 高鸿业经济学基础第十五章-总需求-总供给模型-授课-河北工大宋建林课件
- 新人教版高中数学《等差数列前n项和》课件
- 新人教部编版五年级语文上册第六单元测试卷课件
- 高鸿业微观经济学课件第4章生产论
- 高鸿业--微观经济学-第一章课件
- 新人教版部编本五年级下册语文13 人物描写一组 ppt课件
- 新人教版高中化学必修第一册——电解质的电离ppt课件
- 新人教版部编教材二年级下册第一单元3《贝的故事》优质课教学ppt课件
- 高风险作业培训讲义_002
- 新人教版语文三年级下册第五单元全套ppt课件部编版
- 新人教版英语八年级上册第二单元全部ppt课件
- 《走一步再走一步》重点课件
- 新人教版语文一年级上册:识字1《天地人》课件