Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

[Resolvido] Recuperar senha

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola galera alguem pode me ajudar a encontrar este codigo..

 

Mas tem q ser em asp

 

encontrei um em Mysql....

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este código, onde o user preenche um form e depois é enviado a senha por email.

 

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@xanburzum.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

Ted k'    126

Ted k'
Postado

não tem segredo, é como se fosse uma busca mais sem a porcentagem (%) no SQL, se achar envia um e-mail para o "e-mail" encontrado, junto com a senha!

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

esta dando este erro

 

 

ERRO.asp

Microsoft VBScript runtime error '800a01f4' 

Variable is undefined: 'abreconexao' 

/ocolinense/cadastro/action_senha.asp, line 30

Compartilhar este post

Link para o post
Compartilhar em outros sites

filipescoob    1

filipescoob
Postado

Verifique se sua conexao com o banco esta certa e a variavel declarada.

Pois no inicio do seu codigo você tem um

 

<% Option Explicit

Ele obriga todas as variaveis serem declaradas

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vagner Bucioli Scala    0

Vagner Bucioli Scala
Postado

Como o Ted falou não tem segredo! Faça você mesmo q vai ser bem mais fácil do que tentar achar estes códigos prontos que muitas vezes só servem pra complicar a vida!

 

FAz assim:

 

Esqueceu sua senha?

 

Daí o usuário clicando ele vai pra um form:

 

<form action="envia.asp">
<input type="text" name="txtEmail">
</form>

 

Daí na Envia.ASP você faz assim: usa o OLeDB Pra se conectar pq ele é bem simples:

 

<%
set cn=server.createobject("adodb.connection")
cn.provider="microsoft.jet.oledb.4.0"
cn.connectionstring=server.mappath("dados/seubanco.mdb")
cn.open
%>


<%
txtEmail = request("txtEmail")

 Set PegaEmail = cn.execute ("Select * From tbEmail where Email='"&txtEmail&"'") %>

<% If not PegaEmail.Eof Then 'SE O EMAIL RESGATADO EXISTIR %>

AQUI VEM A INSTRUÇÃO DE SEU COMPONENTE PREFERIDO PRA ENVIAR O EMAIL P/ O USUÁRIO, TIPO:

Componente.Send txtEmail

response.write "Prezado cliente segue abaixo sua senha conforme solicitado: <br> <br> <b> Email: </b> " & txtEmail & "Senha: " & PegaEmail("tbSenha")

< % ELSE %>

EMAIL NÃO CADASTRADO EM NOSSA BASE DE DADOS

<% end if %>

Tenta aí qualquer coisa dá um grito!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

O erro é pq eu fiz este código usando a conexão em outro arquivo, ou seja, você faz o código de conexão como sub e chama ele depois, você deve mudar , onde estiver o

<!--#include file="conn/conexao1.asp" -->
você cria sua conexão. E coloca neste lugar.

e vai funcionar,normalmente, não tem segredo este código, e esta tudo comentado

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