Пример генератора лозинки у АСП-у

Ако правите апликацију у којој је потребно генерисати лозинку, овај део кода у АСП-у ће бити врло користан.

Копирајте следећи код и сачувајте га са именом ГенераторПассворд.асп

'Пример генератора лозинки у АСП-у

Функција ген_цон (мак_нум)

дим ген_арраи (36)
'Низ знакова 

ген_арраи (0) = "0"
ген_арраи (1) = "1"
ген_арраи (2) = "2"
ген_арраи (3) = "3"
ген_арраи (4) = "4"
ген_арраи (5) = "5"
ген_арраи (6) = "6"
ген_арраи (7) = "7"
ген_арраи (8) = "8"
ген_арраи (9) = "9"
ген_арраи (10) = "а"
ген_арраи (11) = "б"
ген_арраи (12) = "ц"
ген_арраи (13) = "д"
ген_арраи (14) = "е"
ген_арраи (15) = "ф"
ген_арраи (16) = "г"
ген_арраи (17) = "х"
ген_арраи (18) = "и"
ген_арраи (19) = "ј"
ген_арраи (20) = "к"
ген_арраи (21) = "л"
ген_арраи (22) = "м"
ген_арраи (23) = "н"
ген_арраи (24) = "о"
ген_арраи (25) = "п"
ген_арраи (26) = "к"
ген_арраи (27) = "р"
ген_арраи (28) = "с"
ген_арраи (29) = "т"
ген_арраи (30) = "у"
ген_арраи (31) = "в"
ген_арраи (32) = "в"
ген_арраи (33) = "к"
ген_арраи (34) = "и"
ген_арраи (35) = "з"

Рандомизе
'Генеришите ланац док се не достигне дужина

уради док је лен (излаз) нум = ген_арраи (Инт ((35 - 0 + 1) * Рнд + 0))
излаз = излаз + број
петља

'Функција враћа резултат = излаз

ген_цон = излаз
Крајња функција

'Излазна функција која узима максималну вредност

Ако захтев. Образац ("НУМГЕН") <> "" ОНДА
интГЕН = ЦИнт (Захтев. Образац („НУМГЕН“))
а = 0
уради док је <500
респонсе.врите ген_цон (интГЕН) & "
"
а = а + 1
петља
крај ако


%>

 о = слово "о"
 О = велико слово "О"
 0 = нула
 л = слово "л"
 1 = број 1