user_checkpurview.asp

依蓝旅游网站管理系统Elan2008.SP2

<%
If ComeURL = "" Then
   Response.Clear()
   Response.Write "<font color=red>禁止直接输入地址访问本页面</font>"
   Call ApplicationTerminate()
Else
   Dim Current_URL
   Current_URL = "http://" & Trim(Request.ServerVariables("HTTP_HOST"))
   Current_URL = Current_URL & Trim(Request.ServerVariables("SCRIPT_NAME"))
   If CheckComefrom(ComeURL, Current_URL) = False Then
      Response.Clear()
      Response.Write "<font color=red>禁止从外部链接地址访问本页面</font>"
	  Call ApplicationTerminate()
   End If
End If

If EL_User.UserIsLogin = False Then
   Response.Write "<scr" & "ipt>top.location='User_Login.asp';</scr" & "ipt>"
   Call ApplicationTerminate()
End If

Function CheckComefrom(StrComeURL, StrCurrentURL)
   If Trim(StrComeURL) = "" Then
      CheckComefrom = False
   Else
      If LCase(Left(StrComeURL, InStrRev(StrComeURL, "/"))) <> LCase(Left(StrCurrentURL, InStrRev(StrCurrentURL, "/"))) Then
	     CheckComefrom = False
	  Else
	     CheckComefrom = True
	  End If
   End If
End Function
%>