<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_ClsSysTem.asp"-->
<!--#include file="../Inc/Cl_ClsCount.asp"-->
<!--#include file="../inc/upiconfig.asp"-->
<%
If HLIntegration = True then'----------恒浪(Howave.NET)整合开始------------------
ComeUrl = Request.ServerVariables("HTTP_REFERER")
Response.Redirect HL_Url&Manage_Url&"User_Logout.asp?ComeUrl="&ComeUrl
End If'--------------------------------恒浪整合结束---------------------
Cl.GetWeb_Setting
Cl.ChkUserLogin
Dim ComeUrl
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()

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 "<span style='font-size:9pt'>正在注消登陆，请稍等，3秒后自动<a href='"&ComeUrl&"'>返回</a>...</span>" & vbCrLf
		end if
		Response.end
	elseif UserTableType="Bbsxp" then
		Response.Cookies("username")=""
		Response.Cookies("userpass")=""
	end if
	Call Cl.OutMsg("恭喜您，您已成功退出，欢迎再次登录本系统！",ComeUrl)
End Sub

'===================================================
' CreateLive CMS Version 3.1
'							Powered by Aspoo.CoM
'===================================================
' Mail: aspoo@126.com, Info@aspoo.cn
' Q  Q: 3315263, 596197794
' Msn : aspoo@126.com, Clw866@hotmail.com
' Web : http://www.aspoo.com, http://www.aspoo.net
' Bbs : http://bbs.aspoo.com, http://bbs.aspoo.net
' Copyright (C) 2005 Aspoo.CoM All Rights Reserved.
'===================================================
%>