Gerar Número Aleatório

[Guest Alipius]

Como faço para gerar número aleatório em Asp ?

[Victor]

Tem esse codigo q eu acabei de fazer....Se não conseguir colocar mais numeros, você posta qui denovo!!!

<%
randomize

dim numeros(3)

numeros(0) = "1"
numeros(1) = "2"
numeros(2) = "3"
numeros(3) = "4"

nr = cint(4*rnd)
%>
<font size=2 face=arial color=#000000><%=numeros(nr)%></font>

[fertel]

Amiguinho, toma um completo com números e letras: e mais abaixo um só com números:

<%
' 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
' Mostrando a senha no browser.
' Obs: O número dez significa o tamanho da senha em
' carateres que será criado
response.write  "Senha gerada: " & GerarChave(10) & vbcrlf
%>

=============================================

<%
' 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
Function GerarChave(valores)
Dim chr_Array(9)
                                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"


' 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(9 * Rnd ))

	chave = chave + num
	loop

' Chave gerada com sucesso então definimos a
' função GerarChave
	GerarChave = chave
End Function
' Finalizando a função
' Mostrando a senha no browser.
' Obs: O número dez significa o tamanho da senha em
' carateres que será criado
response.write  "Senha gerada: " & GerarChave(10) & vbcrlf
%>

VALEU?

[dark0]

Amigos Victor, e Fertel.

vocês testaram seus codigos?

Se sim, podem, por favor, postá-los no tópico de funções?

achei as duas interessantes, para se deixar lá!

Se não testaram, podem fazer algum teste, só para verificar se funciona mesmo e depois postar lá?

Obrigado pela atenção.

Dark

[Victor]

Ok Vou postar lá... Qualquer dúvidar brother dark0 é só falar