ASP实用大全-ASP对象(6)

　　ASP对象
深入研究Application和Session对象(2)
在本例中，用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

nection)

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

End Sub

sub Application_OnEnd

set application(conn)=nothing

End Sub

Sub Session_OnStart

End Sub

Sub Session_OnEnd

if session.contents(pass) then 判断是否为登录用户的Session_OnEnd

application(con).open =driver={Microsoft Access Driver (*.mdb)};dbq=application(db)

application.lock

application(online)=application(online)-1

application(con).Execute (update friends set online=0 where id=session.contents(id))

application.unlock

application(con).close

end if

End Sub

＜／script＞

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

至此，完整的代码已经完成了。因为在Application和Session的OnEnd事件里不能使用Server对象，所以要将数据库的连接及数据库在服务器上的物理地址（d:inetpub）存储在application变量中，并在Application_OnStart事件中预先处理。同理，在Session_OnEnd事件中不能用session(pass)来代替session.contents(pass)（以下有详尽说明）。

四、本文实例中值得引起注意的两点

⒈OnEnd事件里的session.contents

刚开始接触global.asa的朋友经常会将上面Session_OnEnd事件里的

if session.contents(pass) then写成

if session(pass) then，

这样的话系统不会提示错误，但是永远也不会执行then后面的内容，这是因为在OnEnd事件里禁止使用Session对象，但是可以用Session对象的集合来调用session变量。因为IIS并没提示任何错误信息，所以笔者曾经在这上面浪费了很多时间。在此希望大家引以为鉴！

⒉Application_OnStart事件里用Server.MapPath获取数据库的物理地址时应使用绝对地址为了说明这个问题，大家可以做个实验：将上面Application_OnStart事件里的

application(db)=Server.MapPath(bs.mdb)改为:

application(db)=Server.MapPath(bbs.mdb)

然后在d:inetpub目录下建立一个test子目录，写一个temp.asp在test目录里。

====test.asp====

＜％response.write application(db)％＞

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

再将temp.asp拷贝一份放在根目录下（d:inetpubwwwroot）。用记事本打开global.asa，再打开两个浏览器，浏览器A输入地址，按回车，将在浏览器上输出：

d:inetpub

然后，在记事本的窗口上点文件菜单，选保存（使global.asa的修改时间改变，从而使IIS重启动所有服务），再在浏览器B输入地址，按回车，在浏览器上输出的是：

d:inetpubwwwroot estbs.mdb

global.asa文件虽然是放在站点根目录下，但是如果在server.mappath中使用的是相对地址，而触发Application_OnStart事件的用户第一次访问的页面又不是属于根目录的话，得到数据库的物理地址将不会是期望的结果，希望大家要特别小心。