为什么不能统计在线人数？

我的gloab.asa文件如下：
<script language="vbscript" runat="server">
sub application_onstart
application("intOnlineUser")=0
end sub

sub session_onstart
application.Lock()
application("intOnlineUser")=application("intOnlineUser") + 1
application.UnLock()

session("ok")=""
session("username")=""
session("power")=0
end sub
sub session_onend
application.Lock()
application("intOnlineUser")=application("intOnlineUser") - 1
application.UnLock()
end sub

</script>
我这样为什么不能统计在线人数？