Tutorial da instância ASP Este artigo apresenta como gerar string aleatória, e este exemplo apresenta como gerar 13 string aleatória.
<html>
<Título>
Aluno Iniciando String www.vevb.com </ititle>
<Body>
<%
Função gen_key (dígitos)
'Definição e inicialize a matriz
Dim char_array (80)
'Número de inicialização
Para i = 0 a 9
char_array (i) = cstr (i)
Próximo
'Inicialização de letras maiúsculas
Para i = 10 a 35
char_array (i) = ch (i + 55)
Próximo
'Inicialize uma letra minúscula
Para i = 36 a 61
char_array (i) = ch (i + 61)
Próximo
Randomize Timer 'Inicialize o gerador de números aleatórios.
Faça enquanto Len (saída) <dígitos
Num = char_aray (int ((62-0 + 1) * rnd + 0))
saída = saída + num
laço
'Defina o valor de retorno
Gen_key = saída
Função final
'Retorne o resultado ao navegador
Response.Write A treze string aleatória gerada por esta instância é:
Response.Write <Center>
Response.write geen_key (13)
Response.Write </fenter>
%>
</body>
</html>