ASP的驗證碼怎麽寫？

因為字符限制，很難粘貼代碼，生成驗證碼的程序也無法粘貼。請告訴我妳的電子郵件地址，我會給妳發壹封郵件。

下面是壹個完整的驗證碼生成程序，生成壹張圖。

然後妳可以在其他頁面調用這個圖片。

調用過程如下:

& lttd colspan = 2 & gt？& ltspan class="new " >驗證碼:

& ltinput name = " verify code " type = text id = " verify code " >& ltimg src = verifycode.asp & gt& lt/TD & gt；

驗證碼生成器無法粘貼。

您可以將程序保存在以下地址，名為verifycode.asp。

& lt%

選項顯式

Response.buffer=true

數字代碼

函數NumCode()

回應。過期時間= -1

回應。AddHeader“雜註”，“無緩存”

回應。AddHeader "cache-ctrol "，" no-cache "

dim zNum，I，j

dim Ados，Ados1

隨機化定時器

zNum = cint(8999*Rnd+1000)

Session("verifycode") = zNum

dim zimg(4)，NStr

NStr=cstr(鋅)

對於i=0到3

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

然後

變暗位置

設置Ados =服務器。CreateObject("Adodb。流”)

阿多斯。模式=3

阿多斯。Type=1

阿多斯。打開

設置ados 1 =服務器。CreateObject("Adodb。流”)

Ados1。模式=3

Ados1。Type=1

Ados1。打開

阿多斯。LoadFromFile(server . mappath(" comm/body。修復"))

ados 1 . write ados . read(1280)

對於i=0到3

阿多斯。位置=(9-zimg(i))*320

Ados1。位置=i*320

Ados1.write ados.read(320)

然後

阿多斯。LoadFromFile(server . mappath(" comm/head . fix "))

Pos=lenb(Ados.read())

阿多斯。位置=位置

對於i=0到9步1

對於j=0到3

Ados1。位置=i*32+j*320

阿多斯。位置=Pos+30*j+i*120

Ados.write ados1.read(30)

然後

然後

回應。ContentType = "image/BMP "

阿多斯。位置=0

回應。BinaryWrite Ados.read()

阿多斯。關閉:設置Ados=nothing

Ados1。關閉:設置ados 1 =無

結束功能

% & gt