Validar Usuario

Request.UrlReferrer	Recuperar la pagina proveniente
HttpContext.Current. Request.Url.AbsolutePath	Recuperar la estructura y el nombre de la pagina actual

En el evento Load de la pagina colocar el metodo "FormaIngresoPagina", verifica si viene de un vinculo del sitio.
Public Shared Function FormaIngresoPagina(ByVal pagina As Page, ByVal _uri As Uri) As Boolean
   If (_uri Is Nothing) Then
           pagina.Response.Redirect("../NoFormaAcceso.aspx")
           Return False 
   End If 
   Return True 
End Function

En el evento Load de la pagina colocar el metodo "validar_pagina", validar el ingreso a la pagina actual
Public Shared Function validar_pagina(ByVal pagina As Page, ByVal Str_url As String) As Boolean
    Dim boo_Pagina As Boolean = GetPaginasPermitidas(pagina.Session.Item("InternoExterno"), pagina.Session("id_usuario"), Str_url)
    If (Not boo_Pagina) Then
               pagina.Response.Redirect("../NoAcceso.aspx")
               Return False
    End If
    Return True
End Function

Tengo las siguientes tablas:
TBL Menu
id_men int
des varchar(100)
url varchar(100)

TBL Menu_dep
id_men int
id_men_p int
des varchar(100)
url varchar(100)

TBL MenuUsu
id_men int
id_usu int

TBL Usuario
id_usu int
login varchar(50)
pass varchar(50)
Site bit