global.asa

大家好

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart

		Application("DBCon_ConnectionTimeout") = 15
		Application("DBCon_CommandTimeout") = 30
		Application("DBCon_CursorLocation") = 3
	for i=1 to 40
        application("user" & i)=""
	next
End Sub

Sub Session_OnStart
	Session.timeout=10
End Sub

Sub Session_OnEnd
'when a user timeout then empty his application("user(i))")
for i=1 to 40
   if application("user" & i)=session("username") then
        application("user" & i)=""
        exit for
   end if
next    
End sub


sub Application_OnEnd
	for i=1 to 40
        application("user" & i)=""
	next    
End sub
</SCRIPT>