global.asa

来自「学ASP必看的100个小例子。觉得不错」· ASA 代码 · 共 14 行

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_onStart 
     Application("OnLine") = 0 
End Sub 
  

Sub Session_onStart 
     Application.Lock 
     Application("OnLine") = Application("OnLine") + 1 
     Application.Unlock 
End Sub 
   
</SCRIPT>