会员互动|教程学习|问题求助|作品交流|图图市场|图片素材|素材下载|贴图版块|休闲娱乐|站务大厅
炫舞挂→www.1010au.com 炫舞aa挂 DNF解封器免费版 QQ空间克隆 www.qqai.net QQ好友印象 www.mmggqq.com
快播电影,你懂的→www.afddy.com dnf双开→www.qqwgw.com 好听的网名www.qqhaoting.com 洛克王国辅助→www.ucbug.com
网页游戏 www.36011.com →www.cfjfq.com 2012最新电影→www.xwdy.com haosf www.haosf-1.com
DNF连发程序下载 www.dnfaa.com sf123→www.sf123-1.com 炫舞挂 西西炫舞挂→qqxuanwuwg.com 炫舞挂 洛克王国辅助
虹桥影院→www.hqq8.com 西西游戏网→www.wgtt.net 数码相机排行榜 www.55sos.com 我本沉默→www.555678.net
3000ok→www.3000ok.com.cn DNF双开→www.97xqw.com DNF连发程序下载 www.dnflianfa.org qq堂4.3全能挂下载→www.nksi.cn
CF解封器免费版→www.shuacf.com 我本沉默→www.zhaodd.com 嘟嘟传奇→www.sf195.com cf透视 炫舞挂-www.92wg.com
上一主题下一主题
[网页素材] ASP图片验证码类
浏览器收藏 ┊ 使用道具┊ 复制链接 ┊打印
UID:12090514
越兔
[资料] [短信] [引用] [举报] [倒序阅读] [只看楼主]
小 中 大

ASP图片验证码类
本贴由: 中华图网 会员: 越兔 发表于: 2008-09-12 11:24  共5113人围观  [收藏本贴到：QQ书签 | 百度收藏夹]
ASP图片验证码类 由 越兔 发表于中华图网，未经本人许可请勿随便转载!
转个我佛山人的图片验证码类
以下内容保存为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. %>
本帖被 淡如清风 从 网页设计交流 移动到本区(2010-04-08)
[楼主]  越兔 发表于:2008-09-12 11:24 [快速引用]
顶端
UID:12287296
picimg
[资料] [短信] [引用] [举报] [只看该作者]
小 中 大
多谢楼主，昨天有人还问我这个问题呢。
这家伙很懒，什么都没有留下。(设置个性签名可以到控制面板设置)
[沙发]  picimg 发表于:2008-09-13 16:12 [快速引用]
顶端
上一主题下一主题
 中华图网 » 电脑软件下载 » ASP图片验证码类 版块权限查看
描述
快速回复
常用文字表情　 O(∩_∩)O
^_^ 　 ╯_╰ 　 *^﹏^*
>__< 　 =__= 　 ⊙﹏⊙
@_@ 　 -__-||| 　 OTL
╰_ ╯ 　 -_-凸 　 〒_〒
验证问题:
请输入本网站的正确名称 正确答案:中华图网
 回复后跳转到最后一页(不打勾为AJAX快速回复,不重新加载页面,回复更快)
按"Ctrl+Enter"直接提交
上一个 下一个
      [更改默认表情]