Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir

 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Un Sistema de postales Virtuales en ASP (I)

Diferentes formas de establecer la conexión con una base de datos

El Objeto Application

Uso de OPTION EXPLICIT

Uso de Server Side Include

Objeto Server

Un Sistema de postales Virtuales en ASP (I)

Sugerencias Microsoft sobre ASP (I)

Secuencias de comandos asp

Configuracion de IIS


Enlaces recomendados

   

Tutorial ASP

Un Generador de claves aleatorias
Este articulo ha sido leído 67.961 veces

Generador de claves aleatorias

Este pequeño ejemplo nos permite generar claves alfanumericas aleatorias

Paso a paso:

  • En un primer paso definimos la función que no devolverá la clave buscada
  • Esta función recibe como parámetro el numero de caracteres que queremos que tenga la clave
  • Definimos las variables numerocaracteres (longitud de la clave a generar) y salida (variable en que dejaremos la clave generada)    
  • Definimos un array (char_array) con los caracteres alfanumericos que a partir de los cuales queremos     generar la clave
  • Invocamos a la función Randomize()
  • Hacemos un bucle con tantas vueltas como caracteres de longitud necesitemos, en cada una de las vueltas agregamos un nuevo caracter a la cadena a devolver (salida)

 

Generador.asp
<%
' 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_array = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _
"K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _
"U", "V", "W", "X", "Y", "Z")


Randomize()

Do While Len(salida) < longituddeclave
salida = salida & char_array(Int(36 * Rnd()))
Loop

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


numerodecaracteres=10
' escribe los resultados de la clave con tantos caracteres como el parametro pasado

Response.Write "<b>" & generadordeclaves(numerodecaracteres) & "</b>" & vbCrLf
%>



Atras


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
77 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar