请问怎么通过Application使得进入页面，也会使总数加1

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_onStart
Application("Total") = 0
Application("OnLine") = 0
End Sub

Sub Session_onStart
Session.TimeOut=30
Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application("Total") = Application("Total") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("OnLine") = Application("OnLine") - 1
Application.Unlock
End Sub
这样写，只有登陆，才可以使总数加1

先谢谢了！！

</SCRIPT>