Validar Usuario y Redireccionar su ingreso
aljorsamel
16 de Agosto del 2009
Amigos, soy novato y me gusta aprender de los ejemplos, necesito ayuda estoy haciendo una aplicación para intranet donde varios usuarios deben de ingresar sólo a donde se le tiene permitido, para ello tengo una BD en Access con 4 campos (Id, Usuario, Password, AreaTrabajo), he desarrollado la Pag.inicio donde un Formulario recoge dato usuario y clave, pero no logro que se validen los datos en la segunda Página, esta queda en blanco y ademas no se como hacer para que se ejecute la información del campo 4 (este debe indicar a pag debe de ir),de la BD. Estos son los códigos que he realizado.
<html>
<head>
<title>Abre Formulario</title>
</head>
<body>
<FORM ACTION="confirma.asp" METHOD="post"><BR>
<B>Usuario:</B> <INPUT NAME="Usuario" SIZE="12"><BR>
<B>Password:</B> <INPUT NAME="Password" SIZE="12"><BR><BR>
<INPUT TYPE="Submit" VALUE="Ingresar">
</FORM>
</body>
</html>
**************************************************************************
<html>
<head>
<title>Verifica</title>
</head>
<body>
<script language="vbscript">
Dim usuario, password, oConn, RS
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "Error.asp"
Else
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./registro.mdb")
sql = "SELECT * FROM prueba WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
</script>
</body>
</html>
:
<html>
<head>
<title>Abre Formulario</title>
</head>
<body>
<FORM ACTION="confirma.asp" METHOD="post"><BR>
<B>Usuario:</B> <INPUT NAME="Usuario" SIZE="12"><BR>
<B>Password:</B> <INPUT NAME="Password" SIZE="12"><BR><BR>
<INPUT TYPE="Submit" VALUE="Ingresar">
</FORM>
</body>
</html>
**************************************************************************
<html>
<head>
<title>Verifica</title>
</head>
<body>
<script language="vbscript">
Dim usuario, password, oConn, RS
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "Error.asp"
Else
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./registro.mdb")
sql = "SELECT * FROM prueba WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
</script>
</body>
</html>
: