| Ниже приведено фрагмент кода: <% Функция MakePassword (Byval Maxlen) Dim Strnewpass Dim WhatsNext, Upper, Lower, Intcounter Рандомизировать Для Intcounter = 1 до maxlen WhatsNext = int ((1-0 1) * rnd 0) Если WhatsNext = 0, тогда Верхний = 90 Ниже = 65 Еще Верхний = 57 Ниже = 48 Конец, если Strnewpass = strnewpass & chr (inchete -lower 1) * rnd ниже) Следующий MakePassword = strnewPass конечная функция 'Укажите длину пароля и вызовите функцию response.write makepassword (16) %> |