La copie de code est la suivante:
<%
'Le système alloue des mots de passe aléatoires
FunctionCreatePass ()
Dimran, i, longueur
Longueur de longueur = 6
Createpass = ""
Fori = 1tolengthnum
Randomiser
Ran = cint (rnd * 2)
Randomiser
Ifran = 0Then
Ran = cint (rnd * 25) +97
CreatePass = CreatePass & UCase (Chr (Ran))
Elseifran = 1ment
Ran = cint (rnd * 9)
CreatePass = CreatePass & Ran
Elseifran = 2Then
Ran = cint (rnd * 25) +97
CreatePass = CreatePass & Chr (Ran)
Endire
Suivant
Finition de fin
Response.WriteCreatePass ()
%>