Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] Enviando uma simples senha aleatória

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Deseja criar uma senha aleatória e enviar por email a pessoa que tentou registrar em seu site? Aqui está um exemplo rápido e fácil de como fazer esta tarefa.

 

 

<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>

<% 
 varlogin=trim(request.form("login"))
 varemail=trim(request.form("email"))

constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
set rec= conexao.Execute("select count(*) from usuarios")
id = cint(rec.fields(0))+1
r=rnd *50
Response.Write r & "<br>"
for i = 0 to 20
if cint(r)>0 and cint(r)<26 then str=str +chr(97 + cint(r))
r=rnd *100
next
Response.Write str
pwd=left(str,2)
pwd=pwd & id
pwd=pwd & right(str,2)
pwd=pwd & second(time)
%>
<br>
<%
set mail= server.CreateObject("cdonts.newmail")
mail.subject="Obrigado por se registar"
mail.to = varemail
mail.from ="xanburzum@seusite.com"
mail.body= "Esta é a senha inicial para o site...." & vbcrlf & "Altere se você quiser" &
vbcrlf & pwd & vbcrlf & "Obrigado por usar o Site"
mail.send
%>

A nova senha foi enviada.

</BODY>
</HTML>

Claro que o objeto COM que decidimos usar é CDONTS, mas você pode usar outros ,com a mesma facilidade!

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