Ir para conteúdo

POWERED BY:

Arquivado

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

jcdesigner

CÓDIGO PARA "ESQUECI MINHA SENHA"

Por , em ASP Clássico

Recommended Posts

jcdesigner    0

jcdesigner
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

DackAle    0

DackAle
Postado

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

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