31/03/2006, 12:49
| |||
| |||
| Problemas. Login password y change password Hola amigos saben he visto en muchos lados como hacer un sitio restringidido y la mayoria es solo login y password pero necesito un ejemplo para base de datos osea... que se loguee con un nombre de usuario y contraseña y que cuando entre bien tenga la posibilidad de cambiar la clave nose como hacerlo Alejandra. |
|
31/03/2006, 12:56
| ||||
| ||||
| mira no es tan complicado - crea una tabla con campos USER_ID , USER_USUARIO, USER_PASSWORD, USER_PRIVILEGIO - luego generas una pagina html o asp con un formulario que contenga dos areas de texto una para el ingreso del nombre de usuario(USER_USUARIO), y otra para la clave del usuario (USER_PASSWORD) y abajo un link que diga modificar datos que sera para cambiar la clave u otro dato que kieras - despues debes generar un archivo asp login.asp en el cual recibes los datos del formulario y creas una consulta sql para comparar los datos ingresados en el form con la base de datos - y te creas otra pagina modusuario.asp a la cual accedes por medio del link modificar datos y hay debes tener un formulario en el cual muestras los datos del usuario y le das la capacidad de modificarlos
__________________ Para ayudar en lo que se pueda:Zzz: Última edición por mc_quake; 31/03/2006 a las 13:01 |
|
31/03/2006, 13:17
| |||
| |||
| gracias, pero todabia soy muy nuv en esto gracias se entiende bien pero en el codigo aun soy muy nuv y aunque toy aprendiendo igual me urge porque es para mi clase. si se podria hacer en codigo asp graxias.. |
|
31/03/2006, 14:02
| ||||
| ||||
| ejemplo pagina formulario: inicio.asp Cita: login.asp<% Mensaje = Request.QueryString("Msj") %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form name="form" method="post" action="login.asp"> <table width="98%" border="0"> <tr> <td width="23%"><img src="IMG/Logo%20Telmex.bmp"></td> <td width="61%"><div align="right"><strong></strong></div></td> <td width="16%"> </td> </tr> </table> <table width="25%" border="0" align="center"> <tr> <td width="21%"><strong><font color="#0000FF" size="2" face="Trebuchet MS">Usuario</font></strong></td> <td width="2%"><strong><font color="#0000FF" size="2" face="Trebuchet MS">:</font></strong></td> <td width="77%"><font size="2" face="Trebuchet MS"> <input name="usuario" type="text" id="usuario" size="15" maxlength="15"> </font></td> </tr> <tr> <td><strong><font color="#0000FF" size="2" face="Trebuchet MS">Password</font></strong></td> <td><strong><font color="#0000FF" size="2" face="Trebuchet MS">:</font></strong></td> <td><font size="2" face="Trebuchet MS"> <input name="password" type="password" id="password" size="15" maxlength="15"> </font></td> </tr> <tr> <td> <a href="modusuario.asp">Ingreso</a></td> </tr> </table> <table width="25%" border="0" align="center"> <tr> <td><div align="center"> <input type="submit" name="Submit" value="Entrar"> </div></td> </tr> <tr> <td><div align="center"><font color="#FF0000" size="2" face="Trebuchet MS"><%=Mensaje%></font></div></td> </tr> </table> </form> </body> </html> Cita: eso es <% Dim usuario, password, Conexion, Registros, Sql Session ("USUARIO")= Request.form("usuario") If Session("ID_USUARIO")<> "" Then Response.Redirect "Inicio.asp?Msj=Acceso denegado Ingrese Usuario y password" ElseIf Session("ID_USUARIO")="" Then If Request.Form("usuario") = "" OR Request.Form("password") = "" then Response.Redirect "Inicio.asp?Msj=Existen Campos Vacios" Else 'Guardamos los datos del Form en variables y evitamos la comilla simple usuario = UCase(Trim(Request.Form("usuario"))) password = UCase(Trim(Request.Form("password"))) usuario = Replace(usuario,"'","''") password = Replace(password,"'","''") Set Conexion = Server.CreateObject ("ADODB.Connection") Conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Base.mdb;" 'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form. Set Registros = Server.CreateObject ("ADODB.RecordSet") Sql = "SELECT * FROM USERS WHERE USER_USUARIO = '"& usuario &"'" Registros.Open Sql, Conexion 'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario. If (Registros.EOF = true) then Response.Redirect ("Inicio.asp?Msj=Ese usuario no existe") ElseIf Registros.Fields("USER_PASSWORD") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado. Session("USUARIO") = usuario Session("NIVEL")= Registros.Fields("TIPO") Response.Write "<font color=#0000FF size=2 face=Trebuchet MS>Bienvenido <B>"& Session("USER_USUARIO") &"</B></font>" response.write "<table width=""752"" border=""1"" align=""center"" class=""tbl_marco1"">" response.write " <tr>" response.write " <td width=""742"" height=""112"" bgcolor=""#E0E0F6""> " response.write " <p align=""center""><font color=""#000000"" size=""5"" face=""Trebuchet MS""><strong>Bienvenido " response.write " <font color=""#FF0000"">"& Session("USUARIO") &"</font> a servicios restringidos de subtel</strong></font></p>" response.write " <p align=""center""><strong><font color=""#000000"" size=""2"" face=""Trebuchet MS"">Si " response.write " dentro de los proximos 5 segundos no eres direccionado a la pagina inicio " response.write " de session pincha <font color=""#0000FF""><a href=""usuario.asp"">AQUI</a></font></font><font color=""#000000"" size=""3"" face=""Trebuchet MS""> " response.write " Suerte!!!</font></strong></p>" response.write " </td>" response.write " </tr>" response.write "</table>" response.redirect ("usuario.asp?privilegioo="&Registros.Fields("USER _PRIVILEGIO")&"") Else 'Otra cosa, seria cuando el password no es la que seleccionamos. Response.Redirect("Inicio.asp?Msj=Esa contraseña no concuerda con el usuario ingresado") End If 'Limpiamos y cerramos. Registros.Close Conexion.Close Set Registros = Nothing Set Conexion = Nothing End If End If %> solo te falata ria crear la pagina de modificar los datos eso te lo dejo ati
__________________ Para ayudar en lo que se pueda:Zzz: |
|
31/03/2006, 14:02
| ||||
| ||||
| Para su clase nada...leáse una poca de documentación y regrese si tiene alguna duda...pero tareas no hacemos je je je
Código:
Temario El Objeto Request -Método Form Variables de Sesión Conexión a Bases de Datos El Objeto ADO -Trabajando con recordsets
__________________ "El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera." -- Ernest Hemingway |
|
31/03/2006, 14:50
| ||||
| ||||
| acceso restringido http://www.aspfacil.com/articulos/cv_usuarios.ASP |
|
24/12/2007, 18:32
| |||
| |||
| Re: Problemas. Login password y change password HOLA AMIGOS. NECESITO UNA PEQUEÑA AYUDA :) TENGO PROBLEMA CON EL INICIO DE SESION, LO Q PASA ES Q AL INGRESAR EL USER Y EL PASS EN EL FORM, EL CODIGO SOLO ME LEE EL USER PERO NO EL PASS, OSEA ME LEE SOLO UN DATO Y NO LOS 2 Y LUEGO CUANDO LE DOY ACEPTAR ME SALE CLAVE INCORRECTA, A PESAR DE Q LA CLAVE ESTA CORRECTAMENTE ESCRITA. AKI LES DEJO EL CODIGO Y SI LO CHEKEAN BAKN... <%@ Language="VBScript" %> <% Option Explicit %> <% Dim user, pass user = LCASE(Request.Form("txtUs")) pass = Request.Form("txtPas") %> <!--#include file="dbConexion.asp"--> <% IF user = "" Then error("emptyuname") ELSEIF pass = "" then error("emptypasss") ELSE Dim sql,rsUser,luser,lpass sql = "SELECT NombUsuario,Clave FROM Usuario WHERE NombUsuario = '" & user & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conexion, 3, 3 IF NOT rsUser.BOF AND NOT rsUser.EOF Then luser = rsUser("NombUsuario") lpass = rsUser("Clave") rsUser.close set rsUser = nothing IF luser = user and lpass = pass Then Session("txtUs") = luser Response.Redirect("Index.asp") ELSE error("wrongp") END IF ELSE error("wrongu") END IF END IF %> <% conexion.close set conexion = nothing %> <%FUNCTION error(calltype)%> <br><br><br> <table Align="center" vAlign="center" width="500"> <tr> <td Align="center"> <h3>ERROR DE LOGEO!</h3> </td> </tr> <tr> <td Align="center"> <%IF calltype = "emptyuname" Then%> <font size="2">Ese usuario no existe</font> <%ELSEIF calltype = "emptypass" Then%> <font size="2">No hay clave para ese usuario</font> <%ELSEIF calltype = "wrongp" Then%> <font size="2">Clave incorrecta</font> <%ELSEIF calltype = "wrongu" Then%> <font size="2">Nombre de Usuario incorrecto</font> <%END IF%> </td> </tr> </table> <br><center><a href="javascript:history.back()"> Click para volver a logearse!</a> </center> <%END FUNCTION%> PORFA AMIGOS, NECESITO ESO URGENTE, CUALQUIER SOLUCIION ES ACEPTADA ;) JEJE GRACIAS MANOS!.... [email protected] |
