alguien que me pueda ayudar estoy desesperado

[daniel57]

mira lo que necesito es generar un id pero de letras osea que sea minimo de cuatro caracteres y no exeda de 16 caracteres

ejemplo
aaaa
abaa
acaa
adaa
.....
baaa
bbaa
baaa
.....
cccaaaaaaaaaa
etc
como le puedo hacer
si me pueden ayudar

[Bluesman74cl]

Si entiendo lo que quieres aqui esta la respuesta... tu quieres hacer que ingresen una id desde 4 caracteres hasta 16 independiente de la eleccion del usuario... pues en dreamweaver lo puedes hacer fácil por que al momento de validar el tex tarea te dice dentro de una opciones from to y esa debes clikcear ahora si te esperas un poco te puedo enviar el scrpt que se genera (dreamweaver mx)

[daniel57]

yo no les doy a escoger a ellos que quieren sino que en ves de tener id numerico les quiero poner un Id pero de letras osea que cada vez que un usuario se registra quedaria asi

aaaa
aaab
aaac
aaba
aabb
aabc
acaa


asi hasta recorrer todo el abecedario

espero que me haya explicado esto me lo dijeron pero me habian explicado que lo usan mucho para generar passwords y ya busque pero todo estan en programas nada en asp y aparte los generan aleatoriamente y yo los quiero por orden

osea crear una pagina donde digamos que quiero que me genere una lista de puras letras con un minimo de 4 letras y maximo 16

[Henry Zapata]

Hola:

Como tenía un poco de tiempo y me parecio interesante tu pregunta me tome la molestia de escribir uno que te puede ayudar en algo. Este funciona de izquierda a derecha y con mayusculas y falta validar casos como el valor ZZZZ.

---------------------------------------------
<%@ Language=VBScript %>

<%

Response.Buffer=false

dim strCadena,strCaracter
dim intContador,intLongitud, intAssci
dim blnFin

strCadena = "ZCAAA"
intLongitud = len(strCadena)
blnFin = false
intContador = 1

'Recorriendo caracteres
while (intContador <= intLongitud and not blnFin )

'Obteniendo caracter
strCaracter = mid(strCadena,intContador,1)
'Obteniendo codigo ascci
intAssci = asc(strCaracter)
'Verificando si el caracter a analizar es el ultimo del abecedario Z
if intAssci <> 90 then
'Primer Caracter de la cadena
if intContador = 1 then
strCadena = chr(intAssci + 1) + mid(strCadena,intContador+1,intLongitud-intContador)
'Ultimo Caracter de la cadena
elseif intContador = intLongitud then
strCadena = mid(strCadena,intContador-1,1) + chr(intAssci + 1)
' Caracter distinto a primero y ultimo
else
strCadena = mid(strCadena,intContador-1,1) + chr(intAssci + 1) + mid(strCadena,intContador+1,intLongitud-intContador)
end if
'Fin de operacion
blnFin = true
end if
'Incrementando contador
intContador = intContador + 1

wend

Response.Write strCadena

%>


---------------------------------------------