深入研究Application和Session对象(1)
用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===
＜script LANGUAGE="VBScript" RUNAT="Server"＞
Sub Application_OnStart
application("online")=0
End Sub
sub Application_OnEnd
nd Sub
Sub Session_OnStart
End Sub
Sub Session_OnEnd
if session.contents("pass") then '判断是否为登录用户的Session_OnEnd
application.lock
application("online")=application("online")-1
application.unlock
end if
End Sub
＜/script＞
==============
===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" '初始化数据后跳转到社区首页
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
