Ir para conteúdo

POWERED BY:

Arquivado

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

reinaldo polato

recuperar e-mail

Por , em ASP Clássico

Recommended Posts

reinaldo polato    1

reinaldo polato
Postado

e ai galera beleza seguinte eu quero criar um sistema pra recuperar senhas perdidas tipo voce esqueceu a senha do e-mail do ig ou do hotmail ai voce entra no sistema e manda para algum e-mail alternativo a senha isso é possivel valeu galera

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo:

 

Recuperando Senha

 

Vários sistemas, utilizam este recurso, para que quando o user esquecer ou perder sua senha, a mesma seja enviada via email para o “esquecidinho”, teremos um formulário, omde o user irá entrar com seu login, nome e email, com esses dados faremos uma consulta no bd e depois enviar a senha por email, este é um simples método, mas pode mos implementar muito mais, para ter maior segurança, como por exemplo validar algumas outros informações.

 

Esqsenha_form_treina.asp

 

 

<% 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>

 

Abaixo o action que irá validar e enviar a senha.

 

Esqsenha_action_treina.asp

 

 

<% 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

%>

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