Dificuldades em gerar strings e numeros aleatórios em ASP?

  '==============================================================================================   ' Gera um valor randomico dentro do limite estabelecido   '==============================================================================================   Function GenerateNumber(UpperBound,LowerBound)       dim RangeSize,RandomValue       RangeSize = UpperBound - LowerBound + 1       RandomValue = RangeSize * Rnd()       RandomValue = RandomValue + LowerBound       GenerateNumber = Int(RandomValue)   End Function   '==============================================================================================   ' Gera uma string randomica com o tamanho determinado em 'size'   '==============================================================================================    Function GenerateRandStr(Size)    Dim X    GenerateRandStr = ""    For x = 1 to Size       GenerateRandStr = GenerateRandStr + Chr(GenerateNumber(65,90))    Next    End Function   '==============================================================================================   ' Gera uma string numerica randomica com o tamanho determinado em 'size'   '==============================================================================================    Function GenerateRandNumber(Size)       Dim X    GenerateRandNumber = ""    For x = 1 to Size        GenerateRandNumber = GenerateRandNumber + Chr(GenerateNumber(48,57))    Next    End Function PS: para garantir a geração de uma semente realmente aleatória, coloque no inicio do seu código a procedure  Randomize (use uma única vez!)

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: ASP;
Data.........: 11/04/2002 15:25:14
Visualizado..: 338 vezes
Fonte........: AdeN Knowledge DB