Ir para conteúdo
Fórum Script Brasil
  • 0

Lembrete de Senha!

Vagner Nunes

Perguntado por Vagner Nunes,

 Share

Pergunta

Vagner Nunes

Vagner Nunes

Postado
Postado

Prezados,

Boa tarde.

Criei um sistema de banco de currículo atualmente com acesso com Login e Senha, onde o visitante faz seu cadastro, e neste banco existe uma tabela de cadastro e vários campos, incluindo os campos de autenticação de usuário, porém gostaria de saber como posso fazer para que quando um visitante esquecer seu Login e Senha, Clique em, um exemplo, Esqueceu a senha, Clique aqui, e quando ele clicar, daí aparecerá o campo de e-mail onde ele preencherá e se existir este campo no banco, automaticamente será encaminhado para ele o login e a senha cadastrada.

Como posso fazer isso?

Sds,

Vagner Nunes

Link para o comentário
Compartilhar em outros sites

17 respostass a esta questão

Posts Recomendados

  • 0
Vagner Nunes

Vagner Nunes

Postado
  • Autor
Postado

O problema é este: não consegui nem ter idéia direito, mas comecei a fazer alguma coisa sim, porém está no meu servico.

Estou utilizando, um código que insere registro no banco e dispara um e-mail ao mesmo tempo. Foi até voce quem me ajudou. Estou no caminho certo utilizando a mesma idéia do INSERT?

Vou postar amanhã.

Sds,

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Pegue a lógica que indicquei no outro tópico e comece a trabalhar...

De barbada não vai vir... não é porque é simples pros outros que não vai ser pra você tb... é fácil... além do que, se você der uma procuradinha no google encontrará milhoes de exemplos... mas o mínimo de esforço terás que ter!

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Vagner Nunes

Vagner Nunes

Postado
  • Autor
Postado

Estou utilizando este exemplo abaixo, porém não cosegui coisa funcionar.

<!--#include file="Connections/Conexao.asp" -->
<%
Dim vsolicitante, vsetor, vpedido, vquantidade, vunidade, vsituacao
vsolicitante = Request("solicitante")
vsetor = Request("setor")
vpedido = Request("pedido")
vquantidade = Request("quantidade")
vunidade = Request("unidade")
vsituacao = Request("situacao")
strQuery = "INSERT INTO pedidos (solicitante,setor,pedido,quantidade,unidade,situacao) Values('"&vsolicitante&"','"&vsetor&"','"&vpedido&"',"&vquantidade&",'"&vunidade&"','"&vsituacao&"')"

If request.querystring("op") = 1 then
   Set mail = CreateObject("CDONTS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   mail.To = "administrativo@cesat.br" ' e-mail de quem vai receber a mensagem 
   mail.CC = "administrativo@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "Solicitação de Materiais - " & request.form("solicitante")
   mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf  & "Setor: " & request.form("setor") & vbCrLf & "Pedido: " & request.form("pedido") & vbCrLf & "Quantidade: " & request.form("quantidade")& vbCrLf & "-" & request.form("unidade")
   mail.Send 
   Set mail = Nothing 
else

end if
Set ObjRs = objConn.Execute(strQuery)
%>

Sds,

Vagner Nunes

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado 

Criei um sistema de banco de currículo atualmente com acesso com Login e Senha, onde o visitante faz seu cadastro, e neste banco existe uma tabela de cadastro e vários campos, incluindo os campos de autenticação de usuário, porém gostaria de saber como posso fazer para que quando um visitante esquecer seu Login e Senha, Clique em, um exemplo, Esqueceu a senha, Clique aqui, e quando ele clicar, daí aparecerá o campo de e-mail onde ele preencherá e se existir este campo no banco, automaticamente será encaminhado para ele o login e a senha cadastrada.

cara ai não precisa nem fala nada né.... verifica o e-mail e manda a msg com os dados....

usa outro componente porque cdonts não funciona mais.

Link para o comentário
Compartilhar em outros sites
  • 0
Vagner Nunes

Vagner Nunes

Postado
  • Autor
Postado

Prezados,

Estava dando uma vasculhada no google e achei um código, tentei adequar as minhas necessidades, porém está apresentando o seguinte erro:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/curriculo/teste_pos.asp, line 55

O meu banco se chama curriculos.mdb, o tabela é a academico, e os campos são email, login e senha.

Segue código logo abaixo:

<%@ LANGUAGE="VBSCRIPT" %>

<% 
%>

<% Option Explicit %>
<% 
Dim DATA_PATH, objDC, objRS, email, user, pass, sendmail
'database path.
DATA_PATH=Server.Mappath("membersdb.mdb")
' Cria e inicia a conexao
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
objDC.Open "DBQ=" & DATA_PATH & ";Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;MaxBufferSize=8192;Threads=20;", "admin", "password"
Set objRS = Server.CreateObject("ADODB.Recordset")
email=request.form("email")
'SQL
objRS.Open "SELECT * FROM MEMBERS WHERE email = '" & email & "'", objDC, 0, 1
%>


<head>
<title>Envio de senha</title>
</head>
<body>
<%
'checks if email
if objrs.EOF then
%>
<table border="0" cellPadding="0" cellSpacing="1" width="540">
<tr>
<td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b>
Email Invalido</b></font></td>
</tr>
</table>
<p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> 
<span class="text-err"> na base de dados.</span></p>
<% Else %> 


<%
'seta variaveis
email = request.form("email")
' username e password do database 
user = objrs.Fields("username")
pass = objrs.Fields("password")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "suporte@dominio.com"
sendmail.To = email

sendmail.Subject = "Informações de Login"

sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _
& "Username=" & user & vbCrlf _

sendmail.Importance = 3
sendmail.Send
%>

<p class="text2">Foi enviada as informações de login para <%=email%>.<br>
Você deverá recebê - lo em breve.</p>
<%
' fecha Data Access Objects
objDC.Close
Set objRS = Nothing
Set objDC = Nothing
Set sendmail = Nothing
%>
<%end if%>

Sds,

Vagner Nunes

Link para o comentário
Compartilhar em outros sites
  • 0
Vagner Nunes

Vagner Nunes

Postado
  • Autor
Postado

Não to entendendo o que foi citado, poderia me explicar melhor, eu utilizo o cdonts na Locaweb e funciona perfeitamente.

Segue abaixo o código já com os meus campos escritos:

<%@ LANGUAGE="VBSCRIPT" %>

<% 
%>

<% Option Explicit %>
<% 
Dim DATA_PATH, objDC, objRS, email, user, pass, sendmail
'database path.
DATA_PATH=Server.Mappath("curriculos.mdb")
' Cria e inicia a conexao
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
objDC.Open "DBQ=" & DATA_PATH & ";Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;MaxBufferSize=8192;Threads=20;", "admin", "password"
Set objRS = Server.CreateObject("ADODB.Recordset")
email=request.form("email")
'SQL
objRS.Open "SELECT * FROM academico WHERE email = '" & email & "'", objDC, 0, 1
%>


<head>
<title>Envio de senha</title>
</head>
<body>
<%
'checks if email
if objrs.EOF then
%>
<table border="0" cellPadding="0" cellSpacing="1" width="540">
<tr>
<td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b>
Email Invalido</b></font></td>
</tr>
</table>
<p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> 
<span class="text-err"> na base de dados.</span></p>
<% Else %> 


<%
'seta variaveis
email = request.form("email")
' username e password do database 
user = objrs.Fields("login")
pass = objrs.Fields("senha")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "suporte@dominio.com"
sendmail.To = email

sendmail.Subject = "Informações de Login"

sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _
& "Username=" & user & vbCrlf _

sendmail.Importance = 3
sendmail.Send
%>

<p class="text2">Foi enviada as informações de login para <%=email%>.<br>
Você deverá recebê - lo em breve.</p>
<%
' fecha Data Access Objects
objDC.Close
Set objRS = Nothing
Set objDC = Nothing
Set sendmail = Nothing
%>
<%end if%>

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

destaque para:

O CDOsys é o componente de envio de e-mails da Microsoft em servidores Windows. É a versão mais atualizada do antigo CDOnts, que não é mais suportado nos novos servidores.

Para enviar e-mails através de um formulário no ambiente Locaweb, siga os passos abaixo:

http://wiki.locaweb.com.br/pt-br/Cdosys

Link para o comentário
Compartilhar em outros sites
  • 0
Vagner Nunes

Vagner Nunes

Postado
  • Autor
Postado

Alguém pode me dizer se tem algo errado neste código:

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="Connections/Conexao.asp" -->

<% 
Dim objDC, objRS, email, user, pass, sendmail
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
email=request.form("email")
'SQL
objRS.Open "SELECT * FROM academico WHERE email = '" & email & "'", objDC, 0, 1
%>


<head>
<title>Envio de senha</title>
</head>
<body>
<%
'checks if email
if objrs.EOF then
%>
<table border="0" cellPadding="0" cellSpacing="1" width="540">
<tr>
<td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b>
Email Invalido</b></font></td>
</tr>
</table>
<p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> 
<span class="text-err"> na base de dados.</span> </p>
<% Else %> 


<%
'seta variaveis
email = request.form("email")
' username e password do database 
user = objrs.Fields("login")
pass = objrs.Fields("senha")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "suporte@mail.br"
sendmail.To = email

sendmail.Subject = "Informações de Login"

sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _
& "usuario" & user & vbCrlf _
sendmail.Send
%>

<p class="text2">Foi enviada as informações de login para <%=email%>.<br>
Você deverá recebê - lo em breve.</p>
<%
' fecha Data Access Objects
objDC.Close
Set objRS = Nothing
Set objDC = Nothing
Set sendmail = Nothing
%>
<%end if%>

Pois está apresentando o Erro:

Erro de compilação do Microsoft VBScript erro '800a0401'

Fim da instrução esperado

/curriculo/teste_pos.asp, line 48

sendmail.Send

^

Link para o comentário
Compartilhar em outros sites
  • 0
LordVader BR

LordVader BR

Postado
Postado 

Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "suporte@mail.br"
sendmail.To = email

sendmail.Subject = "Informações de Login"

sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _
& "usuario" & user & vbCrlf _
sendmail.Send

O erro esta aparecendo na linha 48 certo? sendmail.Send ?

Note que lá em cima você esta setando este objeto para utilizar cdonts...

Como o bareta disse... tente utilizar o cdosys... é bom pra remover todas as duvidas se é problema de componente de servidor ou não... :)

Link para o comentário
Compartilhar em outros sites
  • 0
Vagner Nunes

Vagner Nunes

Postado
  • Autor
Postado

Cara, eu me enrolei todo aqui, com este CDOSYS, segue código que estou trabalhando:

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="Connections/Conexao.asp" -->

<% 
Dim objDC, objRS, email, user, pass, sendmail
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
email=request.form("email")
'SQL
objRS.Open "SELECT * FROM academico WHERE email = '" & email & "'", objDC, 0, 1
%>


<head>
<title>Envio de senha</title>
</head>
<body>
<%
'checks if email
if objrs.EOF then
%>
<table border="0" cellPadding="0" cellSpacing="1" width="540">
<tr>
<td class="title-err" bgcolor="#FF0000"><font color="#FFFFFF"><b>
Email Invalido</b></font></td>
</tr>
</table>
<p><span class="text-err">não localizado </span><span class="text3b"> <%=email%></span> 
<span class="text-err"> na base de dados.</span> </p>
<% Else %> 


<%
'seta variaveis
email = request.form("email")
' username e password do database 
user = objrs.Fields("login")
pass = objrs.Fields("senha")
Set sendmail = Server.CreateObject("CDONTS.NewMail")
sendmail.From = "suporte@mail.br"
sendmail.To = email

sendmail.Subject = "Informações de Login"

sendmail.Body = "Informações de login : " & vbCrlf & vbCrlf _
& "usuario" & user & vbCrlf _
sendmail.Send
%>

<p class="text2">Foi enviada as informações de login para <%=email%>.<br>
Você deverá recebê - lo em breve.</p>
<%
' fecha Data Access Objects
objDC.Close
Set objRS = Nothing
Set objDC = Nothing
Set sendmail = Nothing
%>
<%end if%>
Segue abaixo o código do CDOSYS, mas não estou entendendo nada deste componente: 
<%
email = request.Form("email")

msg = "Nome: '"&(request.Form("nome"))&"'<br>"
msg = msg&"Email: '"&(request.Form("email"))&"'<br>"
msg = msg&"Telefone: '"&(request.Form("telefone"))&"'<br>"
msg = msg&"Mensagem: '"&(request.Form("mensagem"))&"'<br>"

'DEFININDO EMAIL

HTML = HTML & "<html>" 
HTML = HTML & "<head>" 
HTML = HTML & "<title>Mensagem enviada pelo site</title>"
HTML = HTML & "</head>" 
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "" & msg
HTML = HTML & "</body>" 
HTML = HTML & "</html>" 

'Cria o objeto para o enviar e-mail
Set objCDO = Server.CreateObject("CDO.Message")
'Cria o objeto de configuração do SMTP
Set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
With objCDOSYSCon
'SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mbmetais.com.br"
'Porta do SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Porta do CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
'Validação Email - Autenticação
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mbmetais@mbmetais.com.br" 
'Senha
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha" 
'Atualiza
.Fields.update
End With
'Atualiza as configurações do CDOSYS para enviar o e-mail
Set objCDO.Configuration = objCDOSYSCon
With objCDO
'Remetente do e-mail
.From = "" & email
'Destinatário do e-mail
.To = "mbmetais@mbmetais.com.br"
'Assunto
.Subject = "teste"
'Conteúdo da mensagem (Se for apenas texto, mude para TextBody)
.HTMLBody = "" & HTML
'Envia o e-mail
.Send
End With
'Destrói os objetos
Set objCDO = Nothing
Set objCDOSYSCon = Nothing
%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...