Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
AMIGOS, ABAIXO SEGUE EXEMPLO DE UM CÓDIGO PARA LEMBRAR SENHA, POIS REPAREI A MÁ VONTADE OU DESINTERESSE DOS QUE SE DIZEM AMIGOS DO FORUM PARA COM OS INICIANTES EM ASP, POIS FALAM E FALAM E NUNCA MOSTRAM O CÓDIGO PARA ELES, ESTE CÓDIGO (ABAIXO) ESTÁ EM CDONTS , MAS SERVE PARA ASPEMAIL OU QUALQUER OUTRO MUDANDO ALGUNS PAREMETROS.
AS VEZES EU MESMO POSTO ALGUMAS DÚVIDAS, E QUANDO COMENTAM APENAS INFORMAM O QUE você JÁ SABE, E UM MONTE DE BLAH BLAH BLAH, O EXEMPLO DO CÓDIGO QUE É BOM, POUCOS(SÓ PRÁ NÃO GENERALIZAR) O DISPONIBILIZAM. ESTE ASSUNTO ABAIXO, BEM COMO O DE UP-LOAD DE IMAGENS COM ENVIO POR EMAIL, E TAMBÉM A QUESTÃO DAS CASAS DECIMAIS APÓS AS VIRGULAS EM PREÇOS NO BD, SÃO ALGUNS DOS ASSUNTOS QUE JÁ POSTEI AQUI DIVERSAS VEZES E NINGUÉM ME AJUDOU, JÁ OS RESOLVI SOZINHO MESMO, PORÉM SE você TIVER DUVIDA EM QQUER UM DESSES CITADOS OU OUTROS ME PASSE UM EMAIL QUE TEREI IMENSO PRAZER EM AJUDAR.
POIS ASSIM É QUE SE AJUDA, NÃO É MESMO ? GALERA
<%@Language=VBScript%>
<%Response.Buffer=True%>
<html>
<body><%
'************************ ATENÇÃO *********************
'VOCÊ TEM QUE CRIAR UM MDB COM UMA TABELA COM NOME "Usuarios" e os campos "Email" e "Password"
email = Trim(Request.Form("email"))
If Len(email) < 1 Then
%>
<center><font color="blue" size="2" face="Verdana, Arial, Helvetica, sans-serif">Esqueceu a senha?</font><p>
<table>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><form method="post"></font>
<tr>
<td><center>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Digite
seu <b>Email</b> </font></center></td>
</tr>
<tr>
<td><center>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="email">
</font></center></td>
</tr>
<tr>
<td><center>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input type="submit" value="Submit">
</font></center></td>
</tr>
</table>
</form>
</center><%
Else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\Lembrar_senha\usuarios.mdb" ' NESTA PARTE EDITE DE ACORDO COM SUAS CONFIGURAÇÕES DE CONEXÃO COM SEU BD OK ?
sql = "SELECT Email, Password FROM Usuarios WHERE Email = '"&email&"'"
Set RS = Conn.Execute(sql)
If RS.EOF Then
Response.write "<p><br><br><br><center>Email Inválido!</center>"
Else
password = RS("password")
Call SendPW(email, password)
Response.Write "<p><br><br><br><center>Senha enviada!</center>"
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
End If
End If
Sub SendPW(email, password)
Set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.From = "webmaster@seudominio.com.br"
cdoMail.To = email
cdoMail.Subject = "Lembrete de senha."
cdoMail.Body = password & vbcrlf & vbcrlf & vbcrlf _
& " Mensagem Automatica "
cdoMail.Send
Set cdoMail = Nothing
End Sub
%>
</body>
</html>É ISSO AÍ.
ABRAÇOS
JC MASTER
Parabens pelo codigo e pela atitude, varias vezes ja tive duvidas e muitas foram respondidas, mas como você falou, muitas continuam na mesma, "bom peguei um codigo e naume entendi tal parte,agora poderia tentar me explicar"," a tal parte bla bla bla...é isso...." e acaba complicando, sendo que podia dar a solução mais facilmente, toda vez q respondo tento por algum exemplo, pq eu sei da MINHA dificuldade e sei que se alguem falsse talvez eu naum fosse entender, então tento por exemplo ou até mesmo mostrar como fica oq a pessoa pede, acho que as vezes ao mesmo tempo q há vontade de ajudar há uma má vontade, fica qule serviço meio imcompleto... mas claro, cada u, cada um, sempre agradeci a quem ajudou ou a quem pelo menos tentou ajudar, só acho que poderia ser melhor ;) Abraços