利用Adodb.Stream制作彩色验证码

asp文件：code.asp
数据文件：body.fix , head.fix
用法：<img src="code.asp">

response.buffer = true
numcode

function numcode()
response.expires = -1
response.addheader "pragma","no-cache"
response.addheader "cache-ctrol","no-cache"
dim znum,i,j
dim ados,ados1
randomize timer
生成随机四位数字：
znum = cint(8999*rnd+1000)
传递给session
session("getcode") = znum
该for循环是将随机数字放入一个下标3的数组，便于提供给后面的阵列变换
dim zimg(3),nstr
nstr=cstr(znum)
for i=0 to 3
zimg(i)=cint(mid(nstr,i+1,1))
next
dim pos

'定义二个 adodb.stream binary对象,作图像数据操作之用:

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
'载入0~9的数字数据10x100的，gbr的阵列数据,每个320字节,10个数字3200byte
'bgr一个点,10x10个点一个数字，一个点三个字节(二进制8位，16进制 00~ff)
'一行10个点 30字节 + 行结束标记 00 00 二字节 32字节，所以一个10x100宽小于长的图像每个数字10x10是320字节
'长大于宽的则无行结束标记 0000,直接是300字节
这些就是bmp 24bit的数据详细信息了
‘至于头部，也很简单，包含长宽，图像开始标记等等~~才54字节，远没jpg什么的复杂

ados.loadfromfile(server.mappath("body.fix"))
ados1.write ados.read(1280)
'第一个for循环,按生成的随机数字顺序从 10x100的数字阵列中提取出相应的四个数字
但是竖排的数字阵列
for i=0 to 3
ados.position=(9-zimg(i))*320
ados1.position=i*320
ados1.write ados.read(320)
next
'清空已经用完的ados的数据，调入替换新的图像头54字节的头文件 
ados.loadfromfile(server.mappath("head.fix"))
pos=lenb(ados.read())
ados.position=pos '指定pos位置,即可再偏移54字节的位置添加图形数据
第二个for循环，进行数字的阵列变换，由竖排的块转换为横排的数字块
方法是隔320字节抽取4次30字节写入ados对象，再抽取偏移第二行的图像数据
30字节是因为bmp 宽大于长时无00 00的行结束标记
for i=0 to 9 step 1
for j=0 to 3
ados1.position=i*32+j*320
ados.position=pos+30*j+i*120
ados.write ados1.read(30)
next
next
ados.position=0
response.binarywrite直接向客户端发送图像数据
response.contenttype = "image/bmp"
response.binarywrite ados.read()
ados.close:set ados=nothing
ados1.close:set ados1=nothing
end function