global.sas代码如下：
<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 
 Sub Application_OnStart 
Application("ActiveUsers") = 0 
End Sub 
Sub   Application_OnEnd() 
        
End   Sub 

Sub Session_OnStart 
Session.Timeout = 20 
Application.Lock 
Application("ActiveUsers") = Application("ActiveUsers") + 1 
Application.UnLock 
End Sub 
Sub Session_OnEnd 
Application.Lock 
Application("ActiveUsers") = Application("ActiveUsers") - 1 
Application.UnLock 
End Sub 

</SCRIPT> 


在新的asp中引用代码如下：
<% =application("ActiveUsers") %>

在服务器中运行，但统计不了在线人数。
请问为什么会这样呢？