Cuando inicia sesión en línea, a menudo verá un código de verificación que le solicita que ingrese, algunos de los cuales son texto y otros son imágenes. Por ejemplo, cuando deje un mensaje en el directorio de antiguos alumnos de chinaren.com, lo haremos. ver un código de verificación de imagen digital en línea Hay mucha información sobre cómo implementar códigos de verificación de texto digital, y lo que presentamos aquí es cómo implementar códigos de verificación que se componen aleatoriamente de números y letras y generan imágenes. Parece complicado, pero en realidad es muy sencillo. Sígueme y sigue leyendo:
Primero, introduzcamos la idea de diseño: una combinación aleatoria de números y letras genera un código de verificación y luego genera una imagen del código de verificación. La "combinación de números y letras" aquí debe eliminarse aleatoriamente si es especial; código de verificación digital, esto se puede lograr así:
ycodenum=4 'El número de dígitos del código de verificación, o un número
para i=1 a ycodenum
Randomize 'Inicializa el generador de números aleatorios
ycode=ycode&Int((9*Rnd)) 'rnd es un número aleatorio, cualquier número real entre 0 y 1, aquí obtienes un número entero entre 0 y 9
próximo
Response.write ycode 'generará el código de verificación digital (4 dígitos)
Sin embargo, queremos que los números y las letras se generen igualmente aleatoriamente. Aquí podemos usar una matriz para lograr este efecto, de la siguiente manera:
ychar="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" 'Combina números y letras mayúsculas en una cadena
yc=split(char,",") 'Generar cadena en matriz
ycodenum=4
para i=1 a ycodenum
Aleatorizar
ycode=ycode&yc(Int((35*Rnd))) 'Las matrices generalmente comienzan a leer desde 0, así que aquí está 35*Rnd
próximo
respuesta.escribir ycode
Ahora veamos si el resultado es una combinación aleatoria de números y letras.
Echemos un vistazo a cómo generar imágenes. Algunos amigos pueden saber esto: ASP no puede generar imágenes y se deben utilizar componentes ASP. Sí, aquí estamos utilizando la fotografía del componente de imagen ASP. Una cosa a la que todo el mundo debería prestar atención es que no puedes utilizar el servidor si no es el tuyo, porque no puedes instalar este componente.
Dirección de descarga del componente: yc=split(char,",") 'Generar cadena en matriz
ycodenum=4
para i=1 a ycodenum
Aleatorizar
ycode=ycode&yc(Int((35*Rnd))) 'Las matrices generalmente comienzan a leer desde 0, así que aquí está 35*Rnd
próximo
Respuesta.Borrar
Respuesta.ContentType="imagen/gif"
establecer obj=Server.CreateObject("shotgraph.image")
x=55 'El ancho de la imagen
y=26 'Altura de la imagen
obj.CreateImage x,y,8 '8 es el color de la imagen en 8 bits
obj.SetColor 0,55,126,222
obj.SetColor 1,255,255,255
obj.CreatePen "PS_SOLID",1,0
obj.SetBgColor 0
obj.Rectángulo 0,0,x-1,y-1
obj.SetBkMode "TRANSPARENTE"
obj.CreateFont "Arial",136,18,1,Falso,Falso,Falso,Falso
obj.SetTextColor 1
obj.TextOut 5,4,ycode&" "
img=obj.GifImagen(-1,1,"")
Respuesta.BinaryWrite(img)
Para conocer el código anterior, es decir, el principio del dibujo ordinario de shotgraph, consulte: http://www.pconline.com.cn/pcedu/empolder/wz/asp/10204/45207.html