Donde puedo encontrar algun ejemplo en asp o htm para poner en mi página una opción de recordar la clave a un usuario.
Los datos estan en una base de access
Gracias
27/05/2003, 14:19
| ||||
| ||||
 Recordatorio de claves - asp Donde puedo encontrar algun ejemplo en asp o htm para poner en mi página una opción de recordar la clave a un usuario. Los datos estan en una base de access Gracias |
|
28/05/2003, 06:45
| ||||
| ||||
| Lo que haria yo es un link donde se pikara kuando ya sta el usuario puesto, i se le enviara un e-mail (antes puesto en el formulario de registro) el nick i el pass, sacandolo de la db ;) <% Set Conex = Server.CreateObject("ADODB.Connection") set rs = server.createobject("ADODB.Recordset") conex.open..... rs.open... Set Mail = Server.CreateObject ("CDONTS.Newmail") Mail.From = 'AKI VAS TU Mail.To = Rs("Mail") Mail.Subject = "RECORDATORIO PASS" Mail.Body = "Tu password es:"&Rs("Pass") ' o como lo tengas tu en la db Mail.Send Set Mail = Nothing %> Última edición por ELRE; 28/05/2003 a las 07:15 |
|
28/05/2003, 07:10
| ||||
| ||||
| Muy facil: recupera.html Introduce tu emial para recuperar tu password <form method="POST" action="email.asp"> <input type="text" name="email" size="20"> <input type="submit" value="Enviar" name="B1"> <input type="reset" value="Restablecer" name="B2"> </form> email.asp <% 'recuperamos el email del formulario email=request("email") ' ---------------------- inicio del bloque consulta a la base de datos set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("base.mdb")&";" SQL="SELECT * FROM tutabla where email="&email&" " rs.Open SQL, oConn password=rs("password") rs.close oConn.close ' ---------------------- fin del bloque consulta a la base de datos ' ---------------------- inicio del bloque del email 'Enviamos el password con ASPEMAIL, si necesitas otro componente como CDONTS solo debes cambiar una pocas lineas. <% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.smtp-server.com" ' servidor SMTP de tu dominio Mail.From = "[email protected]" ' Direccion del que envia Mail.FromName = "Departamento de ventas" ' nombre del que envia Mail.AddAddress "[email protected]" 'direccion del destinatario, tambien puede ser una variable Mail.AddReplyTo "[email protected]" Mail.AddAttachment "c:imagescakes.gif" Mail.Subject = "Recuperacion de password" Mail.Body = "Aqui tienes tu password, despistado" & password On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Se ha encontrado un error: " & Err.Description End If ' ---------------------- fin del bloque del email %> Última edición por maestro; 28/05/2003 a las 07:14 |
|
11/06/2003, 15:32
| ||||
| ||||
| Recordatorio de claves Maestro, verifique los códigos y me da el siguiente error: [Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta '[email protected]'. /q_clave.asp, line 21 Te paso mis códigos: q_clave.htm <html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>No recuerdas tu clave</title> <script language="JavaScript" fptype="dynamicanimation"> <!-- function dynAnimation() {} function clickSwapImg() {} //--> </script> <script language="JavaScript1.2" fptype="dynamicanimation" src="animate.js"> </script> <meta name="Microsoft Theme" content="transgalicia-v3 111"> </head> <body onload="dynAnimation()"> <form method="POST" action="q_clave.asp"> <font color="#00cccc"> <img src="Graficos/Iconos/Letras/c.gif" width="56" height="70"><img src="Graficos/Iconos/Letras/l.gif" width="56" height="70"><img src="Graficos/Iconos/Letras/a.gif" width="56" height="70"><img src="Graficos/Iconos/Letras/v.gif" width="56" height="70"><img src="Graficos/Iconos/Letras/e.gif" width="56" height="70"><img src="Graficos/Iconos/Letras/s.gif" width="56" height="70"></font><p dynamicanimation="fpAnimwaveWordsFP1" id="fpAnimwaveWordsFP1" style="position: relative !important; visibility: hidden" language="Javascript1.2"> <font color="#00CCCC"> <img border="0" src="Graficos/Iconos/scratchchin.gif" width="15" height="20"> </font><font color="#FFFF00" face="Lucida Blackletter"><b>No recuerdas tu clave?</b></font><font color="#00CCCC"> <img border="0" src="Graficos/Iconos/scratchchin.gif" width="15" height="20"></font></p> <p> <font color="#FFFF00"> <b><font color="#FFFF00" face="Lucida Blackletter">Ingresa tu E-mail ....... :</font></b> <input type="text" name="email" size="27"> </font> <p> <input type="submit" value="Enviar" name="B1"> <input type="reset" value="Restablecer" name="B2"> </p> </form> </body> </html> q_clave.asp <html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Pagina nueva 1</title> <meta name="Microsoft Theme" content="transgalicia-v3 011"> </head> <body> <% 'recuperamos el email del formulario email=request("email") '---------------------- inicio del bloque consulta a la base de datos DBFile="D:\Inetpub\Dominios\11455644\www.transgalicia.com\registros\socios.mdb" Set basedatos = Server.CreateObject("ADODB.Connection") Set myR2Set = Server.CreateObject("ADODB.Recordset") basedatos.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBFile&";" wstr2 = "SELECT * FROM usuarios where email="&email&"" myR2Set.Open wstr2, basedatos txtusuario = myR2Set("usuario") password = myR2Set("clave") basedatos.close '---------------------- fin del bloque consulta a la base de datos '##############Comienza el envío del correo con las claves textoenviar=textoenviar & "<html><head><title>informacion</title><meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'></head><body>" textoenviar=textoenviar & " Respondiendo a tu solicitud de olvido de clave en TRANSGALICIA.<br><br> Para poder acceder a nuestra <b>ZONA SOCIOS</b> deberá intruducir los siguientes datos:<br><br><b> USUARIO=" & txtusuario & " y CLAVE=" & password & "</b><br><br> Un cordial saludo.<br><br><b> TRANSGALICIA.COM </b></body></html>" aquien1 = email adonde1 = email aquien2 = "[email protected]" adonde2 = "[email protected]" subject = "Alta como miembro de TRANSGALICIA.COM" servidor = "mailer.ran.es" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.Timeout = 100 'segundos, 30 por defecto Mailer.RemoteHost = servidor Mailer.FromName = "TRANSGALICIA" Mailer.FromAddress = "[email protected]" Mailer.AddRecipient aquien1,aquien1 Mailer.AddRecipient aquien2,aquien2 Mailer.Subject = subject Mailer.ContentType = "text/html" ' Mailer.AddAttachment txtleccion Mailer.BodyText = textoenviar If not Mailer.SendMail then Response.Write " La solicitud no se ha podido enviar... " & vbCr error = Mailer.response Response.Write " Se recibió el siguiente mensaje de error... " & error & vbCr & vbCr Else Response.write "<font color='#FFFF00' size='4' face='Tahoma'>Ya se envio por correo tu solicitud de claves para acceder a <b>TRANSGALICIA.COM</b>.<a href='/inicio.asp'>continuar</a></font>" & vbCr End if SET Mailer = NOTHING '##############Finaliza el envío del correo con las claves myR2Set.close basedatos.close %> </body> </html> Dime donde tengo el error |
|
22/09/2003, 19:56
| ||||
| ||||
| recuperar password y ..... Hola Alguien me podria pasar el codigo de una pagina que permita recuperar el nombre de usuario y password ..mediante el envio de correo electronico?? Tambien quisiera saber como se valida que no haya 2 o mas usuarios registrados iguales?? gracias |
|
24/09/2003, 12:53
| ||||
| ||||
| |
