Этот метод хорош. Он может генерировать случайную строку строчных символов и цифр. Вы можете добавить некоторые специальные символы, заглавные буквы и т. д. '************************************
'asp вычисляет случайные числа
'************************************
Функция случайнаяStr(intLength)
Dim strSeed,seedLength, pos, Str, i
strSeed = abcdefghijklmnopqrstuvwxyz1234567890
семенная длина = Len (strSeed)
Стр =
Рандомизировать
Для i = 1 To intLength
Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1)
Следующий
случайнаяStr = Str
Конечная функция