| 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