Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] enviar Senha perdida para user

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Senha perdida.

 

 

Envio de senha araves de email.

 

Form.

 

<!-- inicio---> 
<form method="POST" action="sendpasswod.asp">

E-mail:<input type="text" name="email" size="30"> 

<p><input type="submit" value="Send it"></p> 

</form>

<!-- fim--->
Action.

 

<% ' inicio %> 
<%@ 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">Nao 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%>

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