logout.asp

《动易网站管理系统》2005 SP2正式版中

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/UpiConfig.asp"-->
<%
Dim ComeUrl
ComeUrl = Request.ServerVariables("HTTP_REFERER")
If Lcase(Left(ComeUrl,4)) <> "http" Then 
	ComeUrl = Replace(Lcase(Request.ServerVariables("SCRIPT_NAME")),"logout.asp","")
	ComeUrl = "http://" & Lcase(Request.ServerVariables("HTTP_HOST")) & ComeUrl
	ComeUrl = ComeUrl & Dvbbs.Forum_Info(11)
End If

Response.Redirect PE_Url & "User/User_Logout.asp?MemberName=" & Dvbbs.membername & "&ComeUrl="&ComeUrl
%>