<%
'ASP generiert zufällige Zeichenfolgen (Zahl + niedrigere und untere Fallbuchstaben) Übung
'Ein Huinan übt für mich, nicht das, was ich will
FunktionRandkey (OBJ)
Dimchar_array (80)
Dimtemp
Fei = 0to9
char_array (i) = cstr (i)
Nächste
Fei = 10to35
char_array (i) = chr (i+55)
Nächste
Fei = 36to61
char_array (i) = chr (i+61)
Nächste
Randomisieren
Fei = 1toobj
Die von der 'RND -Funktion zurückgegebene Zufallszahl liegt zwischen 0 und 1, was gleich 0 sein kann, aber nicht 1
'Formel: int ((obere Grenze niedrigere Grenze+1)*RND+Untergrenze) kann die Zahl von der unteren Grenze bis zur Obergrenze erhalten, die gleich der unteren Grenze sein kann, aber nicht gleich der Obergrenze sein kann
temp = temp & char_array (int (62-0+1)*rnd+0)
Nächste
Randkey = temp
Endfunktion
Antwort.Write (Randkey (6))
%>