|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Enviando senha aleatória para e-mail do usuário.
|
 |
|
|
|
Postada em 7/10/2003 por ^HEAVY-METAL^
<%
' Primeiro lugar é necessário recuperar os dados
' email do usuário, nome, login para efetuar uma
' tarefa desse tipo.
' Recuperando os dados
strEmail = Request.Form("Email")
strNome = Request.Form("Nome")
strLogin = Request.Form("Login")
' Agora vamos criar a senha para este usuário
' que esta sendo cadastrado
' Em primeiro lugar vamos criar uma função chamada GerarChave()
' esta função ira criar e definir um array alfanumérico de
' 0 a 9 e A a Z.
Function GerarChave(valores)
Dim chr_Array(35)
chr_array(0) = "0"
chr_array(1) = "1"
chr_array(2) = "2"
chr_array(3) = "3"
chr_array(4) = "4"
chr_array(5) = "5"
chr_array(6) = "6"
chr_array(7) = "7"
chr_array(8) = "8"
chr_array(9) = "9"
chr_array(10) = "A"
chr_array(11) = "B"
chr_array(12) = "C"
chr_array(13) = "D"
chr_array(14) = "E"
chr_array(15) = "F"
chr_array(16) = "G"
chr_array(17) = "H"
chr_array(18) = "I"
chr_array(19) = "J"
chr_array(20) = "K"
chr_array(21) = "L"
chr_array(22) = "M"
chr_array(23) = "N"
chr_array(24) = "O"
chr_array(25) = "P"
chr_array(26) = "Q"
chr_array(27) = "R"
chr_array(28) = "S"
chr_array(29) = "T"
chr_array(30) = "U"
chr_array(31) = "V"
chr_array(32) = "W"
chr_array(33) = "X"
chr_array(34) = "Y"
chr_array(35) = "Z"
' Agora vamos fazer um Randomize em todo Array
Randomize
' Ok, feito a bagunça no Array vamos preparar
' para gerar a senha
' Enquanto a chave tiver a quantidade de caracteres
' menor que 10 o loop continua gerando ela.
do while len(chave) < 10
num = chr_array(Int(35 * Rnd ))
chave = chave + num
loop
' Chave gerada com sucesso então definimos a
' função GerarChave
GerarChave = chave
End Function
' Finalizando a função
' Agora vamos armazenar a senha do usuário na
' variável strSenha
' Obs: O número dez significa o tamanho da senha em
' carateres que será criado
strSenha = GerarChave(10)
' Agora vamos enviar por email imediatamente a
' senha e o seus dados de cadastro
' Utilizaremos o ASPMail como exemplo
Set objMail = Server.Createobject("CDONTS.Newmail")
objMail.RemoteHost = "smtp.do.provedor.com.br" ' SMTP do provedor
objMail.FromName = "Cláudio Hickstein"
objMail.FromAddress = "Webmaster@aspsemdemora.net"
objMail.AddRecipient strEmail, strNome
objMail.Subject = "Seu cadastro no Site"
' Vamos pré-formatar a mensagem que será
' enviada para o usuário
strBody = "Olá " & strNome & ", " & vbcrlf & vbcrlf
strBody = strBody & "Bem vindo ao site!" & vbcrlf & vbcrlf
strBody = strBody & "Sua Senha é: " & strSenha
' Definimos o corpo
objMail.BodyText = strBody
objMail.SendMail
' Email enviado com a senha para o usuário cadastrado
Set objMail = nothing
' Fim :)
%>
T+,
|
|
|
|
|
