<%
'*********************************
'Funktion: Gen_key (Ziffern)
'Parameter: Ziffern ---- Die Anzahl der Bits, um Zufallszahlen zu generieren
'Autor: Alixi
'Datum: 2007/7/13
'Beschreibung: Generieren Sie eine zufällige Anzahl von Ziffern, die durch Zahlen, Großbuchstaben, Kleinbuchstaben angegeben sind; Rückgabewert: Eine zufällige Anzahl des angegebenen Multiplers, das generiert werden soll
Beispiel: <%= gen_key (8)%>
'*********************************
Functiongen_key (Ziffern)
'Definieren und initialisieren Sie das Array
Dimchar_array (80)
'Initialisieren Sie die Nummer
Fei = 0to9
char_array (i) = cstr (i)
Nächste
'Initialisieren Sie Großbuchstaben
Fei = 10to35
char_array (i) = chr (i+55)
Nächste
'Initialisieren Sie Kleinbuchstaben
Fei = 36to61
char_array (i) = chr (i+61)
Nächste
Randomize 'initialisiert den Zufallszahlengenerator.
Dowhilelen (Ausgabe) <Ziffern
num = char_array (int ((62-0+1)*rnd+0))
Ausgabe = Ausgabe+Num
Schleife
'Setzen Sie den Rückgabewert
Gen_key = output
Endfunktion
%>