¿Cómo utilizar el código de verificación de imagen ASP?
/pub/verifycode
Características funcionales:
Genera automáticamente imágenes en formato GIF, que se pueden configurar en formato GIF87a o GIF89a.
Puedes personalizar los colores de fondo y primer plano de las imágenes.
Cambio aleatorio del texto del código de verificación
Genera automáticamente puntos de ruido de interferencia y el número de puntos de ruido se puede personalizar.
El texto y el ruido se pueden especificar como monocromáticos o en color.
La imagen cambiará automáticamente con la longitud del archivo.
Actualmente solo se admite texto numérico.
verifycode.asp
& lt% @ LANGUAGE = " VBSCRIPT " página de códigos = " 65001 " % & gt;
Opciones explícitas
Sesión. Página de códigos = 65001
Respuesta. Juego de caracteres = "gb2312 "
Respuesta. Tiempo de caducidad = -1
Respuesta. AddHeader "Pragma", "Sin caché"
Respuesta.
AddHeader "cache-ctrol", "no-cache"
Clase NetRube_VerifyCode
Pública GlobalColorTable(), LocalColorTable()
Pública TransparentColorIndex, UseTransparency
GIF89a público
Comentarios públicos
Privado FGroundColorIndex, BGroundColorIndex
Imagen privada
Privado GlobalColorTableSize, GlobalColorTableFlag, LocalColorTableSize, LocalColorTableFlag
Ancho_, alto_privado_
Posición izquierda privada, posición superior
Bits privados, resolución de color, tamaño de código
Proporción de píxeles privados
Private SortFlag, InterlaceFlag
Separadores privados, controles gráficos, imágenes en línea
Privado reservado
Fuentes privadas
Mensaje privado (19)
Privado subclass_Initialize()
Imagen = " "
GIF89a = False
ReDim GlobalColorTable(256)
GlobalColorTableSize = 7
GlobalColorTableFlag = Verdadero
GlobalColorTable(2) = RGB(255, 0, 0)
GlobalColorTable(3) = RGB(0, 255, 0)
GlobalColorTable(4) = RGB(0, 0, 255)
GlobalColorTable(5) = RGB(255, 255, 0)
GlobalColorTable(6) = RGB(0, 255, 255)
GlobalColorTable(7) = RGB(255, 0, 255)
p>ReDim LocalColorTable (0)
LocalColorTableSize = 0
LocalColorTableFlag = False
ColorResolution = 7
Bits = 7
Tamaño del código = 7
BGroundColorIndex = 0
FGroundColorIndex = 1
TransparentColorIndex = 0
UseTransparency = False
Posición izquierda = 0
Posición superior = 0
Ancho_ = 20
Alto_ = 20
Borrar
PixelAspectRatio = 0
SortFlag = False
InterlaceFlag = False
Separador = Asc(",")
GraphicControl = Asc( "! ")
endo fimage = Asc(";")
Comentario = " "
Reserva = 0
Establecer fuente = Servidor .CreateObject("Script.
Diccionario》)
Letra (0) = "0000000000000 "
Letra (1) = " 000011111100000 "
Letra (2) = " 000111111110000 " p>
Letra(3)= " 00111000111000 "
Letra(4)= " 0011000011100 "
Letra(5)= " 0111000001100 "
Letra(6)= " 0110000001110 "
Letra(7)= " 0110000001110 "
Letra(8)= " 1110000001110 "
Letra(9 )= " 110000001110 "
Letra(10)= " 110000001110 "
Letra(11)= " 111000001110 "
Letra(12)= " 1110000001100 "
p>Letra(13)= " 1110000001100 "
Letra(14)= " 011000001100 "
Letra(15)= " 01110000111100 "
Letra(15)= " 0011100011000 "
Letra(16)= " 00011111110000 "
Letra(17)= " 00001111100000 "
Letra (18) = "000000000000 "
Fuente. Añadir "0", letra
Letra(0) = "0000000000000"
Letra(1) = " 0000001110000 "
Letra(2) = " 00000001110000 "
Letra(3) = " 00000011100000 "
Letra(4) = "00000011000000 "
Letra(5) = "00000011000000 "
Letra(6) = "00000011000000 "
Letra(7) = " 00000111000000 "
Letra(8) = " 00000111000000 "
Letra( 9)= " 00000111000000 "
Letra(10)= " 0000011000000 "
Letra(11)= " 0000011000000 "
Letra(12)= " 0000011000000 "
Letra(13)= " 0000011000000 "
Letra(14)= " 0000011000000 "
Letra(15)= " 0000011000000 "
Letra(15)= " 0000011000000 "
Letra(16)= " 0000011000000 "
Letra(17)= " 0000010000000 "
Letra( 18) = "000000000000 "
Fuente.
Añadir "1", letra
Letra(0) = "0000000000000 "
Letra(1) = " 000011111110000 "
Letra(2) = " 00011111111000 "
Letra(3)= " 00111000011100 "
Letra(4)= " 0111000011100 "
Letra(5)= " 0111000011000 "
Letra(6)= " 0110000011000 "
Letra(7)= " 0000000111000 "
Letra(8)= " 00000001110000 "
Letra( 9)= " 00000001110000 "
Letra(10)= " 00000011000000 "
Letra(11)= " 0000111000000 "
Letra(12)= " 0000111000000 "
Letra(13)= " 000110000000 "
Letra(14)= " 000110000000 "
Letra(15)= " 0011000011100 "
Letra(16)= " 0111111111165438 "
Letra(17)= " 011111111111165438 "
Letra(18)= " 0111110000000 "
Letra( 19) = "000000000000 "
Fuente. Añadir "2", letra
Letra(0) = "0000000000000 "
Letra(1) = " 00001111111000 "
Letra(2) = " 00111111111000 "
Letra(3)= " 01110000111100 "
Letra(4)= " 0110000011000 "
Letra(5)= " 0100000111000 "
Letra(6) = " 0000000111000 "
Letra(7) = " 00000001110000 "
Letra(8) = "00000011000000 "
Letra( 9)= " 00000111110000 "
Letra(10)= " 00000100111000 "
Letra(11)= " 000000011100 "
Letra(12)= " 0000000011100 "
Letra(13)= " 0000000011100 "
Letra(14)= " 0000000011100 "
Letra(15)= " 0000000011000 "
Letra(16)= " 11100001111000 "
Letra(17)= " 111111111110000 "
Letra(18)= " 011111111100000 "
Letra( 19) = "000000000000 "
Fuente.
Añadir "3", letra
Letra(0) = "0000000000000"
Letra(1) = " 0000000111000 "
Letra(2) = " 00000001111000 "
Letra(3)= " 00000011100000 "
Letra(4)= " 00000111011100 "
Letra(5)= " 00001110011100 "
Letra(6)= " 00001100011000 "
Letra(7)= " 00011000111000 "
Letra(8)= " 00111000110000 "
Letra( 9)= " 0111000110000 "
Letra(10)= " 0110000110000 "
Letra(11)= " 0110000110000 "
Letra(12)= " 110001111111165438 "
Letra(13)= " 11111111111165438 "
Letra(14)= " 111111111100000 "
Letra(15)= " 1110001100000 "
Letra(16)= " 0000001110000 "
Letra(17)= " 0000000110000 "
Letra(18)= " 0000000110000 "
Letra( 19)= " 0000000100000 "
Fuente. Añadir "4", letra
letra(0) = "0000000000000"
letra(1) = " 0000110000100 "
letra(2) = " 0011111111110 "
Letra(3)=" 0011111111100 "
Letra(4)=" 0001111000000 "
Letra(5) = "0001100000000 "
Letra(6)= " 001110000000 "
Letra(7)= " 001110000000 "
Letra(8)= " 00111111110000 "
Letra( 9)= " 00111111111000 "
Letra(10)= " 0000000011000 "
Letra(11)= " 000000011000 "
Letra(12)= " 0000000011000 "
Letra(13)= " 0000000011000 "
Letra(14)= " 0000000011000 "
Letra(15)= " 0000000011000 "
Letra(16)= " 00000001111000 "
Letra(17)= " 011111111110000 "
Letra(18)= " 0011111100000 "
Letra( 19)= " 0000000100000 "
Fuente.
Añadir "5", letra
letra(0) = "0000000000000"
letra(1) = " 00000011110000 "
letra(2) = " 00000111100000 "
Letra(3)= " 0000111000000 "
Letra(4)= " 0001110000000 "
Letra(5)= " 001110000000 "
Letra(6) = "001100000000 "
Letra(7) = "001100000000 "
Letra(8) = " 011111111110000 "
Letra( 9)= " 01111111111000 "
Letra(10)= " 0111000011100 "
Letra(11)= " 0110000001100 "
Letra(12)= " 011000001100 "
Letra(13)= " 011000001100 "
Letra(14)= " 011000001100 "
Letra(15)= " 01110000111100 "
Letra(16)= " 0011000011100 "
Letra(17)= " 001111111111000 "
Letra(18)= " 00011111110000 "
Letra( 19) = "000000000000 "
Fuente. Añadir "6", letra
Letra(0) = "0000000000000 "
Letra(1) = " 001001111111165438 "
Letra(2) = " 011111111111100 "
Letra(3)= " 01111100111100 "
Letra(4)= " 0000000011000 "
Letra(5)= " 0000000111000 "
Letra(6)= " 0000000110000 "
Letra(7)= " 0000000110000 "
Letra(8)= " 0000000110000 "
Letra( 9)= " 00000001110000 "
Letra(10)= " 0000001100000 "
Letra(11)= " 0000001100000 "
Letra(12)= " 0000001100000 "
Letra(13)= " 0000001100000 "
Letra(14)= " 00000011100000 "
Letra(15)= " 00000011100000 "
Letra(16)= " 00000011100000 "
Letra(17)= " 0000001000000 "
Letra(18)= " 0000001000000 "
Letra( 19) = "000000000000 "
Fuente.
Añadir "7", letra
Letra(0) = "0000000000000 "
Letra(1) = " 000011111110000 "
Letra(2) = " 00011111111000 "
Letra(3)= " 0011100011000 "
Letra(4)= " 0011000011000 "
Letra(5)= " 0111000011100 "
Letra(6)= " 0111000011000 "
Letra(7)= " 0011000011000 "
Letra(8)= " 0011111111000 "
Letra( 9)= " 00011111111000 "
Letra(10)= " 00110001111100 "
Letra(11)= " 0111000001100 "
Letra(12)= " 0111000001100 "
Letra(13)= " 0110000001110 "
Letra(14)= " 011000001100 "
Letra(15)= " 011000001100 "
Letra(16)= " 01110000111100 "
Letra(17)= " 00111111111100 "
Letra(18)= " 00011111110000 "
Letra( 19) = "000000000000 "
Fuente. Añadir "8", letra
Letra(0) = "0000000000000 "
Letra(1) = " 000111111110000 "
Letra(2) = " 00111111111000 "
Letra(3)= " 01110000111000 "
Letra(4)= " 0111000011100 "
Letra(5)= " 0110000001100 "
Letra(6)= " 0110000001100 "
Letra(7)= " 0110000001100 "
Letra(8)= " 0110000001100 "
Letra( 9)= " 0111000011100 "
Letra(10)= " 00111111111100 "
Letra(11)= " 0011111111165438 "
Letra(12)= " 0000000011000 "
Letra(13)= " 0000000011000 "
Letra(14)= " 0000000111000 "
Letra(15)= " 0000001110000 "
Letra(16)= " 00000011100000 "
Letra(17)= " 00000111000000 "
Letra(18)= " 0001111000000 "
Letra( 19) = "000000000000 "
Fuente. Agregue "9", letra
Conector de terminal
Fuente privada subclass_Terminate()
.
Eliminar todo
Establecer fuente=ninguno
Conector final
Propiedad pública Obtener ancho()
Ancho = ancho_
Propiedad final
Propiedad pública Obtener altura()
Altura=altura_
Propiedad final
Propiedad pública Obtener versión( )
versión = " Código de verificación de NetRube Clase 1.0 Compilación 20041225 "
Propiedad final
Letra de propiedad pública BGroundColor (color ByVal)
GlobalColorTable( 0)= MakeColor(Color)
BGroundColorIndex = 0
Propiedad final
Letra de propiedad pública FGroundColor(ByVal color)
GlobalColorTable( 1)= MakeColor(Color)
FGroundColorIndex = 1
Propiedad final
Propiedad pública Obtener Pixel(ByVal PX, ByVal PY)
si (PX & gt;0 y PX & lt= Ancho_) y (PY & gt0 y PY & lt= Alto_) entonces
Pixel = AscB(MidB(Imagen, (Ancho_ * (PY - 1 )) + PX, 1))
Otro
Pixel = 0
Terminará si...
Propiedad final
Letra de propiedad pública Pixel(ByVal PX, ByVal PY, PValue)
Compensación de tamaño
PX = Int(PX)
PY = Int (PY)
PValue = Int(PValue)
desplazamiento = ancho_ * (PY - 1)
if(PX>0 y PX & lt= Ancho_ ) y (PY & gt0 y PY & lt= Altura_) luego
Imagen = LeftB(Imagen, Offset+(PX-1))& ChrB(PValue) y amp.