知识大全 ASP生成图片彩色校验码

Posted 2022-07-17 字节

篇首语：读书不趁早，后来徒悔懊。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP生成图片彩色校验码相关的知识，希望对你有一定的参考价值。

ASP生成图片彩色校验码 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　行代码三个文件

　　Asp文件 Code Asp

　　数据文件 body Fix Head Fix　

　　用法 <img src=code asp>

　　<%Option ExplicitResponse buffer=trueNumCodeFunction NumCode()　　　 Response Expires = 　　　 Response AddHeader "Pragma" "no cache"　　　 Response AddHeader "cache ctrol" "no cache"　　　 dim zNum i j　　　 dim Ados Ados 　　　 Randomize timer　　　 zNum = cint( *Rnd+ )　　　 Session("GetCode") = zNum　　　 dim zimg( ) NStr　　　　　　　 NStr=cstr(zNum)　　　　　　　 For i= to 　　　　　　　　　　　 zimg(i)=cint(mid(NStr i+ ))　　　　　　　 Next　　　 dim Pos　　　 set Ados=Server CreateObject("Adodb Stream")　　　　　　　 Ados Mode= 　　　　　　　 Ados Type= 　　　　　　　 Ados Open　　　 set Ados =Server CreateObject("Adodb Stream")　　　　　　　 Ados Mode= 　　　　　　　 Ados Type= 　　　　　　　 Ados Open　　　　　　　 Ados LoadFromFile(Server mappath("body Fix"))　　　　　　　 Ados write Ados read( )　　　　　　　 for i= to 　　　　　　　　　　　 Ados Position=( zimg(i))* 　　　　　　　　　　　 Ados Position=i* 　　　　　　　　　　　 Ados write ados read( )　　　　　　　 next　　　　　　　　　　　 Ados LoadFromFile(Server mappath("head fix"))　　　　　　　 Pos=lenb(Ados read())　　　　　　　 Ados Position=Pos　　　　　　　 for i= to step 　　　　　　　　　　　 for j= to 　　　　　　　　　　　　　　　 Ados Position=i* +j* 　　　　　　　　　　　　　　　 Ados Position=Pos+ *j+i* 　　　　　　　　　　　　　　　 Ados write ados read( )　　　　　　　　　　　 next　　　　　　　 next　　　　　　　 Response ContentType = "image/BMP"　　　　　　　 Ados Position= 　　　　　　　 Response BinaryWrite Ados read()　　　　　　　 Ados Close:set Ados=nothing　　　　　　　 Ados Close:set Ados =nothingEnd Function Asp code Created by BlueIdea Web Team V %>

　　代码解释:

　　Response buffer=true NumCode Function NumCode() 　 Response Expires = 　 Response AddHeader "Pragma" "no cache" 　 Response AddHeader "cache ctrol" "no cache" 　 dim zNum i j 　 dim Ados Ados 　 Randomize timer

　　生成随机四位数字

　　zNum = cint( *Rnd+ )

　　传递给session

　　Session("GetCode") = zNum

　　该for循环是将随机数字放入一个下标的数组便于提供给后面的阵列变换

　　dim zimg( ) NStr 　　　 NStr=cstr(zNum) 　　　 For i= to 　　　　　 zimg(i)=cint(mid(NStr i+ )) 　　　 Next 　 dim Pos

　　定义二个 ADODB Stream binary对象作图像数据操作之用:

　　set Ados=Server CreateObject("Adodb Stream") 　　　 Ados Mode= 　　　 Ados Type= 　　　 Ados Open 　 set Ados =Server CreateObject("Adodb Stream") 　　　 Ados Mode= 　　　 Ados Type= 　　　 Ados Open

　　载入 ~ 的数字数据 x 的 Gbr的阵列数据每个字节个数字 byte

　　 BGR一个点 x 个点一个数字一个点三个字节(二进制位进制 ~FF)

　　一行个点字节 + 行结束标记二字节字节所以一个 x 宽小于长的图像每个数字 x 是字节

　　长大于宽的则无行结束标记直接是字节

　　这些就是BMP bit的数据详细信息了

　　‘至于头部也很简单包含长宽图像开始标记等等~~才字节远没jpg什么的复杂

　　Ados LoadFromFile(Server mappath("body Fix"))　 Ados write Ados read( )

　　第一个for循环按生成的随机数字顺序从 X 的数字阵列中提取出相应的四个数字

　　但是竖排的数字阵列

　　for i= to 　　Ados Position=( zimg(i))* 　　Ados Position=i* 　　Ados write ados read( ) next

　　清空已经用完的ADOS的数据调入替换新的图像头字节的头文件　

　　Ados LoadFromFile(Server mappath("head fix")) Pos=lenb(Ados read()) Ados Position=Pos

　　指定Pos位置即可再偏移字节的位置添加图形数据

　　第二个for循环进行数字的阵列变换由竖排的块转换为横排的数字块

　　方法是隔字节抽取次字节写入ados对象再抽取偏移第二行的图像数据

　　字节是因为bmp 宽大于长时无的行结束标记

cha138/Article/program/net/201311/14069