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 '----------------------------------------------------------------- %>