Παράδειγμα δημιουργίας κωδικού πρόσβασης στο ASP

Εάν κάνετε μια εφαρμογή όπου είναι απαραίτητο να δημιουργήσετε έναν κωδικό πρόσβασης, αυτό το κομμάτι κώδικα στο ASP θα είναι πολύ χρήσιμο.

Αντιγράψτε τον ακόλουθο κωδικό και αποθηκεύστε τον με το όνομα GeneratorPassword.asp

«Παράδειγμα δημιουργίας κωδικών πρόσβασης στο ASP

Συνάρτηση gen_con (max_num)

dim gen_array (36)
Πίνακας χαρακτήρων 

gen_array (0) = "0"
gen_array (1) = "1"
gen_array (2) = "2"
gen_array (3) = "3"
gen_array (4) = "4"
gen_array (5) = "5"
gen_array (6) = "6"
gen_array (7) = "7"
gen_array (8) = "8"
gen_array (9) = "9"
gen_array (10) = "α"
gen_array (11) = "β"
gen_array (12) = "γ"
gen_array (13) = "δ"
gen_array (14) = "ε"
gen_array (15) = "στ"
gen_array (16) = "g"
gen_array (17) = "h"
gen_array (18) = "εγώ"
gen_array (19) = "j"
gen_array (20) = "k"
gen_array (21) = "λ"
gen_array (22) = "m"
gen_array (23) = "ν"
gen_array (24) = "ο"
gen_array (25) = "ρ"
gen_array (26) = "q"
gen_array (27) = "r"
gen_array (28) = "s"
gen_array (29) = "τ"
gen_array (30) = "u"
gen_array (31) = "β"
gen_array (32) = "β"
gen_array (33) = "x"
gen_array (34) = "γ"
gen_array (35) = "z"

Τυχαία
«Δημιουργήστε την αλυσίδα μέχρι να φτάσει το μήκος

κάνετε ενώ το len (έξοδος) num = gen_array (Int ((35 - 0 + 1) * Rnd + 0))
έξοδος = έξοδος + αριθμός
βρόχος

«Η συνάρτηση επιστρέφει ένα αποτέλεσμα = έξοδο

gen_con = έξοδος
Λειτουργία τερματισμού

«Συνάρτηση εξόδου που λαμβάνει τη μέγιστη τιμή

Εάν ζητήσετε. Φόρμα ("NUMGEN") <> "" THEN
intGEN = CInt (Αίτημα. Φόρμα ("NUMGEN"))
α = 0
κάνουμε ενώ <500
Respons.write gen_con (intGEN) & "
"
α = α + 1
βρόχος
τέλος εαν


%>

 o = γράμμα "o"
 O = κεφαλαίο γράμμα "O"
 0 = μηδέν
 l = γράμμα "l"
 1 = αριθμός 1