www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\ask\logout.asp
<!--#include file="conn.asp"--> <!--#include file="inc/const.asp"--> <!--#include file="inc/chkinput.asp"--> <% If Not IsObject(Conn) Then ConnectionDatabase Dim SQL,TempNum Dim strReturnURL,MyUserID,Asked_Cookies strReturnURL = Trim(Request("ReturnURL")) If CheckeIsURL(strReturnURL) Then strReturnURL = Server.HTMLEncode(strReturnURL) If LCase(Mid(strReturnURL,8,Len(Request.ServerVariables("SERVER_NAME"))))=LCase(Request.ServerVariables("SERVER_NAME")) Then strReturnURL = Server.HTMLEncode(strReturnURL) Else strReturnURL = NewAsp.InstallDir End If Else strReturnURL = NewAsp.InstallDir End If MyUserID = NewAsp.UserID Asked_Cookies = NewAsp.Asked_sn If Len(strReturnURL) > 8 Then If InStr(LCase(Left(strReturnURL,10)),"user") = 0 And InStr(LCase(Left(strReturnURL,10)),"post") = 0 And InStr(LCase(Left(strReturnURL,10)),"save") = 0 Then strReturnURL = strReturnURL Else strReturnURL = NewAsp.InstallDir End If Else strReturnURL = NewAsp.InstallDir End If If NewAsp.UserID>0 Then SQL="DELETE FROM NC_Ask_Online WHERE userid="& CLng(NewAsp.UserSession.documentElement.selectSingleNode("userinfo/@userid").text) Conn.Execute SQL,TempNum If TempNum>0 Then NewAsp.ReloadSetupCache NewAsp.AskedOnline-TempNum,12 End If Else If IsNumeric(NewAsp.UserSession.documentElement.selectSingleNode("userinfo/@statuserid").text) Then SQL="DELETE FROM NC_Ask_Online WHERE id="& CCur(NewAsp.UserSession.documentElement.selectSingleNode("userinfo/@statuserid").text) Conn.Execute SQL,TempNum If TempNum>0 Then NewAsp.ReloadSetupCache NewAsp.AskedOnline-TempNum,12 End If End If End If If EnabledSession Then Session(NewAsp.CacheName & "UserID")=Empty End If NewAsp.CloseConn() If MyUserID > 0 Then Response.Cookies(Asked_Cookies) = Empty Session.Abandon Response.Redirect (strReturnURL) Else Response.Redirect (strReturnURL) End If %>