global.asa

971音乐站全站程序

<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
Sub Application_OnStart 
   Session.Timeout = 20 
   Application.Lock
   Application("OnLineUsers") = 0 
   Application.Unlock
End Sub 

Sub Session_OnStart 
   Application.Lock 
   Application("OnLineUsers") = Application("OnLineUsers") + 1 
   Application.UnLock 
End Sub 

Sub Session_OnEnd 
   Application.Lock 
   Application("OnLineUsers") = Application("OnLineUsers") - 1 
   Application.UnLock 
End Sub 

Sub Application_OnEnd
End Sub
</SCRIPT>