global.asa

电子投标系统

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
<!--METADATA TYPE="TypeLib" NAME="Microsoft ActiveX Data Objects 2.1 Library" UUID="{00000201-0000-0010-8000-00AA006D2EA4}" VERSION="2.1"-->
Sub Application_OnStart
End Sub
Sub Session_OnStart
	Session.TimeOut=10
End Sub

Sub Session_OnEnd
	if Session("Register")("LoginName") <>"" then
		Application.Lock
		Application(Session("Register")("LoginName"))=""
		Application.UnLock
	end if
	Session("LoginName")=""
End Sub
</SCRIPT>