您的位置: 首页 > 技术文档 > 网络编程 > 无组件生成验证码
ObjectDataSourc控件 回到列表 谈PHP生成静态页面
 无组件生成验证码

作者:Layen 时间: 2006-03-23 文档类型:原创 来自:蓝色理想

第 1 页 无组件生成验证码-GIF格式
第 2 页 无组件生成验证码-BMP格式

Call Com_CreatValidCode("ValidCode")

Sub Com_CreatValidCode(pSN)

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

 

     ' 禁止缓存
     Response.Expires = -9999
     Response.AddHeader "Pragma","no-cache"
     Response.AddHeader "cache-ctrol","no-cache"
     Response.ContentType = "Image/BMP"

     Randomize

     Dim i, ii, iii

     Const cOdds = 8 ' 杂点出现的机率
     Const cAmount = 36 ' 文字数量
     Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

     ' 颜色的数据(字符,背景)
     Dim vColorData(1)
     vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)  ' 蓝0,绿0,红0(黑色)
     vColorData(1) = ChrB(250) & ChrB(236) & ChrB(211) ' 蓝250,绿236,红211(浅蓝色)

     ' 随机产生字符
     Dim vCode(4), vCodes
     For i = 0 To 3
           vCode(i) = Int(Rnd * cAmount)
           vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)
     Next

     Session(pSN) = vCodes  '记录入Session

     ' 字符的数据
     Dim vNumberData(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.BinaryWrite ChrB(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.BinaryWrite ChrB(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)

     For i = 9 To 0 Step -1  ' 历经所有行
           For ii = 0 To 3  ' 历经所有字
                 For iii = 1 To 10 ' 历经所有像素
                 ' 逐行、逐字、逐像素地输出图像数据
                       If Rnd * 99 + 1 < cOdds Then ' 随机生成杂点
                             Response.BinaryWrite vColorData(0)
                       Else
                             Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
                       End If
                 Next
           Next
     Next
End Sub

出处:蓝色理想
责任编辑:moby

上一页 无组件生成验证码-GIF格式 下一页

◎进入论坛网络编程版块参加讨论

相关文章 更多相关链接
[asp]怎么添加验证码的解决方法
在Adobe Illustrator中让荷香四溢
loadr - Flash 载入条生成器
像素图GIF动画制作
GIF专利失效时 PNG格式正寝时?
关键字搜索 常规搜索 推荐文档
热门搜索:CSS Fireworks 设计比赛 网页制作 web标准 用户体验 UE photoshop Dreamweaver Studio8 Flash 手绘 CG
站点最新 站点最新列表
周大福“敬•自然”设计大赛开启
国际体验设计大会7月将在京举行
中国国防科技信息中心标志征集
云计算如何让安全问题可控
云计算是多数企业唯一拥抱互联网的机会
阿里行云
云手机年终巨献,送礼标配299起
阿里巴巴CTO王坚的"云和互联网观"
1499元买真八核 云OS双蛋大促
首届COCO桌面手机主题设计大赛
栏目最新 栏目最新列表
浅谈JavaScript编程语言的编码规范
如何在illustrator中绘制台历
Ps简单绘制一个可爱的铅笔图标
数据同步算法研究
用ps作简单的作品展示页面
CSS定位机制之一:普通流
25个最佳最闪亮的Eclipse开发项目
Illustrator中制作针线缝制文字效果
Photoshop制作印刷凹凸字体
VS2010中创建自定义SQL Rule
>> 分页 首页 前页 后页 尾页 页次:2/21个记录/页 转到 页 共2个记录

蓝色理想版权申明:除部分特别声明不要转载,或者授权我站独家播发的文章外,大家可以自由转载我站点的原创文章,但原作者和来自我站的链接必须保留(非我站原创的,按照原来自一节,自行链接)。文章版权归我站和作者共有。

转载要求:转载之图片、文件,链接请不要盗链到本站,且不准打上各自站点的水印,亦不能抹去我站点水印。

特别注意:本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有,文章若有侵犯作者版权,请与我们联系,我们将立即删除修改。

您的评论
用户名:  口令:
说明:输入正确的用户名和密码才能参与评论。如果您不是本站会员,你可以注册 为本站会员。
注意:文章中的链接、内容等需要修改的错误,请用报告错误,以利文档及时修改。
不评分 1 2 3 4 5
注意:请不要在评论中含与内容无关的广告链接,违者封ID
请您注意:
·不良评论请用报告管理员,以利管理员及时删除。
·尊重网上道德,遵守中华人民共和国的各项有关法律法规
·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
·本站评论管理人员有权保留或删除其管辖评论中的任意内容
·您在本站发表的作品,本站有权在网站内转载或引用
·参与本评论即表明您已经阅读并接受上述条款
推荐文档 | 打印文档 | 评论文档 | 报告错误  
专业书推荐 更多内容
网站可用性测试及优化指南
《写给大家看的色彩书1》
《跟我去香港》
众妙之门—网站UI 设计之道
《Flex 4.0 RIA开发宝典》
《赢在设计》
犀利开发—jQuery内核详解与实践
作品集 更多内容

杂⑦杂⑧ Gold NORMANA V2