Ver Mensaje Individual
  #2 (permalink)  
Antiguo 10/01/2015, 02:03
wwwmaster
 
Fecha de Ingreso: noviembre-2002
Ubicación: DF
Mensajes: 1.056
Antigüedad: 21 años, 5 meses
Puntos: 37
Respuesta: como crear un formulario de login en asp.net c#

emailLogeadoGoogle = request(email) ' O USUARIO y validar pwd, este codigo solo valida que el email ya exista.

objRutinasDB.recuperarRecordsetGENERICO_SQLDR es una rutina generica donde implemento el SqlReader.

Ya luego cada pagina o el .master puede pregunar por las variables de sesion para saber datos de la cuenta logeada (ejemplo: if Session("admUsuario") =""



'--------------
strSql = "SELECT * FROM usuarios WHERE email='" & emailLogeadoGoogle & "'"
rsTemporal = objRutinasDB.recuperarRecordsetGENERICO_SQLDR(strS ql)

Dim idUsuario As Long = 0
Dim usuario As String = ""

Dim nombre As String = ""
Dim idUltimaCompania As String = ""
Dim idPerfil As Long = 0


Dim inactivo As String = ""

If rsTemporal.Read Then
If Not rsTemporal("idUsuario") Is DBNull.Value Then idUsuario = rsTemporal("idUsuario")
If Not rsTemporal("usuario") Is DBNull.Value Then usuario = rsTemporal("usuario").trim
If Not rsTemporal("nombre") Is DBNull.Value Then nombre = rsTemporal("nombre").trim
'If Not rsTemporal("administrador") Is DBNull.Value Then administrador = rsTemporal("administrador")
If Not rsTemporal("idPerfil") Is DBNull.Value Then idPerfil = rsTemporal("idPerfil")
If Not rsTemporal("idUltimaCompania") Is DBNull.Value Then idUltimaCompania = rsTemporal("idUltimaCompania")
If Not rsTemporal("inactivo") Is DBNull.Value Then inactivo = rsTemporal("inactivo")


If inactivo <> "S" Then
'--------------
' Usuario correcto.. permitir el acceso y crear variables de sesion internas
' para evitar esta preguntandole a google
'--------------
Session.Timeout = 1300 ' 40 minutos

Session("admUsuario") = usuario
Session("admEmail") = emailLogeadoGoogle
Session("idCompaniaMAIN") = idUltimaCompania
Session("admNombre") = nombre
Session("admIdPerfil") = idPerfil
'session("admTablasValidas") = cadena


Response.Redirect("TUPAGINA.aspx")
Else

lblMensajes.Text = "su email:" & emailLogeadoGoogle & " AUN NO tiene permisos para acceder a la aplicacion, contacte al administrador"
End If