username.incx

来自「电子商务 物流 ASP+SQL2」· INCX 代码 · 共 55 行

<%
	'###########################################################################################
	'#                                                                                         #
	'#    This page is generated by ASP2ASP.Net Converter, a product of Halcyon Software, Inc. #
	'#    Copyright (c) 2001, all rights reserved. Halcyon Software Inc.                       #
	'#                                                                                         #
	'###########################################################################################
%>


<%' HALCYON: All local variables have been declared in the <Script> tag 
' to make their scope global. %>

<Script Language=VB runat=Server>
Dim sp
</Script>
<%	
If trim(Session("username")) = "" Then	
%>
<script language="javascript">	
	    window.alert ("你无权看此页或用户名已经过期，请重新登陆!");
		top.location.href="../user/default.aspx";
    </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.aspx";
    </script>
<%	response.end	
	End If	
elseif ubound(sp) = 0 Then 	
%>
<script language="javascript">	
	    window.alert ("不正确的登入方式，请以正确的方式登陆2!");
		top.location.href="../user/default.aspx";
    </script>

<%	
response.end	
End If	
End If	
%>