发送文章__当百网

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业教学学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

发送文章

无组件生成验证码-BMP格式

〖评论()〗〖留言〗〖收藏〗

收信地址

填写收信人的电子邮箱

邮件主题

填写邮件主题

邮件内容

无组件生成验证码-BMP格式

来自：蓝色理想
%
CallCom_CreatValidCode(ValidCode)

SubCom_CreatValidCode(pSN)

’Author:Layen
’QQ:84815733
’E-mail:support@ssaw.net



’禁止缓存
Response.Expires=-9999
Response.AddHeaderPragma,no-cache
Response.AddHeadercache-ctrol,no-cache
Response.ContentType=Image/BMP

Randomize

Dimi,ii,iii

ConstcOdds=8’杂点出现的机率
ConstcAmount=36’文字数量
ConstcCode=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ

’颜色的数据(字符，背景)
DimvColorData(1)
vColorData(0)=ChrB(0)ChrB(0)ChrB(0)’蓝0，绿0，红0（黑色）
vColorData(1)=ChrB(250)ChrB(236)ChrB(211)’蓝250，绿236，红211（浅蓝色）

’随机产生字符
DimvCode(4),vCodes
Fori=0To3
vCode(i)=Int(Rnd*cAmount)
vCodes=vCodesMid(cCode,vCode(i)+1,1)
Next

Session(pSN)=vCodes’记录入Session

’字符的数据
DimvNumberData(35)
vNumberData(0)=1110000111110111101111011110111101001011110100101111
010010111101001011110111101111011110111110000111
vNumberData(1)=1111011111110001111111110111111111011111111101111111
110111111111011111111101111111110111111100000111
vNumberData(2)=1110000111110111101111011110111111111011111111011111
111011111111011111111011111111011110111100000011
vNumberData(3)=1110000111110111101111011110111111110111111100111111
111101111111111011110111101111011110111110000111
vNumberData(4)=1111101111111110111111110011111110101111110110111111
011011111100000011111110111111111011111111000011
vNumberData(5)=1100000011110111111111011111111101000111110011101111
111110111111111011110111101111011110111110000111
vNumberData(6)=1111000111111011101111011111111101111111110100011111
001110111101111011110111101111011110111110000111
vNumberData(7)=1100000011110111011111011101111111101111111110111111
110111111111011111111101111111110111111111011111
vNumberData(8)=1110000111110111101111011110111101111011111000011111
101101111101111011110111101111011110111110000111
vNumberData(9)=1110001111110111011111011110111101111011110111001111
100010111111111011111111101111011101111110001111
vNumberData(10)=1111011111111101111111101011111110101111111010111111
101011111100000111110111011111011101111000100011
vNumberData(11)=1000000111110111101111011110111101110111110000111111
011101111101111011110111101111011110111000000111
vNumberData(12)=1110000011110111101110111110111011111111101111111110
111111111011111111101111101111011101111110001111
vNumberData(13)=10000011111101110111110111101111011110111101111011110
11110111101111011110111101111011101111000001111
vNumberData(14)=10000001111101111011110110111111011011111100001111110
11011111101101111110111111111011110111000000111
vNumberData(15)=10000001111101111011110110111111011011111100001111110
11011111101101111110111111111011111111000111111
vNumberData(16)=11100001111101110111101111011110111111111011111111101
11111111011100011101111011111011101111110001111
vNumberData(17)=10001000111101110111110111011111011101111100000111110
11101111101110111110111011111011101111000100011
vNumberData(18)=11000001111111011111111101111111110111111111011111111
10111111111011111111101111111110111111100000111
vNumberData(19)=11100000111111101111111110111111111011111111101111111
11011111111101111111110111110111011111000011111
vNumberData(20)=10001000111101110111110110111111010111111100011111110
10111111101101111110110111111011101111000100011
vNumberData(21)=10001111111101111111110111111111011111111101111111110
11111111101111111110111111111011110111000000011
vNumberData(22)=10001000111100100111110010011111001001111101010111110
10101111101010111110101011111010101111001010011
vNumberData(23)=10001000111100110111110011011111010101111101010111110
10101111101100111110110011111011001111000110111
vNumberData(24)=11100011111101110111101111101110111110111011111011101
11110111011111011101111101111011101111110001111
vNumberData(25)=10000001111101111011110111101111011110111100000111110
11111111101111111110111111111011111111000111111
vNumberData(26)=11100011111101110111101111101110111110111011111011101
11110111011111011101001101111011001111110001011
vNumberData(27)=10000011111101110111110111011111011101111100001111110
10111111101101111110110111111011101111000110011
vNumberData(28)=11100000111101111011110111101111011111111110011111111
11001111111111011110111101111011110111100000111
vNumberData(29)=10000000111011011011111101111111110111111111011111111
10111111111011111111101111111110111111110001111
vNumberData(30)=10001000111101110111110111011111011101111101110111110
11101111101110111110111011111011101111110001111
vNumberData(31)=10001000111101110111110111011111011101111110101111111
01011111110101111111010111111110111111111011111
vNumberData(32)=10010100111101010111110101011111010101111101010111110
01001111110101111111010111111101011111110101111
vNumberData(33)=10001000111101110111111010111111101011111111011111111
10111111110101111111010111111011101111000100011
vNumberData(34)=10001000111101110111110111011111101011111110101111111
10111111111011111111101111111110111111110001111
vNumberData(35)=11000000111101110111111111011111111011111111101111111
10111111111011111111011111111101110111100000011

’输出图像文件头
Response.BinaryWriteChrB(66)ChrB(77)ChrB(230)ChrB(4)ChrB(0)ChrB(0)ChrB(0)ChrB(0)_
ChrB(0)ChrB(0)ChrB(54)ChrB(0)ChrB(0)ChrB(0)ChrB(40)ChrB(0)_
ChrB(0)ChrB(0)ChrB(40)ChrB(0)ChrB(0)ChrB(0)ChrB(10)ChrB(0)_
ChrB(0)ChrB(0)ChrB(1)ChrB(0)

’输出图像信息头
Response.BinaryWriteChrB(24)ChrB(0)ChrB(0)ChrB(0)ChrB(0)ChrB(0)ChrB(176)ChrB(4)_
ChrB(0)ChrB(0)ChrB(18)ChrB(11)ChrB(0)ChrB(0)ChrB(18)ChrB(11)_
ChrB(0)ChrB(0)ChrB(0)ChrB(0)ChrB(0)ChrB(0)ChrB(0)ChrB(0)_
ChrB(0)ChrB(0)

Fori=9To0Step-1’历经所有行
Forii=0To3’历经所有字
Foriii=1To10’历经所有像素
’逐行、逐字、逐像素地输出图像数据
IfRnd*99+1cOddsThen’随机生成杂点
Response.BinaryWritevColorData(0)
Else
Response.BinaryWritevColorData(Mid(vNumberData(vCode(ii)),i*10+iii,1))
EndIf
Next
Next
Next
EndSub

%
保存成ASP文件即可看见效果!<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10000996" target="_blank">https://dangbai.cn/Article.asp?ID=10000996</a>

填写邮件内容

发信地址

填写发信人的电子邮箱

邮件签名

填写邮件签名

验证码

填写验证码，单击刷新验证码

发送协议

·欢迎使用本站在线文章发送系统。
·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。
·如果收信人地址或其服务器出现错误，可能无法成功发送。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗