| Ce qui suit est le fragment de code: <% Fonction makepassword (byval maxlen) Dim Strnewpass Dim WhatsNext, Upper, inférieur, intcounter Randomiser Pour intCounter = 1 à Maxlen WhatsNext = int ((1-0 1) * rnd 0) Si whatsnext = 0 alors supérieur = 90 Inférieur = 65 Autre supérieur = 57 Inférieur = 48 Terminer si StrNewpass = strNewpass & chr (inchete -lower 1) * rnd inférieur) Suivant Makepassword = strNewpass fonction finale 'Spécifiez la longueur du mot de passe et appelez la fonction Response.Write Makepassword (16) %> |