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>