下面一款代码是一个用asp 生成图片验证码的程序哦关于验证代码写程序的大多都会知道哦下面来看看这款图片验证码的生成方式吧
<%
Option Explicit
Responsebuffer=true
NumCode
Function NumCode()
ResponseExpires =
ResponseAddHeader "Pragma""nocache"
ResponseAddHeader "cachectrol""nocache"
dim zNumij
dim AdosAdos
Randomize timer
zNum = cint(*Rnd+)
Session("GetCode") = zNum
dim zimg()NStr
NStr=cstr(zNum)
For i= to
zimg(i)=cint(mid(NStri+))
Next
dim Pos
set Ados=ServerCreateObject("AdodbStream")
AdosMode=
AdosType=
AdosOpen
set Ados=ServerCreateObject("AdodbStream")
AdosMode=
AdosType=
AdosOpen
AdosLoadFromFile(Servermappath("bodyFix"))
Adoswrite Adosread()
for i= to
AdosPosition=(zimg(i))*
AdosPosition=i*
Adoswrite adosread()
next
AdosLoadFromFile(Servermappath("headfix"))
Pos=lenb(Adosread())
AdosPosition=Pos
for i= to step
for j= to
AdosPosition=i*+j*
AdosPosition=Pos+*j+i*
Adoswrite adosread()
next
next
ResponseContentType = "image/BMP"
AdosPosition=
ResponseBinaryWrite Adosread()
AdosClose:set Ados=nothing
AdosClose:set Ados=nothing
End Function
%>
