logout.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_ClsSysTem.asp"-->
<!--#include file="../Inc/Cl_ClsCount.asp"-->
<%
Cl.Get_WebSetting
Cl.ChkUserLogin
Dim ComeUrl
Dim IsAjax
IsAjax = Cl.GetClng(Request("Ajax"))
ComeUrl=Trim(request("ComeUrl"))
if ComeUrl="" then
	ComeUrl=Request.ServerVariables("HTTP_REFERER")
end if
ComeUrl=Lcase(ComeUrl)
if ComeUrl="" or Instr(ComeUrl,"login.asp")>0 or Instr(ComeUrl,"logout.asp")>0 then
	ComeUrl=Cl.WebDir&"Index.asp"
end if
if Cl.UserID>0 then
	Set Count = New Cls_Count
	Count.DelOnline 1, Cl.UserID, 0
	Set Count = Nothing
end if
Call User_Logout()

CloseAllObj

Sub User_Logout()
	Cl.EmptyCookies
	if UserTableType = "Dvbbs" then
		if request("CLCMS")<>"Y" then
		Response.Write "<meta http-equiv=""refresh"" content=""3;URL=" & ComeUrl & """>" & vbCrLf
		Response.Write "<iframe id='LogoutUser' width='100%' height='0' frameborder='0' src='" & BbsDir & "Logout.asp?CLCMS=Y'></iframe>" & vbCrLf
		Response.Write Replace(Cl.Language.selectSingleNode("//Logout/LogoutIng").text,"{$ComeUrl}",ComeUrl) & vbCrLf
		end If
		If IsAjax=1 Then Call Cl.WriteAjax("OK")
		Response.end
	Elseif UserTableType="Bbsxp" then
		Response.Cookies("username")=""
		Response.Cookies("userpass")=""
	End If
	If IsAjax=1 Then
		Call Cl.WriteAjax("OK")
	else
		Call Cl.OutMsg(0,Cl.Language.selectSingleNode("//Logout/LogoutSuc").text,ComeUrl)
	End if
End Sub

'===================================================
' CreateLive CMS Version 4.0
'							Powered by Aspoo.CoM
'===================================================
' Mail: [e-mail], [e-mail]
' Q  Q: 3315263, 596197794
' Msn : [e-mail], [e-mail]
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005-2007 Aspoo.CoM All Rights Reserved.
'===================================================
%>