Ir para conteúdo

POWERED BY:

Arquivado

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

Arthur Webdesigner

Enviar dados do BD para email

Por , em ASP Clássico

Recommended Posts

Arthur Webdesigner    0

Arthur Webdesigner
Postado

Olá,

 

Tenho um sistema de cadastro, porém ele não tem a função recuperar senha. Precisava de algum script onde eu informasse o e-mail e ele enviasse os dados da pessoa pro e-mail. Será que alguém conhece algo parecido?

Valeu

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

                       %>

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>

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