深入研究Application和Session对象(3)

【 tulaoshi.com - ASP 】

  三、Global.asa

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

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

　　文件说明：

　　global.asa 位于d:Inetpubwwwroot目录下

　　default.asp 位于d:Inetpubwwwroot目录下，虚拟社区登录页面

　　login.asp 位于d:Inetpubwwwroot目录下，用于检测用户输入的用户名及密码

　　index.asp 位于d:Inetpubwwwroot目录下，虚拟社区首页

　　bbs.mdb 位于d:Inetpubwwwroot目录下，存储用户信息的数据库

　　数据库（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" '初始化数据后跳转到社区首页

　　===========

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

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

　　===ｇｌｏｂａｌ．ｓａｓ===

　　＜script LANGUAGE="VBScript" RUNAT="Server"＞

　　Sub Application_OnStart

　　　application("online")=0

　　　set application("conn")=Server.CreateObject("ADODB.Connection")

　　　application("db")=Server.MapPath("bbs.mdb") '此处最好使用绝对路径bbs.mdb，下文有详细介绍

　　End Sub

　　sub Application_OnEnd

　　　set application("co