logout.asp

来自「一个虚拟主机代理系统」· ASP 代码 · 共 27 行

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'User Module
'This module helps a member to logout
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Logout()
	
	dim url
	
	url = request("url")
	
	if not Application("smumdebugmode") then on error resume next
	
	Application("smummultiplelogs") = replace(Application("smummultiplelogs"),session("Username")&"|","")
	session.Abandon
	
	if isnull(url) then
		Response.Redirect Application("smumlogoutredirect")
	else
		Response.Redirect URL
	end if

End Sub%>