| A seguir, o fragmento de código: <% Função makepassword (byval maxlen) Dim strNewPass Dim WhatsNext, Upper, Inferior, Intcounter Randomizar Para intcounter = 1 para maxlen WhatsNext = int ((1-0 1) * rnd 0) Se whatsNext = 0 então superior = 90 Inferior = 65 Outro superior = 57 Inferior = 48 Final se StrNewPass = strNewPass & ch (Inchete -lower 1) * rnd inferior) Próximo MakePassword = strNewPass Função final 'Especifique o comprimento da senha e chame a função Response.Write MakePassword (16) %> |