首页 相关文章 无组件生成BMP验证码

无组件生成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) & Ch...[ 查看全文 ]

2016-01-29 标签:

无组件生成BMP验证码的相关文章

手机页面
收藏网站 回到头部