HelpMasters - Multiplicando Ideias

Curta nossa página no Facebook para receber atualizações!



Voltaremos a postar tutoriais inovadores em 04/4

HelpMasters  » ASP  »  Sistema de recuperação de senha em ASP

Sistema de recuperação de senha em ASP

Olá pessoal, meu nome é Gilberto e esse é meu primeiro artigo aqui, espero que seja útil.

Irei mostrar como criar um sistema simples de recuperação de senha. Exemplo: é mais ou menos o do orkut, quando você esquece a sua senha do orkut e clica no link para solicitar uma nova senha você é redirecionado para um formulário onde é solicitado o seu email de cadastro.

O que nós iremos aprender é basicamente a mesma coisa, porém o sistema envia a senha direto para o email cadastrado.

Vamos começar:

Primeiro vamos criar o nosso formulário:

form.asp

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Formulário de Recuperação de Senha</title>
<style type="text/css">
#form_recuperasenha
{
width:350px;
height:50px;
margin:0 auto;
margin-top:3px;
font-family:Verdana, Arial, Geneva, sans-serif;
border: 1px solid #cccccc;
}
.email_senha
{
border:1px solid #CCCCCC;
}
</style>
</head>
<body>
<div id="form_recuperasenha">
 <form action="recuperasenha.asp" method="post" name="rec_senha" id="rec_senha" onsubmit="#">
 <table >
 <tr>
 <td>Email:</td>
 <td colspan="2"><input type="text" name="email" class="email_senha" size="50" /></td>
 </tr>
 <tr>
 <td>&nbsp;</td>
 <td><input type="Submit"  name="btn_enviar" value="Enviar" />  <input  type="reset" value="Limpar"></td>
 <td>&nbsp;</td>
 </tr>
 </table>
 </form>
</div>
</body>


</html>

config.asp

<%
'Conexão com o banco de dados
dim con, caminho
 
 caminho = "E:\home\dominio\dados\database.mdb"
 
sub connect
  set con = server.CreateObject("ADODB.Connection")
  
  con.connectionstring="driver={Microsoft Access Driver (*.mdb)};Dbq="&caminho
  con.open
end sub
sub disconnect 
 
 set con = nothing
end sub


%>

Baixe aqui o banco de dados.

Em seguida vamos criar a pagina que vai recuperar a senha.

recuperasenha.asp

<!--Aqui fazemos a inclusão do arquivo de conexão com o banco de dados-->
<!--#include file="config.asp" -->
<%
 'conectando ao banco
 call connect
 'Declaração de variaveis
 dim rs, email
 'Recuperamos o email que foi digitado no campo email do formulário
 email = trim(request.form("email"))
 'Verificamos se  email esta cadastrado no banco de dados
 set rs  = con.execute("SELECT * FROM TB_USUARIO WHERE EMAIL='"&email&"'")
 'Usamos um if para nos trazer a resposta se este email é valido ou nao, se o email nao for valido ele mostrar a mensagem de alerta do javascript, se o email for valido ele passa ele faz o else.	
 if  rs.eof then
 response.write("<script>alert('Email invalido'); location='default.asp'</script>")
 set rs = nothing 
 
 else
'Se o email for válido então ele faz o procedimento a seguir


'Inicia o objeto NewEmail
set mensagem = server.createobject("CDONTS.NewMail")
'Email do remetente..
mensagem.from = "nome@dominio.com.br"
'A variavel do email que foi recuperado do formulário.
mensagem.to = email
'Assunto do email.
mensagem.Subject = "Reenvio de Senha"
'Não alterar, deixe padrão.
mensagem.bodyformat = 0
'Não alterar, deixe padrão.
mensagem.mailformat = 0
'O corpo da mensagem, onde voce  pode  colocar algum texto e concatenar o nome a senha do usuario cadastrado no banco.
mensagem.Body = "Caro (a) " &rs( "NOME")&" segue sua senha " &rs("SENHA")&" <br><br><br><br>***Mensagem Automatica***"
'Envia mensagem.
mensagem.Send
'Libera recursos da mensagem
Set objMail = nothing
'Se o email for enviado com sucesso aparecera a mensagem de aleta a seguir.
response.write("<script>alert('Sua senha foi enviada para a caixa de entrada do seu email, favor verificar!'); location='default.asp'</script>")
'fecho o if
end if
'Desconecta do banco de dados
call disconnect


%>

É isso ae galera, qualquer coisa entre em contato.

Data de publicação: quarta-feira, 03 de fevereiro de 2010

4401 Vizualizações

Tags:                 

3 Comentários

  • Conexao com SQL Server

    01/04/2010 - 17:25, Kleber | #

    Olá, preciso fazer a conexao com o banco de dados SQL Server.
    pode me ajudar? está dando problema com essa parte!
    obrigado!

  • Conexao com SQL Server

    23/09/2011 - 18:38, Marcos Correa | #

    Dim Conn

    Function FG_AbreConexao()
    Set Conn=Server.CreateObject("ADODB.Connection")
    Conn.Open "User ID=usuario;password=senha;driver={SQL Server};server=servidor;database=bancodedados"
    End Function

    Sub FG_FechaConexao()
    Conn.Close
    Set Conn = Nothing
    End Sub

  • recuperação de senha

    04/11/2011 - 11:38, elaine | #

    recuperação de senha

Comente :




Gilberto Junior dos Santos

Gilberto Junior dos Santos

Eu sou Gilberto, e pretendo compartilhar o meu conhecimento.

Site | Email | Artigos : 1


www.HelpMasters.com.br | Todos os direitos reservados Like Box