电脑技术吧

会员投稿 会员登录 会员注册 网站公告:
搜索: 您现在的位置主页 > 网站开发 > ASP亚博ios下载地址 > ASP技巧 > 正文

一个ASP验证码程序

作者:admin    文章来源:互联网 电脑技术吧     点击数:    更新时间:2011-09-27
收藏】 【挑错】 【推荐】 【打印

<%
Call Com_CreatValidCode("ValidCode")
Sub Com_CreatValidCode(pSN)
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 = 10 ''文字数量
Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
''颜色的数据(字符,背景)
Dim vColorData(1) 
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(255) ''蓝0,绿0,红0(黑色)
vColorData(1) = ChrB(235) & ChrB(235) & ChrB(235) ''蓝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

内容来自dedecms

''字符的数据
Dim vNumberData(35)
vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111" 
vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011" 
vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
vNumberData(6) = "11110001111110111 copyright dedecms

[5] 内容来自dedecms

Tags:asp亚博ios下载地址  
责任编辑:admin
发表评论 请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
用户名:密码:新注册
评论总数: [ 查看全部 ] 网友评论
关于我们 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 在线帮助