www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\users\logout.asp

    <!--#include file="inc/const.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../api/cls_api.asp"-->
<%
Dim UserName,Password
UserName = NewAsp.membername
Password = ""
'清除COOKIES中的验证信息.
Response.Cookies(NewAsp.CookiesName).path = "/"
Response.Cookies(NewAsp.CookiesName)("userid") = ""
Response.Cookies(NewAsp.CookiesName)("username") = ""
Response.Cookies(NewAsp.CookiesName)("password") = ""
Response.Cookies(NewAsp.CookiesName)("nickname") = ""
Response.Cookies(NewAsp.CookiesName)("UserGrade") = ""
Response.Cookies(NewAsp.CookiesName)("UserGroup") = ""
Response.Cookies(NewAsp.CookiesName)("UserClass") = ""
Response.Cookies(NewAsp.CookiesName)("UserToday") = ""
Response.Cookies(NewAsp.CookiesName)("usercookies") = ""
Response.Cookies(NewAsp.CookiesName)("LastTimeDate") = ""
Response.Cookies(NewAsp.CookiesName)("LastTimeIP") = ""
Response.Cookies(NewAsp.CookiesName)("LastTime") = ""
Response.Cookies(NewAsp.CookiesName)("userlastip") = ""
Response.Cookies(NewAsp.CookiesName)("UserLogin") = ""
Response.Cookies(NewAsp.CookiesName)("RegDateTime") = ""
Response.Cookies(NewAsp.CookiesName)("usermail") = ""
Response.Cookies(NewAsp.CookiesName) = ""
'-----------------------------------------------------------------
'系统整合
'-----------------------------------------------------------------
Dim API_Newasp,API_SaveCookie,SysKey
If API_Enable Then
	Set API_Newasp = New API_Conformity
	Md5OLD = 1
	SysKey = Md5(UserName & API_ConformKey,16)
	Md5OLD = 0
	API_SaveCookie = API_Newasp.SetCookie(SysKey,UserName,Password,0)
	Set API_Newasp = Nothing
	Response.Write API_SaveCookie
	If Len(API_LogoutUrl) > 1 Then
		Response.Write "<script language=JavaScript>"
		Response.Write "setTimeout(""window.location='"& API_LogoutUrl &"'"",1000);"
		Response.Write "</script>"
	Else
		Response.Write "<script language=""javascript"">setTimeout(""window.location='../'"",1000);</script>"
	End If
Else
	Response.Status = "301 Moved Permanently"
	Response.AddHeader "Location", "../"
End If
'-----------------------------------------------------------------

%>