Inicio>Tutorial de programación de red>Tutorial ASP

ASP implementa el código de verificación con la función de actualización

Autor：Eve Cole Fecha de actualización：2025-03-14 14:48:02

Este artículo compartirá con usted una función de código de verificación implementada utilizando ASP, y se actualiza.

Coloque el siguiente código en una página separada checkcode.asp

  1. <%
  2. OpcionExpliCit
  3. Respuesta.Buffer = True
  4. Callcom_creatValidCode (validateCode)
  6. Subcom_creatValidCode (PSN)
  7. 'No almacenado en caché
  8. Respuesta.expires = -9999
  9. Respuesta.AddHheaderPragma, No-Cache
  10. Respuesta.AddheaderCache-Ctrol, No-Cache
  11. Respuesta.ContentType = Image/BMP
  13. Aleatorizar
  15. Dimi, II, III
  17. Constcodds = 2'El Probabilidad de que aparezcan manchas misceláneas
  18. Constcamount = 10'Number of Text
  19. Constccode = 0123456789
  21. 'Datos de color (caracteres, fondo)
  22. Dimvcolordata (1)
  23. VColordata (0) = CHRB (0) y CHRB (0) & CHRB (211) 'Azul 0, verde 0, rojo 0 (negro)
  24. VColordata (1) = CHRB (255) y CHRB (255) y CHRB (255) 'Azul 250, verde 236, rojo 211 (azul claro)
  26. 'Caracteres generados al azar
  27. Dimvcode (4), Vcodes
  28. Fori = 0to3
  29. Vcode (i) = int (rnd*Camount)
  30. Vcodes = VCodes & Mid (Ccode, Vcode (i) +1,1)
  31. Próximo
  32. Session (PSN) = VCodes 'Registro en la sesión
  33. 'Datos de personajes
  34. DimvNumberData (9)
  35. vnumberData (0) =
  37. 1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111
  39. 110000111
  40. vnumberData (1) =
  42. 11110111111110001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111ild
  44. 100000111
  45. vnumberData (2) =
  47. 1110000111110111101111011110111111111111111110111111110111111111011111111111111111111011110111
  49. 100000011
  50. VNumberData (3) =
  52. 111000011111111111011110111101111111110111110011111111110111111111111011110111101111011110111
  54. 110000111
  55. vnumberData (4) =
  57. 11111011111111111111111111100111111101111111101101111110110111111000000111111111111111111111111111111111111111111111111111111111111
  59. 111000011
  60. vnumberData (5) =
  62. 1100000011110111111111111111111111010001111100111111111111111111111111111110111101111011110111
  64. 110000111
  65. vnumberData (6) =
  67. 11110001111111011101111011111111111111111110100011111001110111101111011110111101111011110111
  69. 110000111
  70. VNumberData (7) =
  72. 1100000011110111011111011101111111101111111111111111011111111111111111111111111111111111111111111111111111111111111111111111111111111111
  74. 111011111
  75. vnumberData (8) =
  77. 11100001111101111011110111101111011110111100001111110110111111111111011110111101111011110111
  79. 110000111
  80. VNumberData (9) =
  82. 111000111111101110111110111101111011110111101110011111000101111111111111111111111111101110111111
  84. 110001111
  85. 'Encabezado de archivo de imagen de salida
  86. Response.BinaryWriteChrb (66) & CHRB (77) & CHRB (230) & CHRB (4) & CHRB (0) & CHRB (0) & CHRB (0) & CHRB (0)
  88. & Chrb (0) y _
  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) y CHRB (0) y CHRB (1) y CHRB (0)
  93. 'Encabezado de información de imagen de salida
  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) y CHRB (0)
  101. Fori = 9to0step-1 'ha pasado por todas las líneas
  102. Forii = 0to3 'ha pasado todas las palabras
  103. Foriii = 1to10 'ha pasado todos los píxeles
  104. 'Datos de salida de salida Línea por línea, palabra por palabra, píxel por píxel
  105. Ifrnd*99+1 <Coddsthen 'genera al azar puntos misceláneos
  106. Response.BinaryWriteVcolordata (0)
  107. Demás
  108. Response.BinaryWriteVcolordata (Mid (VNumberData (Vcode (ii)), I*10+iii, 1)))
  109. Endif
  110. Próximo
  111. Próximo
  112. Próximo
  113. Endsub
  114. %>

Las páginas que necesita usar se cotizan de la siguiente manera:

Código de verificación: src = checkcode.asp cellPadding = "0" cellpacing = "0" style = "border-colapso: colapso; espaciado de borde: 0px; ancho: 780px; transparente: ambos; relleno: 0px! Importante; margen: 0px: 0px ! IMPORTANTE; Border-Bottom-izquierda-Radio Línea de agua: 1.1em! Importante; Alinee vertical: ¡Base! Importante; ">

Lo anterior es todo el contenido de este artículo, espero que les guste.

Artículos relacionados