用户名 UID 密 码 记住 注册会员| 找回密码
社区服务 社区应用 统计排行 银行 勋章 道具
最新活动(5)|会员互动|教程学习|互帮互助|作品交流|图图市场|图片素材|素材下载|贴图版块|休闲娱乐|交易大厅|站务大厅
非主流QQ头像_QQ闪动头像 缤纷美图! 欧美清晰图片素材 QQ个性签名
上一主题下一主题
[素材] ASP图片验证码类
浏览器收藏 ┊ 使用道具┊ 复制链接 ┊打印
UID:12090514
越兔
[资料] [短信] [引用] [举报] [倒序阅读] [只看楼主]
小 中 大

ASP图片验证码类
本贴由: 中华图网 会员: 越兔 发表于: 2008-09-12 11:24 阅读: 3434 次   [收藏本贴到：QQ书签 | 百度收藏夹]
转个我佛山人的图片验证码类
以下内容保存为ASP即可。
运行时调用地址指向这个ASP文件即可。
即img.src = 这个asp的地址
复制代码
  1. <%
  2. 'ValidCode 图片验证码类
  3. '我佛山人@2005.8.23
  4. Option Explicit
  5. Response.Buffer = true
  6. Class ValidCode
  7.     Private PNoise
  8.     Private PBgColor
  9.     Private PLength
  10.     Private charSet
  11.     Private charSetCount
  13.     '噪点
  14.     Public Property Let Noise(ByVal Value)
  15.         If IsNumeric(Value) Then
  16.             PNoise = CInt(Value) Mod 100
  17.         End If
  18.     End Property
  19.     Public Property Get Noise()
  20.         Noise = PNoise
  21.     End Property
  23.     '背景颜色
  24.     Public Property Let BgColor(ByVal Value)
  25.         PBgColor = Value
  26.     End Property
  27.     Public Property Get BgColor()
  28.         BgColor = PBgColor
  29.     End Property
  31.     '验证码长度
  32.     Public Property Let Length(ByVal Value)
  33.         PLength = Value
  34.         If PLength < 2 Then PLength = 2
  35.     End Property
  36.     Public Property Get Length()
  37.         Length = PLength
  38.     End Property
  40.     Private Sub Class_Initialize()
  41.         charSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  42.         charSetCount = Len(charSet)
  43.         Noise = 6
  44.         Length = 4
  45.         BgColor = ChrB(250) & ChrB(250) & ChrB(240)
  46.     End Sub    
  47.     Private Sub Class_Terminate()
  48.     End Sub
  50.     Public Sub Generate(sessionName)
  51.         ' 字符数据
  52.         Dim numberSet(35)
  53.         numberSet(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
  54.         numberSet(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
  55.         numberSet(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
  56.         numberSet(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"
  57.         numberSet(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"
  58.         numberSet(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
  59.         numberSet(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"
  60.         numberSet(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
  61.         numberSet(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"
  62.         numberSet(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
  63.         numberSet(10) = "1111111111111100111111110011111110110111111011011111000000111101111011110111101111011110111000110001"
  64.         numberSet(11) = "0000001111100111011110011110111001111011100000011110011110111001111101100111101110011101110000001111"
  65.         numberSet(12) = "1111000010111011110011011111101011111110101111111110111111111011111110110111111011101111001111000010"
  66.         numberSet(13) = "0000001111100111011110011110111001111101100111110110011111011001111101100111101110011101110000001111"
  67.         numberSet(14) = "0000000011100111110110011111111001111011100000001110011110111001111111100111111110011111100000000001"
  68.         numberSet(15) = "0000000011100111110110011111111001111011100000001110011110111001111111100111111110011111110001111111"
  69.         numberSet(16) = "1111000010111011110011011111101011111110101111111110110000001011111100110111110011101111001111000010"
  70.         numberSet(17) = "0000110000100111100110011110011001111001100000000110011110011001111001100111100110011110010000110000"
  71.         numberSet(18) = "1100000011111100111111110011111111001111111100111111110011111111001111111100111111110011111100000011"
  72.         numberSet(19) = "1100000011111100111111110011111111001111111100111111110011111111001111110100111110010011111100011111"
  73.         numberSet(20) = "1000010001110011101111001101111100101111110000111111001101111100110111110011101111001110111000010001"
  74.         numberSet(21) = "1000011111110011111111001111111100111111110011111111001111111100111111110011111111001110111000000011"
  75.         numberSet(22) = "0000110000100111100110011100011010110001101011000110101100011010101001101100100110110110010001010000"
  76.         numberSet(23) = "0001111000100011110110001111011000011101101000110110110001011011100101101110000110111100010001111001"
  77.         numberSet(24) = "1111001111110011001110111111010011111100001111110000111111000011111100101111110111001100111111001111"
  78.         numberSet(25) = "0000001111100111011110011100111001110011100111001110011101111000001111100111111110011111110000111111"
  79.         numberSet(26) = "1110000111110011001110011110011001111001100111100110011110011001111001100110000111001100111110000001"
  80.         numberSet(27) = "1000000011100111100110011110011001111001100111100110000000111001111001100111100110011110011001111101"
  81.         numberSet(28) = "1110000011110011100111001110011100111111111000111111110001111111110011110011100111001110011110000011"
  82.         numberSet(29) = "1000000001111100111111110011111111001111111100111111110011111111001111111100111111110011111110000111"
  83.         numberSet(30) = "1001111001100111100110011110011001111001100111100110011110011001111001100111100111001100111110000111"
  84.         numberSet(31) = "1001111001100111100111001100111100110011110011001111101101111110000111111000011111110011111111001111"
  85.         numberSet(32) = "0111111110011101111001110111101010101101101010110110101011011010110101110111001111011110111101111011"
  86.         numberSet(33) = "1001111001100111100111001100111110000111111000011111100001111110000111110011001110011110011001111001"
  87.         numberSet(34) = "0000110000100111100111001100111110000111111000011111110011111111001111111100111111110011111110000111"
  88.         numberSet(35) = "1000000000111111110011111110011110110011111100011111110011111110010111110011111110011111111000000000"
  90.         ' 颜色数据
  91.         Randomize
  92.         Dim i, ii, iii
  93.         Dim colorSet : colorSet = Split(Space(Length - 1), " ")
  94.         For i = 0 To Length - 1
  95.             colorSet(i) = RandomColor()
  96.         Next
  97.         
  98.         ' 随机字符    
  99.         Dim codes, code : code = Split(Space(Length - 1), " ")
  100.         For i = 0 To Length - 1
  101.             code(i) = Int(Rnd * charSetCount)
  102.             codes = codes & Mid(charSet, code(i) + 1, 1)
  103.         Next
  104.         Session(sessionName) = UCase(codes)  '记录Session
  106.         With Response
  107.             .Expires = -1
  108.             .ExpiresAbsolute = Now - 1
  109.             .AddHeader "Pragma","no-cache"
  110.             .AddHeader "cache-ctrol","no-cache"
  111.             .CacheControl = "no-cache"
  112.             .ContentType = "Image/BMP"
  114.             'dword对齐处理 by V37
  115.             Dim byteCount,BytePatch
  116.             byteCount=((Length*10*3) mod 4)
  117.             If byteCount>0 Then
  118.                 byteCount= 4 - ((Length*10*3) Mod 4)
  119.                 For i=1 To byteCount : BytePatch = BytePatch & chrB(00) : Next
  120.             End If
  122.             '处理文件尺寸和图像数据信息
  123.             Dim datalength, filelength, fsize, datasize, schar, scharlen
  124.                 datasize  = (Length*10*3+byteCount) * 10 + 2
  125.                 fsize  = datasize+54
  126.                 schar = CStr(Hex(datasize))
  127.                 schar = String(8 - Len(schar), "0") & schar
  128.             For i=7 To 1 Step -2
  129.                 datalength = datalength & ChrB("&H" & Mid(schar,i,2)) '文件尺寸
  130.             Next
  131.                 schar = CStr(Hex(fsize))
  132.                 schar = String(8 - Len(schar), "0") & schar
  133.             For i=7 To 1 Step -2
  134.                 filelength = filelength & ChrB("&H" & Mid(schar,i,2)) '图像数据尺寸
  135.             Next
  136.         
  137.             '图像文件头
  138.             .BinaryWrite _
  139.                 ChrB(66) & ChrB(77) & _
  140.                 filelength & _
  141.                 ChrB(0)   & ChrB(0) & _
  142.                 ChrB(0)  & ChrB(0)  & ChrB(54)  & ChrB(0) & _
  143.                 ChrB(0)  & ChrB(0)  & ChrB(40)  & ChrB(0) & _
  144.                 ChrB(0)  & ChrB(0)  & ChrB(10 * Length) & ChrB(0) & _
  145.                 ChrB(0)  & ChrB(0)  & ChrB(10)  & ChrB(0) & _
  146.                 ChrB(0)  & ChrB(0)  & ChrB(1)   & ChrB(0)
  147.             
  148.             ' 图像信息头
  149.             .BinaryWrite _
  150.                 ChrB(24) & ChrB(0) & ChrB(0)   & ChrB(0) & ChrB(0)  & ChrB(0) & _
  151.                 datalength & _
  152.                 ChrB(18)  & ChrB(11) & ChrB(0)  & ChrB(0) & _
  153.                 ChrB(18)  & ChrB(11) & ChrB(0)  & ChrB(0) & _
  154.                 ChrB(0)   & ChrB(0) & ChrB(0)  & ChrB(0) & ChrB(0) & _
  155.                 ChrB(0) & ChrB(0) & ChrB(0)
  156.             
  157.             For i = 9 To 0 Step -1  '行
  158.                 For ii = 0 To Length - 1  ' 字
  159.                     For iii = 1 To 10 ' 列
  160.                         If Rnd * 99 + 1 < Noise Then ' 杂点
  161.                             .BinaryWrite RandomColor()
  162.                         Else
  163.                             If Mid(numberSet(code(ii)), i * 10 + iii, 1) = "1" Then
  164.                                 .BinaryWrite BgColor
  165.                             Else
  166.                                 .BinaryWrite colorSet(ii)
  167.                             End If
  168.                         End If
  169.                     Next
  170.                 Next
  171.                 If byteCount>0 Then .BinaryWrite BytePatch
  172.             Next
  173.         End With
  174.     End Sub
  176.     Private Function RandomColor()
  177.         RandomColor = ChrB(Rnd * 150 + 50) & ChrB(Rnd * 200 + 20) & ChrB(Rnd * 150 + 50)
  179.     End Function
  180. End Class
  182. Dim VCode : Set VCode = New ValidCode
  183. VCode.BgColor = ChrB(255) & ChrB(255) & ChrB(255)
  184. VCode.Noise = 5 + Rnd(3)
  185. VCode.Length = 4
  186. VCode.Generate("GetCode")
  187. Set VCode = Nothing
  188. %>
ASP图片验证码类 由 越兔 发表于中华图网，未经本人许可请勿随便转载!
 楼主最新5个主题
[楼主] 越兔 发表于:2008-09-12 11:24 [快速引用]
顶端
UID:12287296
picimg
[资料] [短信] [引用] [举报] [只看该作者]
小 中 大
多谢楼主，昨天有人还问我这个问题呢。
该用户目前未设置个性签名故显示默认签名(20贴以上可以到控制面板设置签名)
欢迎来到中华图网——请记住我们的网址:www.cntuw.com
photoshop视频教程：http://www.cntuw.com/photoshop
论坛使用帮助：http://www.cntuw.com/topic_11144.html
制图问题求助：http://www.cntuw.com/forum_64.html
做图软件下载：http://www.cntuw.com/soft/down/index.html
做图教程大全：http://www.cntuw.com/forum_130.html
做图素材大全：http://www.cntuw.com/forum_5.html
图网QQ群列表：http://www.cntuw.com/topic_229367.html
经典txt小说下载：http://www.yourtxt.cn
[沙发] picimg 发表于:2008-09-13 16:12 [快速引用]
顶端
上一主题下一主题
 中华图网 » 网页设计交流 » ASP图片验证码类 版块权限查看
描述
快速回复
常用文字表情　 O(∩_∩)O
^_^ 　 ╯_╰ 　 *^﹏^*
>__< 　 =__= 　 ⊙﹏⊙
@_@ 　 -__-||| 　 OTL
╰_ ╯ 　 -_-凸 　 〒_〒
验证问题:
本网站叫什么名字？（请输入中华图网） 正确答案:中华图网
按"Ctrl+Enter"直接提交
上一个 下一个
      [更改默认表情]