www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/user/logout.asp

    <!--#include file="config.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../api/cls_api.asp"-->
<%
Dim UserName,Password
UserName = Newasp.membername
Password = ""
'清除COOKIES中的验证信息.
Response.Cookies(Newasp.Cookies_Name).path = "/"
Response.Cookies(Newasp.Cookies_Name)("userid") = ""
Response.Cookies(Newasp.Cookies_Name)("username") = ""
Response.Cookies(Newasp.Cookies_Name)("password") = ""
Response.Cookies(Newasp.Cookies_Name)("nickname") = ""
Response.Cookies(Newasp.Cookies_Name)("UserGrade") = ""
Response.Cookies(Newasp.Cookies_Name)("UserGroup") = ""
Response.Cookies(Newasp.Cookies_Name)("UserClass") = ""
Response.Cookies(Newasp.Cookies_Name)("UserToday") = ""
Response.Cookies(Newasp.Cookies_Name)("usercookies") = ""
Response.Cookies(Newasp.Cookies_Name)("LastTimeDate") = ""
Response.Cookies(Newasp.Cookies_Name)("LastTimeIP") = ""
Response.Cookies(Newasp.Cookies_Name)("LastTime") = ""
Response.Cookies(Newasp.Cookies_Name) = ""
'-----------------------------------------------------------------
'系统整合
'-----------------------------------------------------------------
Dim API_Newasp,API_SaveCookie,SysKey
If API_Enable Then
	Set API_Newasp = New API_Conformity
	Md5OLD = 1
	SysKey = Md5(UserName & API_ConformKey)
	Md5OLD = 0
	API_SaveCookie = API_Newasp.SetCookie(SysKey,UserName,Password,0)
	Set API_Newasp = Nothing
	Response.Write API_SaveCookie
	If API_LogoutUrl <> "0" Then
		Response.Write "<script language=JavaScript>"
		Response.Write "setTimeout(""window.location='"& API_LogoutUrl &"'"",1000);"
		Response.Write "</script>"
	Else
		Response.Write "<script language=""javascript"">window.setInterval(""location.reload('../')"",1000);</script>"
	End If
Else
	Response.Redirect ("../")
End If
'-----------------------------------------------------------------

%>