<%
'*********************************
'Функция: генератор (длина)
'Параметры: длина, произвольное значение длины, количество цифр случайных кодов
Автор: Аликси
Дата: 2007/7/15
'Описание: Сгенерировать функции случайного кода любой длины английского языка + цифры
Пример: генератор (80)
'*********************************
FunctionGenerator (длина)
DiMi, Temps
Temps = "abcdefghijklmnopqrstuvwxyz1234567890"
Генератор = ""
Ifisnumeric (длина) = фальшит
Выходная функция
Эндиф
Fori = 1tolength
Рандомизировать
Генератор = генератор и Mid (Temps, int ((Len (Temps)*rnd) +1), 1)
Следующий
Конечная функция
%>