Numero aleatorio

[davidof]

Sirvete tu mismo


<%
' Generador de claves aleatorias

Function generadordeclaves(longituddeclave)
' Nota para los principientes : el simpolo "_" es el de continuación de linea
' Definicion del array
Dim numerodecaracteres
Dim salida
Dim char_array

char_temps = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")


Randomize()

Do While Len(salida) < longituddeclave
salida = salida & char_temps(Int(10*Rnd()))
Loop


' establecemos el valor del resultado a devolver
generadordeclaves = salida
End Function


numerodecaracteres=4
' escribe los resultados de la clave con tantos caracteres como el parametro pasado
Response.Write "Exemple aleatori de vectors: "
Response.Write "<b>" & generadordeclaves(numerodecaracteres) & " en mil·lisegons</b>" & vbCrLf
%>