global.asa

来自「蓝芒3.0A最新所有功能完整破解版」· ASA 代码 · 共 43 行

<SCRIPT LANGUAGE=VBScript RUNAT=Server> 
	Sub Application_OnStart

		Application.Lock
			dim a
			set a = server.CreateObject("easymail.Users")

			Set Application("em") = a
		Application.Unlock
	End Sub


	Sub Application_OnEnd
		Application.Lock
			Set Application("em") = nothing
		Application.Unlock
	End Sub


	sub Session_OnStart
	end sub


	sub Session_OnEnd
		dim se_wem
		dim se_tid

		se_wem = Session("wem")
		se_tid = Session("tid")

		if se_wem <> "" and se_tid <> "" then
			dim se_ei
			set se_ei = Application("em")

			se_ei.Logout se_wem, se_tid

			set se_ei = nothing
		end if
	end sub

</SCRIPT>