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

Debido a restricciones de caracteres, es difícil pegar el código. El programa que genera el código de verificación no se puede pegar. Por favor, dime tu dirección de correo electrónico y te enviaré un correo electrónico. p>La siguiente es una verificación completa. El programa de generación de código genera una imagen.

Luego puede llamar a esta imagen en otras páginas.

El programa de llamada es el siguiente:

lt;td colspan=2gt;?lt;span class="new"gt;Código de verificación: lt;/spangt;

lt;input name="verifycode" type=text id= "verifycode"gt ;lt;img src=verifycode.aspgt;lt;/tdgt;

El programa de generación del código de verificación no se puede pegar.

Simplemente puede guardar el programa en el siguiente dirección como verificarcode.asp

lt;

Opción explícita

Response.buffer=true

NumCode

Función NumCode()

Response.Expires = -1

Response.AddHeader "Pragma", "no-cache"

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

dim zNum, i, j

dim Ados, Ados1

Temporizador aleatorio

zNum = cint(8999*Rnd 1000 )

Session("verifycode") = zNum

dim zimg(4), NStr

NStr=cstr(zNum)

Para i=0 a 3

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

Siguiente

dim Pos

set Ados=Server.CreateObject("Adodb.Stream")

Ados.Mode=3

Ados.Type=1

Ados.Abrir

set Ados1=Server.CreateObject("Adodb.Stream")

Ados1.Mode=3

Ados1.Type= 1

Ados1.Open

Ados.LoadFromFile(Server.mappath("comm/body.Fix"))

Ados1.write Ados.read(1280 )

para i=0 a 3

Ados.Position=(9-zimg(i))*320

Ados1.Position=i*320

Ados1.write ados.read(320)

siguiente

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

Pos= lenb(Ados.re

ad())

Ados.Position=Pos

para i=0 a 9 paso 1

para j=0 a 3

Ados1.Position=i*32 j*320

Ados.Position=Pos 30*j i*120

Ados.write ados1.read(30)

siguiente

siguiente

Response.ContentType = "imagen/BMP"

Ados.Position=0

Response.BinaryWrite Ados. read()

Ados.Close: establece Ados=nada

Ados1.Close: establece Ados1=nada

Función final

gt ;