<%
'*********************************
'Function: MakePassword (byvalmaxlen)
'Параметр: maxlen, длина сгенерированных цифр пароля
Автор: Аликси
Дата: 2007/7/12
'Описание: генерировать случайные пароли любого количества цифр
Пример: <%= MakePassword (8)%>
'*********************************
functionmakepassword (byvalmaxlen)
DimStrnewPass
DimwhatsNext, Upper, Lower, Intcounter
рандомизировать
forintcounter = 1tomaxlen
WhatsNext = int ((1-0+1)*rnd+0)
ifWhatsNext = 0Then
'характер
Верхний = 90
ниже = 65
еще
Верхний = 57
ниже = 48
эндиф
strnewpass = strnewpass & chr (int ((верхний нижний+1)*rnd+нижний)))
следующий
MakePassword = strnewPass
конечная функция
%>