global.asa

来自「这是一个用ASP 做的论坛.值得研究一下. 最有趣的是,发帖支持 HTML 代」· ASA 代码 · 共 26 行

 
<script language="vbscript" runat=Server>
sub application_OnStart
  session.Timeout=10
  application.lock
  application("num")=0
 
  application.unlock
end sub
sub application_OnEnd

end sub
sub session_OnStart
  application.lock
  application("num")=application("num")+1
  application.unlock
 end sub
 
  sub session_OnEnd
  application.lock
  application("num")=application("num")-1
  end sub
  
  </script>