global.asa

包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL Server2000下调试通过。所有程序

<Script LANGUAGE="VBScript" RUNAT="SERVER">
Sub Application_OnStart()
	Application.Lock()
	Application("whosOn") = 0
	Application.UnLock()
End Sub
Sub Session_OnStart()
	Application.Lock()
	Application("whoson") = Cint(Application("whoson")) + 1
	Application.UnLock()
End Sub
Sub Session_OnEnd()
	Application.Lock()
	Application("whoson") = Cint(Application("whoson")) - 1
	Application.UnLock()
End Sub
</Script>