<%
'**********************************
'Función: gen_key (dígitos)
'Parámetros: dígitos ---- El número de bits para generar números aleatorios
'Autor: Alixi
'Fecha: 2007/7/13
'Descripción: Genere un número aleatorio de dígitos especificados por números, letras mayúsculas, letras minúsculas; Valor de retorno: un número aleatorio de múltiples especificados que se generarán
'Ejemplo: <%= gen_key (8)%>
'**********************************
FunctionGen_key (dígitos)
'Defina e inicializa la matriz
dimchar_array (80)
'Inicializar el número
Fori = 0to9
char_array (i) = cstr (i)
Próximo
'Inicializar letras mayúsculas
Fori = 10to35
char_array (i) = chr (i+55)
Próximo
'Inicializar letras minúsculas
Fori = 36to61
char_array (i) = chr (i+61)
Próximo
Randomize 'inicializa el generador de números aleatorios.
Dowhilelen (salida) <dígitos
num = char_array (int ((62-0+1)*rnd+0))
salida = salida+num
bucle
'Establezca el valor de retorno
gen_key = salida
Función final
%>