Кода -копия выглядит следующим образом:
<%
'Система выделяет случайные пароли
FunctionCreatePass ()
Dimran, I, Landnum
Длина = 6
CreatePass = ""
Fori = 1tolengthnum
Рандомизировать
Ran = cint (rnd*2)
Рандомизировать
Ifran = 0then
Ran = cint (rnd*25) +97
CreatePass = createPass & Ucase (Chr (Ran))
Elseifran = 1then
Ran = cint (rnd*9)
CreatePass = createPass & Ran
Elseifran = 2Then
Ran = cint (rnd*25) +97
CreatePass = createPass & Chr (Ran)
Эндиф
Следующий
Конечная функция
response.writecreatepass ()
%>