ASP网站如何取得在线用户的数量?

我的global.asa文件如下：
<SCRIPTLANGUAGE="VBScript"RUNAT="Server">
'Session_OnStart当客户首次运行ASP应用程序中的任何一个页面时运行
'Session_OnEnd当一个客户的会话超时或退出应用程序时运行
'Application_OnStart当任何客户首次访问该应用程序的首页时运行
'Application_OnEnd当该站点的WEB服务器关闭时运行

SubApplication_OnStart

织梦好，好织梦

VisitorCountFilename=Server.MapPath("../VisitCount.txt")
SetFileObject=Server.CreateObject("Scripting.FileSystemObject")
SetOut=FileObject.OpenTextFile(VisitorCountFilename,1,FALSE,FALSE)
Application("visitors")=Out.ReadLine
Application("NowPeopleNumber")=0
Application("VisitorCountFilename")=VisitorCountFilename
EndSub
'=========================================================
SUBApplication_OnEnd
SetFileOutObject=Server.CreateObject("Scripting.FileSystemObject")
SetOut=FileOutObject.CreateTextFile(Application("VisitorCountFilename"),TRUE,FALSE)
Out.WriteLine(application("visitors"))
EndSub
'=========================================================
SubSession_OnStart
Session.Timeout=30
Application("visitors")=Application("visitors") 1
Application("NowPeopleNumber")=Application("NowPeopleNumber") 1
Session("ID")=Session.SessionID dedecms.com
Session("UserName")=0'不存在
EndSub
'=========================================================
SubSession_OnEnd
Application("NowPeopleNumber")=Application("NowPeopleNumber")-1
EndSub
</SCRIPT>
这样的话总的浏览人数将保存在VisitCount.txt文件中，我觉得Application("NowPeopleNumber")中应该保存了
在线人数，在主页中把它显示出来就可以，但这样做我发现当我关闭浏览器在打开主页时候
在线人数增加了1。也就是说Session_OnEnd没有被执行。是什么原因呢？还有别的方法可以得到
在线人数吗？首次发文章，谢谢大家了。 织梦内容管理系统

看完这篇，您有何感觉呢？