checklogin.asp

客户管理crm xitong ,希望能给你带来帮助

<%
function GetPath1() 
	 dim m_intLoop , m_strBaseDIr  
	 for m_intLoop = getInitLoop to ubound(split(Request.ServerVariables ("SCRIPT_NAME"),"/" )) - 1 
	  m_strBaseDir = m_strBaseDir + "../" 
	 next 
	 GetPath1 = m_strBaseDir 
end function

function getInitLoop()
	strMD=Request.ServerVariables("APPL_MD_PATH")
	strMDs=split(strMD,"/")
	if strMDs(ubound(strMDs))="Root" then
		getInitLoop=1
	else
		getInitLoop=2
	end if
end function
	if session("loginuser")="" or session("loginorlogout")<>"1" then
		if Request.ServerVariables("SCRIPT_NAME")="/main.asp" then
			strredirect=""
		else
			strredirect="http://" & Request.ServerVariables("REMOTE_HOST") &":"& Request.ServerVariables("SERVER_PORT") & Request.ServerVariables("SCRIPT_NAME")
		end if
		'response.write GetPath1()&"function/login.asp"
		'response.end
		response.redirect GetPath1()&"function/login.asp?StrRedirect="&strredirect
		response.end
	end if
%>