función de cadena aleatoria asp

Este método es bueno. Puede generar una cadena aleatoria de caracteres y números en minúsculas. Puede agregar algunos caracteres especiales y algunas letras mayúsculas, etc. '************************************

'asp calcula números aleatorios

'************************************

Función randomStr(intLength)

Dim strSeed, seedLength, pos, Str, i

strSeed = abcdefghijklmnopqrstuvwxyz1234567890

longitud de semilla = Len (strSeed)

Cadena =

Aleatorizar

Para i = 1 a intLongitud

Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1)

Próximo

cadena aleatoria = cadena

Función final