Главная страница>Учебник по сетевому программированию>Учебное пособие по ASP

ASP реализует код проверки с функцией обновления

Автор：Eve Cole Время обновления：2025-03-14 14:48:02

Эта статья поделится с вами функцией кода проверки, реализованной с использованием ASP, и она обновлена.

Поместите следующий код в отдельную страницу CheckCode.asp

  1. <%
  2. OptionExplice
  3. Response.buffer = true
  4. Callcom_creatvalidcode (validatecode)
  6. Subcom_creatvalidcode (psn)
  7. 'Нет кэширования
  8. Response.expires = -9999
  9. Response.addheaderpragma, без кэша
  10. Response.addheadercache-ctrol, без кэша
  11. Response.contenttype = image/bmp
  13. Рандомизировать
  15. DiMi, II, III
  17. Constcodds = 2' -вероятность появления различных пятен
  18. Constcamount = 10' -number of text
  19. Constccode = 0123456789
  21. 'Цветные данные (символы, фон)
  22. Dimvcolordata (1)
  23. vcolordata (0) = Chrb (0) & Chrb (0) и Chrb (211) 'Blue 0, Green 0, Red 0 (черный)
  24. vcolordata (1) = Chrb (255) и Chrb (255) и Chrb (255) 'Blue 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. Следующий
  32. Session (PSN) = запись VCODES в сеанс
  33. 'Данные символов
  34. DimvnumberData (9)
  35. vnumberdata (0) =
  37. 11100000011111011110111011110111101001011110100101110100101111010010111111111111101111101111
  39. 110000111
  40. vnumberdata (1) =
  42. 111101111111111111111111111111111111111111111111111111er111111111X11111111111111111111111111111111111111111111111111111111
  44. 100000111
  45. vnumberdata (2) =
  47. 11100000011111011110111101111111111111111111111111111111111111111111111111111111111011111
  49. 100000011
  50. vnumberdata (3) =
  52. 1110000001111111111011110111111111111111111111111111111111111111011111111111101111011111
  54. 110000111
  55. vnumberdata (4) =
  57. 11111011111111111111111001111111011111110110111110110111110000001111111111111X111111111111111111111111111111111
  59. 111000011
  60. vnumberdata (5) =
  62. 110000001111111111111111111111111101111111111111111111111111111111011111111011110111111
  64. 110000111
  65. vnumberdata (6) =
  67. 111100011111101110111111111111111111111110100011111111111111110111111111111111111011111
  69. 110000111
  70. vnumberdata (7) =
  72. 110000000011110111011111011111111111111111111111111111111111111111111111111111111111111
  74. 111011111
  75. vnumberdata (8) =
  77. 111000000111110111111110111101111111111111111000011111101101111111110111111111111101111101111
  79. 110000111
  80. vnumberdata (9) =
  82. 11100011111111111111111111101111111110111111111111111101011111111111111111111101110111111111111111111111111111111111111111111111111111111111111111
  84. 110001111
  85. 'Выходное заголовок файла изображения
  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. 'Выходное изображение заголовок информации
  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 'прошел все строки
  102. Forii = 0to3 'прошло все слова
  103. Foriii = 1to10 'прошел все пиксели
  104. 'Выходное изображение строка данных по строке, Word by Word, Pixel от Pixel
  105. Ifrnd*99+1 <coddsthen 'случайно генерирует разные точки
  106. Response.binarywritevcolordata (0)
  107. Еще
  108. Response.binaryWritevColordata (Mid (vnumberData (VCode (II)), I*10+III, 1))
  109. Эндиф
  110. Следующий
  111. Следующий
  112. Следующий
  113. Заканчивая
  114. %>

Страницы, которые вы должны использовать, цитируются следующим образом:

Код проверки: src = fectcode.asp cellpadding = "0" cellpacing = "0" style = "border-collapse: коллапс; расстояние границы: 0px; ширина: 780px; clear: оба; накладка: 0px! ! Важный; Border-Bothme-Radius: 0px! Стоимость линии: 1.1EM! Вертикальная атака: базовая линия! Важно; ">

Приведенное выше содержимое этой статьи, я надеюсь, вам понравится.

Связанные статьи