<% 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 "" Else Response.Write "" End If Else Response.Redirect ("../") End If '----------------------------------------------------------------- %>