username.inc

来自「决策管理等模块」· INC 代码 · 共 37 行

<%
if trim(Session("username")) = "" then
%>
<script language="javascript">
	    window.alert ("你无权看此页或用户名已经过期，请重新登陆!");
		top.location.href="../user/default.asp";
    </script>
<%
Response.End 
else
sp = split(request.servervariables("http_referer"),"/") 
'response.write ubound(sp)
'response.end
if ubound(sp) > 2 then
	if sp(2) <> request.servervariables("http_host") then
%>
<script language="javascript">
	    window.alert ("不正确的登入方式，请以正确的方式登陆1!");
		top.location.href="../user/default.asp";
    </script>
<%	response.end
	end if
elseif ubound(sp) = 0 then 
%>
<script language="javascript">
	    window.alert ("不正确的登入方式，请以正确的方式登陆2!");
		top.location.href="../user/default.asp";
    </script>

<%
response.end
end if
end if
%>