Login con usuario y contraseña desde una BD de Access
El ejemplo a continuación sirve para chequear si el nombre de usuario ingresado en un formulario, coincide con su contraseña. Si no es asi, denegaremos el ingreso a la siguiente página.
Veamos el ejemplo que sigue.
Este codigo de Puro HTML va en la primer página:
Archivo: pagina1.asp
<FORM ACTION="pagina2.asp" METHOD="post"><BR> <B>Usuario:</B> <INPUT NAME="usuario" SIZE="12"><BR> <B>Contraseña:</B> <INPUT NAME="password" SIZE="12"><BR><BR> <INPUT TYPE="submit" VALUE="Ingresar"> </FORM>
Este código va en la página a donde se envian los datos del FORM. En mi ejemplo seria pagina2.asp.
Archivo: pagina2.asp
<%
Dim usuario, password, oConn, RS
Primero nos fijamos si ambos campos fueron completados.
Si no se cumple, redireccionamos a pagina1.asp
if Request.Form("usuario") = "" OR Request.Form("password") = "" then
response.Redirect "pagina1.asp"
else
Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = trim(Request.Form("usuario"))
password = trim(Request.Form("password"))
usuario = Replace(usuario,"","")
password = Replace(password,"","")
Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&
Server.MapPath("./basedatos.mdb")
Seleccionamos de la tabla solo los registros que concuerden con el
usuario del Form.
sql = "select * from prueba where usuario = "& usuario &""
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.open sql, oConn
Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
if (RS.EOF = true) then
response.Write "Ese usuario no existe"
elseif RS.Fields("password") = password then Si el campo de la tabla es
igual a nuestra variable, estas logueado.
response.Write "Te logueaste con exito... Bienvenido "& usuario &""
else Otra cosa, seria cuando el password no es la que seleccionamos.
response.Write "Esa contraseña no concuerda con el usuario ingresado"
end if
Limpiamos y cerramos.
RS.close
oConn.close
Set RS = nothing
Set oConn = nothing
end If
%>