当前位置导航:炫浪网>>网络学院>>在线图书>>网页制作教程>>ASP入门到精通>>第二章 asp提高篇

2.3 深入研究Application和Session对象

    用ASP编写虚拟社区、网上购物等程序时,Application和Session对象具有举足轻重的作用,能够灵活合理地运用这两个对象是提高程序质量的关键。下面让笔者根据自己在这方面的经验,向大家深入介绍一下ASP的这两个内建对象。

  一、Application对象的成员概述

  Application对象成员包括Application对象的集合、方法和事件。

  ⒈Application对象的集合

  Contents集合:没有使用<OBJECT>元素定义的存储于Applicaiton对象中的所有变量的集合

  StaticObjects:使用<OBJECT>元素定义的存储于Application对象中的所有变量 的集合

  例:在default.asp中有如下赋值

  application("a")="a"

  application("b")=128

  application("c")=false

  则有contents集合

  application.contents(1)="a" '也可写为application.contents("a")="a"

  application.contents(2)=128 '也可写为application.contents("b")=128

  application.contents(3)=false '也可写为application.contents("c")=false

  在此笔者推荐你在调用时使用类如application.contents("a")的方法,因为这样更为直观,如果用序号来表示的话则要考虑赋值的先后顺序。

  ⒉Application对象的方法

  Contents.Remove("变量名"):从Application.Contents集合中删除指定的变量

  Contents.RemoveAll() :把Application.Contents集合中的所有变量删除

  Lock() :锁定Application对象,使得只有当前的ASP页对内容能进行访问

  Unlock() :解除对Application对象的锁定

  例:在default.asp中:

  application("a")="a"

  application("b")=128

  application("c")=false

  response.write application.contents(1)&"<br>"

  response.write application.contents(2)&"<br>"

  response.write application.contents(3)&"<br>"

  response.write "After Remove b:"

  application.contents.remove("b")

  response.write application.contents(1)&"<br>"

  response.write application.contents(2)&"<br>"

  执行结果:

  a

  128

  False

  After Remove b:

  a

  False

  如果要删除集合中所有变量用application.contents.removeall即可,至于Lock和Unlock方法在实际中经常用到,读者也比较熟悉,在此就不在累赘。

  ⒊Application对象事件

  OnStart:第一个访问服务器的用户第一次访问某一页面时发生

  OnEnd :当最后一个用户的会话已经结束并且该会话的OnEnd事件所有代码已经执行完毕后发生,或最后一个用户访问服务器一段时间(一般为20分钟)后仍然没有人访问该服务器产生。

  想要定义application对象的OnStart和OnEnd事件里做什么需要将代码写在Global.asa这个文件里(下文有举例),并且将该文件放在站点的根目录下(一般是Inetpub\wwwroot\)

  二、Session对象的成员概述

  Session对象的成员比Application对象多一项属性,即:集合、属性、方法、事件

  ⒈Session对象的集合

  Contents :没有使用<OBJECT>元素定义的存储于特定Session对象的所有变量的集合。

  StaticObject:使用<OBJECT>元素定义的、存储于Session对象中的所有变量的集合。

  例:在default.asp中有如下赋值

  session("a")="a"

  session("b")=128

  session("c")=false

  则有contents集合

  session.contents(1)="a" '也可写为session.contents("a")="a"

  session.contents(2)=128 '也可写为session.contents("b")=128

  session.contents(3)=false '也可写为session.contents("c")=false

  ⒉Session对象的属性

  CodePage: 可读/可写。整型。定义用于在浏览器中显示页内容的代码页。代码页是字符集的数字值,不同的语言使用不同的代码页。例如,ANSI代码页为1252,日文代码页为932,简体中文代码页为936。

  LCID : 可读/可写。整型。定义发送给浏览器的页面地区标识。LCID是唯一地标识地区的一个国际标准缩写,例如,2057定义当前地区的货币符号是"£"。

  SessionID: 只读。长整型。返回本会话的会话标识符。每创建一个会话,由服务器自动分配一个标识符。可以根据它的值判断两个用户是谁先访问服务器。

  Timeout : 可读/可写。整型。为会话定义以分钟为单位的超时限定。如果用户在这个时间内没有刷新或请求任何一个网页,则该用户产生的会话自动结束。缺省值是20。

以上属性在实际应用中作用不大,而且基本上不需要怎么修改,这几个属性也没什么特殊的地方。

  ⒊Session对象的方法

  Contents.Remove("变量名"): 从Session.contents集合中删除指定的变量

  Contents.Removeall() : 删除Session.contents集合中的所有变量

  Abandon() : 结束当前用户会话并且撤消当前Session对象。

  Session对象的Contents.Remove("变量名")和Contents.Removeall()方法与Application对象的基本上没什么区别,为帮助理解,大家可以参照上面的例子将Application改为Session。这里要说明一下的是Contents.Removeall()和Abandon()的区别,执行这两个方法都会释放当前

  用户会话的所有Session变量,不同的是Contents.Removeall()单纯地释放Session变量的值而不终止当前的会话,而Abandon()除了释放Session变量外还会终止会话引发Session_OnEnd事件,希望大家注意两者的区别。

  ⒋Session对象的事件

  OnStart: 当ASP用户会话产生时触发,一旦有任一用户对本服务器请求任一页面即产生该事件。

  OnEnd : 当ASP用户会话结束时触发,当使用Abandon()方法或超时也会触发该事件。

  这两个事件和Application的OnStart、OnEnd事件一样,也是必须放在Global.asa文件里,下
面就重点和大家研究一下这四个事件的使用。

  三、Global.asa

  ASP的Application和Session对象体现了其他ASP内置对象所没有的特征--事件。每一个访客访问服务器时都会触发一个OnStart事件(第一个访客会同时触发Application和Session的OnStart事件,但Application先于Session),每个访客的会话结束时都会触发一个OnEnd事件(最后一个访客会话结束时会同时触发Application和Session的OnEnd事件,但Session先于Application)。

  OnStart和OnEnd这两个事件一般应用在虚拟社区中统计在线人数、修改用户的在线离线状态等。要具体定义这两个事件,需要将代码写在Global.asa文件,并将该文件放在站点的根目录下(缺省是\Inetpub\wwwroot\)。另外,Application和Session对象规定了在OnEnd事件里除了Application对象外其他ASP内置对象(Response、Request、Server、Session...)一概不能使用。以下举一个虚拟社区统计在线人数的例子来说明如何使用这两个事件。

  文件说明:

  global.asa 位于d:\Inetpub\wwwroot\目录下

  default.asp 位于d:\Inetpub\wwwroot\目录下,虚拟社区登录页面

  login.asp 位于d:\Inetpub\wwwroot\目录下,用于检测用户输入的用户名及密码

  index.asp 位于d:\Inetpub\wwwroot\目录下,虚拟社区首页

  bbs.mdb 位于d:\Inetpub\wwwroot\目录下,存储用户信息的数据库

  数据库(ACCESS)结构:

   ===bbs表===

  id 用户ID,长整型

  name 用户名,文本型

  code 密码,文本型

  online 在线状态,是/否

 
  ===global.asa===

  

  ==============

  ===login.asp===

   ......'密码验证,连接数据库,检测用户输入的用户名及密码是否正确

  if 密码验证通过 then

   session("name")=rs("name")

   session("id")=rs("id")

   session("pass")=true

  else

   rs.close

   conn.close

   response.write "密码错误!"

   response.end

  end if

  application.lock

  application("online")=application("online")+1

  conn.Execute ("update bbs set online=1 where id="&session("id"))'将用户的状态设为在线

  application.unlock

  rs.close

  conn.close

  response.redirect "index.asp" '初始化数据后跳转到社区首页

  ===========

  在本例中,用application("online")变量记录已经登录社区的在线人数,因为一旦有用户访问服务器而不管用户是否登录,都会产生OnStart事件,所以不能在OnStart事件里使Applicaiton("online")加一。因为不管是否是登录用户的会话结束都会产生OnEnd事件(假如有访客访问了服务器但并不登录社区,他的会话结束后也会产生OnEnd事件),所以在Session_OnEnd事件里用了句if语句来判断是否为已登录用户的OnEnd事件,如果是才将在线人数减一。

  这只是一个统计在线人数的简单例子,对于一个完整的虚拟社区来说,仅仅统计有多少人在线是不够的,在本例中数据库里有个online字段是用来记录用户的在线状态,用户登录的时候,在login.asp里将online设为1,但用户离线时并没有将online设为0,要完善它,就要修改一下Session_OnEnd事件,在该事件里将online设为0。

  ===global.sas===