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<cOddsThen'隨機生成雜點
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; ">

以上所述就是本文的全部內容了，希望大家能夠喜歡。