Home>Network programming tutorial>ASP tutorial

Asp implements verification code with refresh function

Author：Eve Cole Update Time：2025-03-14 14:48:02

This article will share with you a verification code function implemented using Asp, and it is refreshed. The code is very concise and practical. Friends in need can refer to it.

Put the following code on a separate page checkcode.asp

  1. <%
  2. OptionExplicit
  3. Response.buffer=true
  4. CallCom_CreatValidCode(validateCode)
  6. SubCom_CreatValidCode(pSN)
  7. 'No caching
  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'The probability of miscellaneous spots appearing
  18. ConstcAmount=10'Number of text
  19. ConstcCode=0123456789
  21. 'Color data (characters, background)
  22. DimvColorData(1)
  23. vColorData(0)=ChrB(0)&ChrB(0)&ChrB(211)'Blue 0, green 0, red 0 (black)
  24. vColorData(1)=ChrB(255)&ChrB(255)&ChrB(255)'Blue 250, green 236, red 211 (light blue)
  26. 'Randomly generated characters
  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' record into Session
  33. 'character data
  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. 'Output image file header
  86. Response.BinaryWriteChrB(66)&ChrB(77)&ChrB(230)&ChrB(4)&ChrB(0)&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)&ChrB(0)&_
  91. ChrB(0)&ChrB(0)&ChrB(1)&ChrB(0)
  93. 'Output image information header
  94. Response.BinaryWriteChrB(24)&ChrB(0)&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)&ChrB(0)&ChrB(0)&_
  99. ChrB(0)&ChrB(0)
  101. Fori=9To0Step-1' has gone through all the lines
  102. Forii=0To3' has passed all words
  103. Foriii=1To10' has passed all pixels
  104. 'Output image data line by line, word by word, pixel by pixel
  105. IfRnd*99+1<cOddsThen' Randomly generates miscellaneous points
  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. %>

The pages you need to use are quoted in the following way:

Verification code: src=checkcode.asp cellpadding="0" cellpacing="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; ">

The above is the entire content of this article, I hope you like it.

Related Articles