用Application显示不出在线人数解决方法

用Application显示不出在线人数
Global.asa

<script   language= "vbscript "   runat= "server ">
sub   Application_OnStart
Session.Timeout=1
Application.Lock
Application( "online_number ")=1
Application.UnLock
end   sub

sub   Application_OnEnd
end   sub

sub   Session_OnStart
Application.Lock
Application( "online_number ")=Application( "online_number ")+1
Application.UnLock
end   sub

sub   Session_OnEnd
Application.Lock
Application( "online_number ")=Application( "online_number ")-1
Application.UnLock
end   sub
</script>


s.asp
<%
response.write( "在线人数: "   &   Application( "online_number "))
%>

[解决办法]
Global.asa 在根目录下才有用