在线统计问题？？？

Question

我设置GLOAB。ASAX来统计在线人数，代码如下：
<script language="vb" runat="server">    
Sub Application_OnStart()
       application("currentusers")=0
End SubSub Session_OnStart()
Session.timeout = 60 
application.lock
application("currentusers")=application("currentusers")+1
application.unlock
End Sub
Sub Session_OnEnd()
application.lock
application("currentusers")=application("currentusers")-1
application.unlock
End SubSub Application_OnEnd()
     application("currentusers")=0
End Sub
</script>但是问题出现了：就是统计的在线人数会显示不确定的数目，本来是一个人还是显示几十个。我不想用数据库实现，请问哪个高手帮我解决这个问题？