Foros del Web » Programando para Internet » ASPX (.net) »

Autentificacion

Estas en el tema de Autentificacion en el foro de ASPX (.net) en Foros del Web. hola que tal haber si me pueden ayudar, el sistema que tengo esta ya terminado y se enlaza a una base de dtos en acces ...
  #1 (permalink)  
Antiguo 09/11/2010, 15:50
 
Fecha de Ingreso: noviembre-2010
Mensajes: 1
Antigüedad: 13 años, 8 meses
Puntos: 0
Autentificacion

hola que tal haber si me pueden ayudar, el sistema que tengo esta ya terminado y se enlaza a una base de dtos en acces

mi autentificacion esta correcta y sin mas problema , solo que no se como hacerle para que uno o mas usuarios ingresen al mismo tiempo y ala vez llenen el registro sin afectar alos demas osea que la secion de cada uno permanesca hasta que se salga.

este es mi codigo

Imports System.Data.SqlClient
Imports System.Data

Partial Class autenticacion_autenticacion
Inherits System.Web.UI.Page
Private SQLServer_Connection As String


Function UserAuthentication(ByVal strUser As String, ByVal strPasswd As String) As Integer
Dim con As New SqlConnection
con.ConnectionString = "Data Source=PROVIH;Initial Catalog=db_conseguimiento;User ID=sa"
con.Open()
Dim Da As New SqlDataAdapter("SELECT * FROM userid WHERE login = '" & txt_usuario.Text & "' and pass = '" & txt_contrasena.Text & "'", con)
Dim usuario As New DataSet
Dim IdUSer As New DataSet


Dim x As String = System.Web.Configuration.WebConfigurationManager.A ppSettings("User ID").ToString
Me.txt_usuario.Text = x





Da.Fill(IdUSer, "Clave")
Da.Fill(usuario, "User")
If usuario.Tables("User").Rows.Count > 0 Then
Response.Redirect("~/reporte_eval_inv/reporte_eval_inv.aspx")
'lbl_error_3.Text = "Entra"
Else
lbl_error_3.Text = "El usuario o la contraseña no son correctos"
End If


End Function





Protected Sub btn_entrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_entrar.Click
Dim usuario As String
Dim contrasena As String


Session("User") = txt_usuario.Text
Session.Timeout = 15

usuario = txt_usuario.Text
contrasena = txt_contrasena.Text
UserAuthentication(usuario, contrasena)

If txt_usuario.Text = "" Then
lbl_error_3.Visible = False
lbl_error.Visible = True
Else
lbl_error.Visible = False
End If
If txt_contrasena.Text = "" Then
lbl_error_3.Visible = False
lbl_error_2.Visible = True
Else
lbl_error_2.Visible = False
End If

End Sub
End Class

Etiquetas: aspx, autenticacion
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:43.