Tag Archives: mid

Gerar números randômicos é bem fácil. Fica mais fácil criar uma função para receber os valores, assim tornando a função “livre” para ser usada em todo o projeto! <% Function GerarRandomize(Valores) Dim Numeros : Numeros = "0123456789" Randomize For I = 1 To Valores Dim Num : Num = Mid(Numeros, Int(35 * Rnd) + 1, 1) Dim Chave : Chave = Chave + Num Next GerarRandomize = Chave End Function Response.Write(GerarRandomize(10)) 'o número 10 significa quandos números serão gerados %> …
Continue Lendo →