Tutoriel d'instance ASP Cet article vous présente comment générer une chaîne aléatoire, et cet exemple présente comment générer 13 chaînes aléatoires.
<html>
<Title>
String de démarrage de l'étudiant www.vevb.com </Title>
<body>
<%
Fonction gen_key (chiffres)
'Définition et initialise le tableau
Dim Char_array (80)
'Numéro d'initialisation
Pour i = 0 à 9
char_array (i) = cstr (i)
Suivant
'Initialisation des lettres majuscules
Pour i = 10 à 35
char_array (i) = chr (i + 55)
Suivant
'Initialiser une lettre minuscule
Pour i = 36 à 61
char_array (i) = chr (i + 61)
Suivant
Randomiser le générateur de nombres aléatoires de la minuterie.
Faire pendant que Len (sortie) <chiffres
Num = char_aray (int ((62-0 + 1) * rnd + 0))
sortie = sortie + num
boucle
'Définir la valeur de retour
Gen_key = sortie
Fonction finale
'Renvoyez le résultat au navigateur
Response.Write La chaîne aléatoire treize générée par cette instance est:
réponse.write <enter>
Response.Write Geen_key (13)
Response.WRITE </ Center>
%>
</docy>
</html>