global.asa

本代码是一个个人主页

<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
  application("online")=0
End Sub

sub Application_OnEnd 
  application("online")=0
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>