global.asa

来自「ASP 网页数据库短训教程源码」· ASA 代码 · 共 16 行

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_onStart
  Application("OnLine")=0		' 当服务器启动时，将记录在线用户的Application("OnLine")清零
End Sub
Sub Session_onStart
  Application.Lock
  Application("OnLine")=Application("OnLine")+1			' 新增在线用户个数
  Application.Unlock
End Sub
Sub Session_OnEnd
  Application.Lock
  Application("OnLine")=Application("OnLine")-1			' 减少在线用户个数
  Application.Unlock
End Sub
</SCRIPT>