asp实现带刷新功能的验证码代码

本文给大家分享的是一段使用asp实现的验证码功能，而且是带刷新的，代码非常简洁，非常实用，有需要的小伙伴可以参考下。

将以下代码放到一个单独的页面checkcode.asp

1. <%
2. OptionExplicit
3. Response.buffer=true
4. CallCom_CreatValidCode(validateCode)
6. SubCom_CreatValidCode(pSN)
7. '禁止缓存
8. Response.Expires=-9999
9. Response.AddHeaderPragma,no-cache
10. Response.AddHeadercache-ctrol,no-cache
11. Response.ContentType=Image/BMP
13. Randomize
15. Dimi,ii,iii
17. ConstcOdds=2'杂点出现的机率
18. ConstcAmount=10'文字数量
19. ConstcCode=0123456789
21. '颜色的数据(字符，背景)
22. DimvColorData(1)
23. vColorData(0)=ChrB(0)&ChrB(0)&ChrB(211)'蓝0，绿0，红0（黑色）
24. vColorData(1)=ChrB(255)&ChrB(255)&ChrB(255)'蓝250，绿236，红211（浅蓝色）
26. '随机产生字符
27. DimvCode(4),vCodes
28. Fori=0To3
29. vCode(i)=Int(Rnd*cAmount)
30. vCodes=vCodes&Mid(cCode,vCode(i)+1,1)
31. Next
32. Session(pSN)=vCodes'记录入Session
33. '字符的数据
34. DimvNumberData(9)
35. vNumberData(0)=
37. 1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111
39. 110000111
40. vNumberData(1)=
42. 1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111
44. 100000111
45. vNumberData(2)=
47. 1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111
49. 100000011
50. vNumberData(3)=
52. 1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111
54. 110000111
55. vNumberData(4)=
57. 1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111
59. 111000011
60. vNumberData(5)=
62. 1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111
64. 110000111
65. vNumberData(6)=
67. 1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111
69. 110000111
70. vNumberData(7)=
72. 1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111
74. 111011111
75. vNumberData(8)=
77. 1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111
79. 110000111
80. vNumberData(9)=
82. 1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111
84. 110001111
85. '输出图像文件头
86. Response.BinaryWriteChrB(66)&ChrB(77)&ChrB(230)&ChrB(4)&ChrB(0)&ChrB(0)&ChrB(0)
88. &ChrB(0)&_
89. ChrB(0)&ChrB(0)&ChrB(54)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(40)&ChrB(0)&_
90. ChrB(0)&ChrB(0)&ChrB(40)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(10)&ChrB(0)&_
91. ChrB(0)&ChrB(0)&ChrB(1)&ChrB(0)
93. '输出图像信息头
94. Response.BinaryWriteChrB(24)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(176)
96. &ChrB(4)&_
97. ChrB(0)&ChrB(0)&ChrB(18)&ChrB(11)&ChrB(0)&ChrB(0)&ChrB(18)&ChrB(11)&_
98. ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&_
99. ChrB(0)&ChrB(0)
101. Fori=9To0Step-1'历经所有行
102. Forii=0To3'历经所有字
103. Foriii=1To10'历经所有像素
104. '逐行、逐字、逐像素地输出图像数据
105. IfRnd*99+1
106. Response.BinaryWritevColorData(0)
107. Else
108. Response.BinaryWritevColorData(Mid(vNumberData(vCode(ii)),i*10+iii,1))
109. EndIf
110. Next
111. Next
112. Next
113. EndSub
114. %>

需要用得页面用如下方式引用：

验证码： src=checkcode.asp cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-spacing: 0px; width: 780px; clear: both; padding: 0px !important; margin: 0px !important; font-size: 1em !important; border-top-left-radius: 0px !important; border-top-right-radius: 0px !important; border-bottom-right-radius: 0px !important; border-bottom-left-radius: 0px !important; background-image: none !important; border: 0px !important; bottom: auto !important; float: none !important; height: auto !important; left: auto !important; line-height: 1.1em !important; outline: 0px !important; overflow: visible !important; position: static !important; right: auto !important; top: auto !important; vertical-align: baseline !important; box-sizing: content-box !important; font-family: Consolas, 'Bitstream Vera Sans Mono', 'Courier New', Courier, monospace !important; min-height: inherit !important;">

以上所述就是本文的全部内容了，希望大家能够喜欢。