Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Alan Dantas

Sistema de login - Recuperação da senha via e-mail

Por , em ASP Clássico

Recommended Posts

Alan Dantas    0

Alan Dantas
Postado

Olá pessoal, criei um sistema de login no qual estou com dificuldades em criar o método da recuperação da senha via e-mail, onde o usuário digita seu e-mail e é enviada a sua senha esquecida para seu e-mail cadastrado. Já olhei vários scripts na web, porem nenhum satisfatório.

Gostaria de saber em qual parte do site é criada esse método, e se é possível pois a senha foi criptografada em sha1.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo... esta funcionando 100%

 

form

<% Option Explicit 
'declara as var
dim varmsgeof,varmsg
'recupera a msgeof do erro no login_action
varmsgeof=request.querystring("msgeof")
varmsg=request.querystring("msg")%>

<script language="javascript">
function novajan(){
window.open ("erro_treina.asp","Erro","width=240,height=240,scrollbar=no,status=yes,resize=no")
}
</script>

<script language="javascript">
function novajan1(){
window.open ("sucesso_treina.asp","Sucesso","width=240,height=240,scrollbar=no,status=yes,resize=no")
}
</script>

<%
if varmsg = 1 then
response.Write("<script>novajan1();</script>")
end if

Select case varmsgeof
case 1 'nome vazio
response.write("<script>novajan();</script>")
case 2 'login vazio
response.write("<script>novajan();</script>")
case 3 'email vazio
response.write("<script>novajan();</script>")
case  4 'login incorreto
response.write("<script>novajan();</script>")
case  5 'email incorreto
response.write("<script>novajan();</script>")
end select %>

<HTML>
<HEAD>
<TITLE>Recuperação de senha</TITLE>
<BODY bgColor=#ffffff leftMargin=18 topMargin=12>
<table width="100%" border="0" height="445">
  <tr> 
    <td height="378"> <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#666666"><b><font color="#336699">:: 
        Entre com as informções para receber sua senha por email.</font></b></font></p>
      <p> </p>
      <form name="form1" method="post" action="file:///C|/Documents%20and%20Settings/x/Desktop/Treinamento/esqsenha_action_treina.asp">
        <table width="85%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699">
          <tr bgcolor="#666666"> 
            <td width="4%" bgcolor="#666699"><img src="file:///C|/Documents%20and%20Settings/x/Desktop/Treinamento/imgs/curva.gif" width="10" height="19"></td>
            <td width="96%" bgcolor="#336699"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b><font size="3">:: 
                </font>Por favor entre com seu login e email</b></font></div></td>
          </tr>
          <tr bgcolor="#666666"> 
            <td width="4%" bgcolor="#336699"> </td>
            <td width="96%" bgcolor="#336699"> </td>
          </tr>
          <tr bgcolor="#666666"> 
            <td colspan="2" bgcolor="#336699"><font color="#e6e6e6" face="Verdana, Arial, Helvetica, sans-serif" size="2"><b> Nome: 
                
              <input name=nome id="nome" size="20" maxlength="12">
              </b></font></td>
          </tr>
        </table>
        <table width="85%" border="0" cellspacing="0">
          <tr bgcolor="#336699"> 
            <td colspan="3"><font color="#e6e6e6" face="Verdana, Arial, Helvetica, sans-serif" size="2"><b> Login: 
                
              <input name=login size="12" maxlength="12">
              </b></font></td>
          </tr>
          <tr bgcolor="#336699"> 
            <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6"><b> Email: 
              <input type=text name=email size="30" maxlength="30">
                 <span class="preto"> </span></b></font></td>
          </tr>
          <tr bgcolor="#336699"> 
            <td height="2" width="41%"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6"><b><span class="preto">
                <input type="image" border="0" name="imageField" src="file:///C|/Documents%20and%20Settings/x/Desktop/Treinamento/imgs/enviar.gif" width="87" height="22">
                </span></b></font></div></td>
            <td width="42%"><div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#e6e6e6"></font></div></td>
            <td height="2" width="17%"> </td>
          </tr>
          <tr bgcolor="#336699"> 
            <td height="2" colspan="2"> </td>
            <td height="2"> </td>
          </tr>
        </table>
    
      </form>
      </td>
  </tr>
</table>
</BODY></HTML>

action

<% Option Explicit
' Declaro as variaveis
Dim varnome,varlogin,varemail,conDBQ,constring,conexao,rs,SQL,objmail

' recupero as variaveis

varnome=Trim(request.Form("nome"))
varemail=Trim(request.Form("email"))
varlogin=Trim(request.Form("login"))

if varnome = "" then
response.redirect("esqsenha_form_treina.asp?msgeof=1")
end if

if varlogin = "" then
response.redirect("esqsenha_form_treina.asp?msgeof=2")
end if

if varemail = "" then
response.redirect("esqsenha_form_treina.asp?msgeof=3")
end if

' crio a conexao
%>

<!--#include file="conn/conexao1.asp" -->

<%
' abro a conexao
 call abreconexao
 ' crio o rs
 
 Set rs= server.createobject("ADODB.Recordset")
 ' crio o SQL
 SQL="SELECT * FROM login WHERE login='"&varlogin&"'"
 rs.open SQL,conexao,1,3
 if rs.eof then 
     	response.Redirect("esqsenha_form_treina.asp?msgeof=4")
		else
		    if LCase(varemail) <> LCase (rs("email")) then
			    	response.Redirect("esqsenha_form_treina.asp?msgeof=5")
				  else
				  ' crio o objeto para envio de email
	       	   Set objmail= Server.CreateObject("CDONTS.NewMail") 
				    objmail.from="xanburzum@terra.com.br"
			   		objmail.to=varemail
		   			objmail.subject="Sua senha"
				    objmail.body="Caro(a) " & varnome & " segue sua senha:  " &rs("senha")
			   		objmail.send
			   set objmail=nothing
		end if	
 end if
 response.Redirect("esqsenha_form_treina.asp?msg=1")
 call fechanexaonexao
	   %>

só adapte para suas necessidades (mude email, se quiser outro componente de email...)

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

10371384_736836436360155_690255797676065

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito