Navegando en un Sitio Web

Como usar la autenticación en algunas páginas

Fecha: 27/Jun/2005  (22 de Junio de 2005)
Autor: Ing. Fernando Luque Sánchez - DCE 4 Estrellas

fls2307@hotmail.com


Sres. Desarrolladores, en esta oprtunidad quiero compartir con ustedes este pequeño Site, que muestra como navegar en el por las páginas donde solamente algunas necesitan de autenticación.

Algunos ejemplos los encontramos en las páginas del Desarrollador Cinco Estrellas, donde se puede navegar a través del sitio sin loguearse, solamente cuando accedemos al perfil o a los examenes nos piden usuario y contraseña.

Muchos de los Sitios Web que construimos nos piden esa forma de trabajo, me parece la forma mas sencilla de desarrollar esto con el uso de variables de sesión. El ejemplo que comparto con ustedes tiene una ZONA DE MIEMBROS, la cual se accede siempre que el usuario se haya autenticado.

A continuación sigue código en Visual Basic

En la página principal cuando se accede al enlace de zona de miembros...

Private Sub LinkButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton4.Click
        ' PARA PERFIL

        If Session("Nombre") Is Nothing And Session("Clave") Is Nothing Then
            Session("Pagina") = "1"
            Response.Redirect("ParaLogin.aspx")
        Else
            Response.Redirect("MiPerfil.aspx")
        End If
End Sub

Private Sub LinkButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton5.Click

        ' PARA COMPRAS
        If Session("Nombre") Is Nothing And Session("Clave") Is Nothing Then
            Session("Pagina") = "2"
            Response.Redirect("ParaLogin.aspx")
        Else
            Response.Redirect("Compras.aspx")
        End If
    End Sub

Luego para comprobar al cargar la página directamente (solo implementado para la página MiPerfil.aspx), se utiliza lo siguiente:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Introducir aquí el código d usuario para inicializar la página
        ' PARA PERFIL
        If Session("Nombre") Is Nothing Or Session("Clave") Is Nothing Then
            Session("Pagina") = "1"
            Response.Redirect("ParaLogin.aspx")
        End If
End Sub

Todo el código está en el archivo adjunto. No olviden calificar, me incentiva para seguir publicando, suerte a todos

Ing. Fernando Luque Sánchez
CIP 6186
Trujillo - Perú


Espacios de nombres usados en el código de este artículo:

System.Web.UI.Page


Fichero con el código de ejemplo: FernandoLuque_ASPSinLogin.zip - Tamaño 33 KB


ir al índice