Jump to content


Photo

Enviu De Senha Esquecida


  • Faça o login para participar
12 replies to this topic

#1 zanelati2002

zanelati2002

    Normal

  • Usuários
  • 101 posts
  • Sexo:Não informado

Posted 28/12/2003, 09:45

este codigo foi criado pelo crazy é para enviar por email a senha do usuario caso ele esqueça dela só que o problema ele so esta buscando o login mais e se tiver mais de um login igual teria que buuscar o login e a senha teria jeito crazy ou alguem que possa me ajudar segue o codigo
<%

Dim ConnectString, conn

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

conn.open ConnectString



email=request.querystring("email")

set rs = conn.execute("select * from users where email='"&email&"'")



If rs.EOF = True Then

    Response.Write "Email inválido!"

Else

    Set meuMail = CreateObject("CDONTS.NewMail") 

    sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password")



    meuMail.From = "sitedozanelati@ig.com.br"

    meuMail.To = rs("email") 

    meuMail.Subject = "Envio de Senha" 

    meuMail.BodyFormat = 0 

    meuMail.MailFormat = 0 

    meuMail.Body = sCorpo

    meuMail.Send 

    Set meuMail = Nothing 

%>

<html>



<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<meta name="GENERATOR" content="Microsoft FrontPage 4.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>Confirma Mensagem</title>

</head>

<body background="../zanelati_r41_c7.gif">

<div align="center">

  <center><table border="0" width="55%" cellspacing="0" cellpadding="0">

  <tr>

    <td width="100%" align="center">

      <font face="Verdana" size="2" color="#FFFFFF">1</font></td>

  </tr>

  <tr>

    <td width="100%" align="center">

      <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para

      Seu e-mail com Sucesso</font></td>

  </tr>

  <tr>

    <td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que

      Sua Senha é de Responsabilidade Tua.</font></td>

  </tr>

  <tr>

    <td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td>

  </tr>

</table>

  </center>

</div>

</body>

</html>

<%

End If



rs.close

set rs = nothing



conn.close

set conn = nothing

%>


#2 crazybaby

crazybaby

    Cyber Eye

  • Banidos
  • PipPipPipPipPipPipPipPipPip
  • 1112 posts
  • Sexo:Não informado
  • Localidade:Divinopolis-MG
  • Interesses:ASP &amp; Design

Posted 28/12/2003, 09:53

Primeiro:Esse código é metade meu e metade do tarkan.

Segundo:Vc permite q cadastrem com logins iguais no seu site?(vc é doido)

Cara se vc permitir, arrume isso para q naum permita.
E tbm ele naum esta buscando o login, esta buscando ´o email.
E é impossivel buscar a o logine a senha, pois se ele eskeceu a senha como vai poder buscar pela senha?

Flows

:D

#3 zanelati2002

zanelati2002

    Normal

  • Usuários
  • 101 posts
  • Sexo:Não informado

Posted 28/12/2003, 10:07

cara me confundi crazy quero que busque o login e o email de cadastro e falei xxxxxx o codigo não permite login iguais mais sera que da para arrumar isto buscar o login e o email do cara

#4 crazybaby

crazybaby

    Cyber Eye

  • Banidos
  • PipPipPipPipPipPipPipPipPip
  • 1112 posts
  • Sexo:Não informado
  • Localidade:Divinopolis-MG
  • Interesses:ASP &amp; Design

Posted 28/12/2003, 10:09

Posta o formulário eskeci a senha aí.

#5 zanelati2002

zanelati2002

    Normal

  • Usuários
  • 101 posts
  • Sexo:Não informado

Posted 28/12/2003, 10:19

<html>



<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<meta name="GENERATOR" content="Microsoft FrontPage 4.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>Esqueci Minha Senha</title>

<script src="icons/script.js"></SCRIPT>

<LINK 

href="icons/padrao.css" rel=stylesheet type=text/css>

<STYLE type=text/css>#divUpControl {

	HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1

}

#divDownControl {

	HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1

}

#divContainer {

	CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px

}

#divContent {

	LEFT: 0px; POSITION: absolute; TOP: 0px

}

</STYLE>



<script language=javascript>

       <!--Abre

        function AbreJanela(pagina,janela,w,h,scrolling,top,left) {

      if (!scrolling) { scrolling='auto' }

      if (top) { top=',top='+top }

      if (left) { left=',left='+left }

        resultado = window.open(pagina,janela,'width='+w+',height='+h+',scrollbars='+scrolling+',toolbar=no,location=no,status=no,menubar=no,resizable=no'+top+left)}

       -->

  </SCRIPT>







<body background="../zanelati_r41_c7.gif">

<script language=JavaScript1.2>

function valida(){

var login =  document.formcontato.login.value;

var email = document.formcontato.email.value;



if ( login == '' ){

	alert('Campo login em branco.');

	document.formcontato.login.focus();

	return false;	}

if ( email == '' ){

	alert('Campo email em branco.'); 

	document.formcontato.email.focus();

	return false;	}



formcontato.envia.disabled=true;

return true;

}

</SCRIPT>



      <TABLE align=center width="296">

        <TR>

          <TD class=TD width="274">

            <p align="left"><font face="Verdana" size="1">Esqueci&nbsp;&nbsp;

            minha&nbsp;&nbsp; Senha&nbsp;&nbsp; me&nbsp;&nbsp; mande&nbsp;&nbsp;

            por&nbsp;&nbsp; e-mail</font>

            <p>&nbsp;</p>



            <FORM action=enviar_senha.asp id=formcontato method=GET name=enviar 

            onsubmit="return valida();" target="x"><font face="Verdana" size="1">Login

              de Cadastro:<BR><INPUT class=campo maxLength=20 

            name=login size=27><BR>E-mail de Cadastrado:<BR><INPUT class=campo maxLength=100 

            name=email size=26><BR><BR><INPUT class=botao2 name=envia type=submit value=Enviar> 

            <BR></font></FORM></TD></TR>

</TABLE>



<p><font color="#FFFFFF" size="1" face="Verdana">1</font></p>

<div align="center">

  <center>

<table border="0" width="62%" cellspacing="0" cellpadding="0">

  <tr>

    <td width="100%">

      <p align="center"><font face="Verdana" size="1">Obs: Caso não consiga se

      lembrar do seu login de cadastro ou senha, </font><font face="Verdana" size="2"> me mande um <a href="mailto:sitedozanelati@ig.com.br"><font color="#FF0000">e-mail

      </font></a>ou vá até <a href="fale_conosco.asp" target="x"><font color="#FF0000">fale

      conosco.</font></a></font></td>

  </tr>

</table>



  </center>

</div>



</body>



</html>



#6 crazybaby

crazybaby

    Cyber Eye

  • Banidos
  • PipPipPipPipPipPipPipPipPip
  • 1112 posts
  • Sexo:Não informado
  • Localidade:Divinopolis-MG
  • Interesses:ASP &amp; Design

Posted 28/12/2003, 10:35

Good..
It's Very Easy

Mude o q esta d vermelho....

<%
Dim ConnectString, conn
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

login = request.QueryString("login")
email=request.querystring("email")
set rs = conn.execute("select * from users where email='"&email&"' AND campologin='"&login&"'")

If rs.EOF = True Then
  Response.Write "Email e/ou login inválido!"
Else
  Set meuMail = CreateObject("CDONTS.NewMail")
  sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password")

  meuMail.From = "sitedozanelati@ig.com.br"
  meuMail.To = rs("email")
  meuMail.Subject = "Envio de Senha"
  meuMail.BodyFormat = 0
  meuMail.MailFormat = 0
  meuMail.Body = sCorpo
  meuMail.Send
  Set meuMail = Nothing
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Confirma Mensagem</title>
</head>
<body background="../zanelati_r41_c7.gif">
<div align="center">
<center><table border="0" width="55%" cellspacing="0" cellpadding="0">
<tr>
  <td width="100%" align="center">
    <font face="Verdana" size="2" color="#FFFFFF">1</font></td>
</tr>
<tr>
  <td width="100%" align="center">
    <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para
    Seu e-mail com Sucesso</font></td>
</tr>
<tr>
  <td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que
    Sua Senha é de Responsabilidade Tua.</font></td>
</tr>
<tr>
  <td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
End If

rs.close
set rs = nothing

conn.close
set conn = nothing
%>


Flows
:D

#7 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 28/12/2003, 10:49

o erro agora se encontra
Microsoft JET Database Engine erro '80040e10'

No value given for one or more required parameters.

/sitedozanelati/login2/esqueci_senha.asp, line 45


o quer dizer este campologin
Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#8 crazybaby

crazybaby

    Cyber Eye

  • Banidos
  • PipPipPipPipPipPipPipPipPip
  • 1112 posts
  • Sexo:Não informado
  • Localidade:Divinopolis-MG
  • Interesses:ASP &amp; Design

Posted 28/12/2003, 10:58

O nome do campo de login uai!
Onde fica armazenado os logins do usuario no bd.

pq vc entrou com o outro login?
só por causa do warn?

Edição feita por: crazybaby, 28/12/2003, 11:02.


#9 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 28/12/2003, 11:16

crazy esta acontecendo que qualquer login e qualquer email que eu digito ele da que não existe mesmo existindo os dois.
Entrei com outro login para poder responder já pedi desculpas
Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#10 crazybaby

crazybaby

    Cyber Eye

  • Banidos
  • PipPipPipPipPipPipPipPipPip
  • 1112 posts
  • Sexo:Não informado
  • Localidade:Divinopolis-MG
  • Interesses:ASP &amp; Design

Posted 28/12/2003, 11:22

Ué?
Vc mudou o 'campologin' certinho?
Bom era pra dar certo.
Os dados estaum passado corretamente por QueryString(pla url)?
vc esta digitando certinho mesmo?tanto as letras maiusculas minusculas, espaços...

#11 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 28/12/2003, 11:25

este foi o codigo que vocÊ fez a unica lateração que fiz foi o campologin que no meu db é username o nome

<%
Dim ConnectString, conn
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

login = request.QueryString("login")
email=request.querystring("email")
set rs = conn.execute("select * from users where email='"&email&"' AND username='"&login&"'")

If rs.EOF = True Then
  Response.Write "Email e/ou login inválido!"
Else
  Set meuMail = CreateObject("CDONTS.NewMail") 
  sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password")

  meuMail.From = "sitedozanelati@ig.com.br"
  meuMail.To = rs("email") 
  meuMail.Subject = "Envio de Senha" 
  meuMail.BodyFormat = 0 
  meuMail.MailFormat = 0 
  meuMail.Body = sCorpo
  meuMail.Send 
  Set meuMail = Nothing 
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Confirma Mensagem</title>
</head>
<body background="../zanelati_r41_c7.gif">
<div align="center">
<center><table border="0" width="55%" cellspacing="0" cellpadding="0">
<tr>
  <td width="100%" align="center">
    <font face="Verdana" size="2" color="#FFFFFF">1</font></td>
</tr>
<tr>
  <td width="100%" align="center">
    <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para
    Seu e-mail com Sucesso</font></td>
</tr>
<tr>
  <td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que
    Sua Senha é de Responsabilidade Tua.</font></td>
</tr>
<tr>
  <td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
End If

rs.close
set rs = nothing

conn.close
set conn = nothing
%>

Edição feita por: Matrix2003, 28/12/2003, 11:28.

Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati

#12 Spirit_SCP

Spirit_SCP

    Novato no fórum

  • Usuários
  • 16 posts
  • Sexo:Não informado

Posted 28/12/2003, 11:56

fiz o teste com este que só alterei aki no bancode dados e deu certo recebi a confirmação e o e-mail, so alterei o caminho do banco de dados e o campo de e-mail do banco de dados.
tenta ai, que aki deu certo! ;)

<%
Dim ConnectString, conn
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(caminho do arquivo de dados!!)c:\endereço do arquivo.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

login = request.QueryString("login")
email=request.querystring("email")
set rs = conn.execute("select * from users where email='"&email&"' AND username='"&login&"'")

If rs.EOF = True Then
Response.Write "Email e/ou login inválido!"
Else
Set meuMail = CreateObject("CDONTS.NewMail")
sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password")

meuMail.From = "seuemail@seuprovedor.com.br"
meuMail.To = rs("email")
meuMail.Subject = "Envio de Senha"
meuMail.BodyFormat = 0
meuMail.MailFormat = 0
meuMail.Body = sCorpo
meuMail.Send
Set meuMail = Nothing
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Confirma Mensagem</title>
</head>
<body background="../zanelati_r41_c7.gif">
<div align="center">
<center><table border="0" width="55%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center">
  <font face="Verdana" size="2" color="#FFFFFF">1</font></td>
</tr>
<tr>
<td width="100%" align="center">
  <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para
  Seu e-mail com Sucesso</font></td>
</tr>
<tr>
<td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que
  Sua Senha é de Responsabilidade Tua.</font></td>
</tr>
<tr>
<td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
End If

rs.close
set rs = nothing

conn.close
set conn = nothing
%>



#13 Matrix2003

Matrix2003

    24 Horas

  • Banidos
  • PipPipPipPipPip
  • 414 posts
  • Sexo:Não informado
  • Localidade:Bauru/SP
  • Interesses:ASP SOMENTE ASP

Posted 28/12/2003, 12:55

agora parece ter dado certo mais esta com pau no provedor da libihost que em todos meus codigos esta dando erro nesta linha meuMail.Send
já mandei um email para o elido vou esperar quem tiver uma solução e esteja passando por isto post ai
Pessoal espero ajudar sempre que possivél todos vocês, não se esqueça do nosso site www.onemasters.com agora com muito mais atualidades todos os dias..
Projetos e muito mais....Valeu
Ricardo Zanelati




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq