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 = 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
伊图教程网[www.etoow.com]
http://www.etoow.com/html/2008-02/1203139608.html
For i = 0 To 3
无组件生成BMP验证码
'http://www.etoow.com/html/2008-02/1203139608.html