Tutorial de instancia ASP Este artículo le presenta cómo generar cadenas aleatorias, y este ejemplo presenta cómo generar 13 cadenas aleatorias.
<html>
<title>
Estudiante de inicio de cadena www.vevb.com </title>
<Body>
<%
Función gen_key (dígitos)
'Definición e inicializar la matriz
Dim char_array (80)
'Número de inicialización
Para i = 0 a 9
char_array (i) = cstr (i)
Próximo
'Inicialización de letras mayúsculas
Para i = 10 a 35
char_array (i) = chr (i + 55)
Próximo
'Inicializar una letra minúscula
Para i = 36 a 61
char_array (i) = chr (i + 61)
Próximo
Aleatorizar el temporizador 'Inicializar el generador de números aleatorios.
Hacer mientras digits de Len (salida) <
Num = char_aray (int ((62-0 + 1) * rnd + 0))
salida = salida + num
bucle
'Establezca el valor de retorno
Gen_key = salida
Función final
'Devuelve el resultado al navegador
Respuesta. Escribe las trece cuerdas aleatorias generadas por esta instancia es:
Respuesta.Write <Center>
Respuesta.WRITE Geen_Key (13)
Response.Write </center>
%>
</body>
</html>