[Resolvido] Recuperando e ALterando senhas

xanburzum · Janeiro 14, 2010

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 siples 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,resiz
e=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

					   %>

Finalizando agora teremos este arquivo que permite ao usuário a alterar sua senha, para isso é preciso fornecer a senha atual , a nova senha e redigitar a nova senha para confirmação.

Alterasenha_form_treina.asp

<html>

	<head>

	<title>Administradores</title>

	</head>

	<body bgcolor=”#9999FF”>

	<table width=”56%” border=”1″ cellspacing=”0″ cellpadding=”0″ align=”center”>

	  <tr bgcolor=”#FFFFFF”>

		<td>

		  <div align=”center”><font color=”#FF6633″ face=”Arial, Helvetica, sans-serif”><b>Alteração

			de senha do Login: <%=UCase(Session(”Login”))%></b></font></div>

		</td>

	  </tr>

	  <tr bgcolor=”#CCCCCC”>

		<td>

		  <form method=”post” action=” Alterasenha_action_treina.asp”>

			<table width=”85%” border=”0″ align=”center”>

			  <tr>

				<td height=”20″ width=”48%”> </td>

				<td height=”20″ width=”52%”> </td>

			  </tr>

			  <tr>

				<td height=”39″ width=”48%”>

				  <div align=”right”><font face=”Verdana, Arial, Helvetica, sans-serif” size=”2″>Senha

					atual :</font></div>

				</td>

				<td height=”39″ width=”52%”>

				  <input type=”password” name=”senhaAtual” maxlength=”10″ size=”10″>

				</td>

			  </tr>

			  <tr>

				<td height=”39″ width=”48%”>

				  <div align=”right”><font face=”Verdana, Arial, Helvetica, sans-serif” size=”2″>Nova

					senha:</font></div>

				</td>

				<td height=”39″ width=”52%”>

				  <input type=”password” name=”senhaNova” maxlength=”10″ size=”10″>

				</td>

			  </tr>

			  <tr>

				<td height=”39″ width=”48%”>

				  <div align=”right”><font face=”Verdana, Arial, Helvetica, sans-serif” size=”2″>Confirma

					senha:</font></div>

				</td>

				<td height=”39″ width=”52%”>

				  <input type=”password” name=”senhaConfirma” maxlength=”10″ size=”10″>

				</td>

			  </tr>

			  <tr>

				<td height=”39″ colspan=”2″>

				  <div align=”center”>

					<input type=”submit” name=”Entrar” value=”Alterar”>

				  </div>

				</td>

			  </tr>

			</table>

		  </form>

		</td>

	  </tr>

	</table>

	</body>

	</html>

Abaixo o arquivo que irá trocar a senha.

Alterasenha_action_treina.asp

<%

	Option Explicit

	‘Admin – alteração de senhas

	%>

	<%

	Dim strSQL, Conexao, rs, varSenha, varSenhaAtual, varSenhaNova, varSenhaConfirma, varLinha

	varSenhaAtual = Trim(Request.Form(”SenhaAtual”))

	varSenhaNova = Trim(Request.Form(”SenhaNova”))

	varSenhaConfirma = Trim(Request.Form(”SenhaConfirma”))

	varSenha = Session(”Senha”)

	varSenha = Replace(varSenha, “‘”, “”)

	varSenhaNova = Replace(varSenhaNova, “‘”, “”)

	varSenhaConfirma = Replace(varSenhaConfirma, “‘”, “”)

	 

	IF varSenha = varSenhaAtual AND varSenhaNova = varSenhaConfirma then

	   strSQL = “UPDATE Login SET TXT_Senha = ‘” & varSenhaNova & “‘ “

	   strSQL = strSQL & “WHERE TXT_Nome = ‘” & Session(”Login”) & “‘”

	   ‘abre a conexao

	   Call abre_conexao

	 

	   ‘executa a instrução SQL

	   Set rs = Conexao.Execute(strSQL)

	 

	   ‘fecha a conexao

	   Call fecha_conexao

	   Set rs = Nothing

	   varLinha = 1

	Else

	   varLinha = 2

	End IF

	%>

	<HTML>

	<BODY bgcolor=”#FFFFFF”>

	<DIV align=”left”>

	  <table width=”75%” border=”0″>

	  <%

	  IF varlinha = 1 then

	  %>

		<tr>

		  <td>

			<div align=”center”><font color=”#FF6633″ face=”verdana”><b><font color=”#FF6633″ face=”verdana”><b><font color=”#663399″ face=”verdana”><b><font size=”4″>Senha

			  alterada com</font></b></font><font size=”4″><br>

			  <font color=”#663399″ face=”verdana”><b><font size=”4″><font color=”#818181″ size=”6″>S

			  U C E S S O ! ! !</font> </font></b></font><font color=”#FFFFFF” size=”6″>

			  !</font></font></b></font></b></font></div>

		  </td>

		</tr>

	  <%

	  Else

	  %>

		<tr>

		  <td>

			<div align=”center”><font color=”#663399″ face=”verdana” size=”4″><b>Senhas

			  nova e confirma estão</b></font><br>

			  <font color=”#818181″ face=”verdana” size=”6″><b>I N C O R R E T A S

			  ! ! ! </b></font></div>

		  </td>

		</tr>

	  <%

	  End If

	  %>

	  </table>

	</DIV>

	</BODY>

	</HTML>

Entrar

Arquivado

[Resolvido] Recuperando e ALterando senhas

Recommended Posts

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante