cioppicone
27-08-2004, 11:06
ciao a tutti,
ho la necessità di creare delle password in modo casuale e salvarle in un db (access). Il problema è che non posso ogni volta riaggiornare la pagina per avere password diverse e così ho creato un ciclo FOR ... NEXT, solo che ogni volta che lo esegue, la passowrd rimane la stessa. Il comando "RANDOMIZE" non dovrebbe inizializzare il generatore di numeri casuali ogni volta che viene eseguito?
Vi posto il codice:
If intk<>0 Then
response.write("Gli utenti inseriti sono i seguenti: ") &"<br>"
For i=0 to intk-1
rs.AddNew
rs("doc")=arraydoc(i)
response.write(i+1 &" " &arraydoc(i))
caratteri = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize
Do Until len(password) = 6
carattere = Int((37 * Rnd) + 1)
password = password &Mid(caratteri, carattere, 1)
Loop
Response.Write ("La tua password è :" &password) &"<br>"
Next
rs.UpDate
Else
response.write("Non sono stati inseriti nuovi utenti")
End if
ho la necessità di creare delle password in modo casuale e salvarle in un db (access). Il problema è che non posso ogni volta riaggiornare la pagina per avere password diverse e così ho creato un ciclo FOR ... NEXT, solo che ogni volta che lo esegue, la passowrd rimane la stessa. Il comando "RANDOMIZE" non dovrebbe inizializzare il generatore di numeri casuali ogni volta che viene eseguito?
Vi posto il codice:
If intk<>0 Then
response.write("Gli utenti inseriti sono i seguenti: ") &"<br>"
For i=0 to intk-1
rs.AddNew
rs("doc")=arraydoc(i)
response.write(i+1 &" " &arraydoc(i))
caratteri = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Randomize
Do Until len(password) = 6
carattere = Int((37 * Rnd) + 1)
password = password &Mid(caratteri, carattere, 1)
Loop
Response.Write ("La tua password è :" &password) &"<br>"
Next
rs.UpDate
Else
response.write("Non sono stati inseriti nuovi utenti")
End if