Foros del Web » Programando para Internet » ASP Clásico »

ayuda con randomize

Estas en el tema de ayuda con randomize en el foro de ASP Clásico en Foros del Web. En mi sistema de postales tengo este código para crear un número al azar (que identifica la postal , claro): Randomize minimo = 100000000 maximo ...
  #1 (permalink)  
Antiguo 01/12/2002, 15:55
Avatar de CHuLoSoY  
Fecha de Ingreso: febrero-2002
Ubicación: Ribeira (Galicia)
Mensajes: 1.900
Antigüedad: 22 años, 4 meses
Puntos: 29
ayuda con randomize

En mi sistema de postales tengo este código para crear un número al azar (que identifica la postal , claro):


Randomize
minimo = 100000000
maximo = 999999999
numrnd = Int(((maximo-minimo+1) * Rnd) + minimo)


El problema que tengo es que necesito un número más largo, pero si pongo una cifra más en esos números, me da error.

¿Cómo podría hacer el número al azar más largo y a ser posible alfanumérico (con letras y números)?
__________________
ESQUIO Dominios y Hosting
Las mejores características con los mejores precios.
  #2 (permalink)  
Antiguo 01/12/2002, 16:29
Avatar de maestro  
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 22 años, 4 meses
Puntos: 1
Randomize
minimo = 100000000
maximo = 999999999
numrnd = Int(((maximo-minimo+1) * Rnd) + minimo)*2

Por ejemplo.......

<%
' 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
%>
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net
  #3 (permalink)  
Antiguo 01/12/2002, 16:30
Avatar de CHuLoSoY  
Fecha de Ingreso: febrero-2002
Ubicación: Ribeira (Galicia)
Mensajes: 1.900
Antigüedad: 22 años, 4 meses
Puntos: 29
y sabes algo alfanumérico?
__________________
ESQUIO Dominios y Hosting
Las mejores características con los mejores precios.
  #4 (permalink)  
Antiguo 01/12/2002, 16:31
Avatar de maestro  
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 22 años, 4 meses
Puntos: 1
Opppssss, me pisaste, esta editado en el post mas arriba.
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net
  #5 (permalink)  
Antiguo 01/12/2002, 16:35
Avatar de CHuLoSoY  
Fecha de Ingreso: febrero-2002
Ubicación: Ribeira (Galicia)
Mensajes: 1.900
Antigüedad: 22 años, 4 meses
Puntos: 29
gracias, me ha funcionado perfectamente
__________________
ESQUIO Dominios y Hosting
Las mejores características con los mejores precios.
  #6 (permalink)  
Antiguo 01/12/2002, 17:15
Avatar de maestro  
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 22 años, 4 meses
Puntos: 1
Por cierto, en tu seccion de letras de canciones:
http://ommadawn.comuocio.net/letras/index.asp
Me da error 404, lo has visto?, a que tienes sin programar aun las URL y el ASP para mostrar la letra?

Aun te estas haciendo el ver.php
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:30.