¿Cómo escribir el código de verificación para ASP?

Debido al límite de caracteres, es difícil pegar el código y el programa que genera el código de verificación no puede pegarlo. Por favor dime tu dirección de correo electrónico y te enviaré un correo electrónico.

El siguiente es un completo programa de generación de códigos de verificación que genera una imagen.

Entonces podrás llamar a esta imagen en otras páginas.

El proceso de llamada es el siguiente:

& lttd colspan = 2 & gt? & ltspan class="new " >Código de verificación:

& ltinput name = " verificar código " tipo = text id = " verificar código " >& ltimg src = verificarcode.asp & gt& lt/TD & gt ;

El generador de códigos de verificación no se puede pegar.

Puedes guardar el programa en la siguiente dirección, denominada verificarcode.asp.

& lt%

Opción explícita

Response.buffer=true

Código numérico

Función NumCode ( )

Respuesta. Tiempo de caducidad = -1

Respuesta. AddHeader "Pragma", "Sin caché"

Respuesta. AddHeader "cache-ctrol", "no-cache"

dim zNum, I, j

dim Ados, Ados1

Temporizador de aleatorización

zNum = cint(8999*Rnd+1000)

Session("verifycode") = zNum

dim zimg(4), NStr

NStr= cstr(zinc)

Para i=0 a 3

zimg(i)=cint(mid(NStr,i+1,1))

Entonces

Posición atenuada

Establecer Ados=Servidor. CreateObject("Adodb.Stream")

Adods. Modo=3

Athos. Tipo=1

Athos. abrir

establecer ados 1 = servidor. CreateObject("Adodb.stream")

Ados1. mode=3

Ados1. Tipo=1

Ados1. Abrir

Athos. LoadFromFile(server . mappath(" comm/body. fix"))

ados 1 . escriba read(1280)

Para i=0 a 3

Athos. Posición=(9-zimg(i))*320

Ados1. position=i*320

Ados1.write ados.read(320)

Entonces

Ados. LoadFromFile(server . mappath(" comm/head . fix "))

Pos=lenb(Ados.read())

Ados. posición = posición

Para i=0 a 9 paso 1

Para j=0 a 3

Ados1. Posición=i*32+j*320

Athos. Posición=Pos+30*j+i*120

Ados.write ados1.read(30)

Luego

Luego

responder. ContentType = "imagen/BMP "

Athos. posición=0

Respuesta. BinaryWrite Ados.read()

Ados. Desactivado: establezca Ados=nada

Ados1.

Cerrar: establecer ados 1 = none

Finalizar función

% & gt