OA系统

开发平台：

Java

global.asa：源码内容

							<SCRIPT Language="VBScript" RunAt="Server">
Sub Application_OnStart()
   Application("Counter") = 0
   Application("MaxCounter") = 0
   Application("MaxTime") = now()
   Application("StartTime") = now()
End Sub
Sub Session_OnStart()
   Application.Lock
   Application("Counter") = Application("Counter") + 1
   if Application("Counter")>Application("MaxCounter") then
   	Application("MaxCounter")=Application("Counter")
   Application("MaxTime") = now()
   end if
   Application.UnLock
End Sub
Sub Session_OnEnd()
   Application.Lock
   Application("Counter") = Application("Counter") - 1
   Application.UnLock
End Sub
</SCRIPT>

						