验证码的制作:
<%
Response.buffer = true
'注意此处的数组里的元素顺序要和图片里的顺序一样哦!!
dim chiCha:chiCha=array(\"我\",\"就\",\"奥\",\"欢\",\"考\",\"湖\",\"圳\",\"洲\",\"进\",\"仿\",\"税\",\"概\",\"路\",\"军\",\"格\",\"本\",\"亮\",
\"猫\",\"恐\",\"敢\",\"修\",\"眠\",\"乐\",\"年\",\"演\")
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader \"ragma\",\"no-cache\"
Response.AddHeader \"cache-ctrol\",\"no-cache\"
dim zNum,i,j
dim Ados,Ados1
dim zimg(3),imgGb(3)
For i=0 to 3
Randomize timer
zimg(i) = cint(24*Rnd)
imgGb(i)=chiCha(zimg(i))
Next
Session(\"GetCode\")=join(imgGb,\"\")
dim Pos
set Ados=Server.CreateObject(\"Adodb.Stream\")
Ados.Mode=3
Ados.Type=1
Ados.Open
set Ados1=Server.CreateObject(\"Adodb.Stream\")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath(\"yzm_gb2.bmp\"))
Ados1.write Ados.read(4800)
for ii=0 to 3
for j=0 to 19
Ados.position=(zimg(ii))*60+1500*j+54
Ados1.position=240*j+60*ii
Ados1.write ados.read(60)
next
next
'清空已经用完的ADOS的数据,调入替换新的图像头54字节的头文件
Ados.LoadFromFile(Server.mappath(\"head.fix\"))
Pos=lenb(Ados.read())
Ados.Position=Pos
Ados1.position=0
Ados.write ados1.read()
Ados.Position=0
'直接向客户端发送图像数据
Response.ContentType = \"image/BMP\"
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
End Function
%>