Startseite>Tutorial zur Netzwerkprogrammierung>ASP-Tutorial

ASP implementiert den Verifizierungscode mit Aktualisierungsfunktion

Autor：Eve Cole Aktualisierungszeit：2025-03-14 14:48:02

In diesem Artikel wird eine mit ASP implementierte Überprüfungscode -Funktion mitgeteilt und ist aktualisiert.

Setzen Sie den folgenden Code auf eine separate Seite CheckCode.asp ein

  1. <%
  2. OptionExPlicit
  3. Response.buffer = true
  4. CALLCOM_CREATVALIDCODE (validateCode)
  6. Subcom_creatvalidcode (PSN)
  7. 'Kein Caching
  8. Response.expires = -9999
  9. Response.addHeaderpragma, no-cache
  10. Response.addheadecache-ctrol, no-cache
  11. Antwort.ContentType = Bild/BMP
  13. Randomisieren
  15. Dimi, II, III
  17. ConstCodds = 2'Die Wahrscheinlichkeit, dass verschiedene Flecken erscheinen
  18. Constcamount = 10'number des Textes
  19. ConstCcode = 0123456789
  21. 'Farbdaten (Zeichen, Hintergrund)
  22. Dimvcolordata (1)
  23. vcolordata (0) = chrb (0) & chrb (0) & chrb (211) 'blau 0, grün 0, rot 0 (schwarz)
  24. Vcolordata (1) = CHRB (255) & CHRB (255) & CHRB (255) 'Blue 250, Green 236, Rot 211 (hellblau)
  26. 'Zufällig generierte Zeichen
  27. Dimvcode (4), VCodes
  28. Fei = 0to3
  29. vcode (i) = int (rnd*camount)
  30. vcodes = vcodes & Mid (CCODE, VCODE (I) +1,1)
  31. Nächste
  32. Sitzung (PSN) = VCODES 'Datensatz in die Sitzung
  33. 'Charakterdaten
  34. DimvnumberData (9)
  35. vnumberData (0) =
  37. 111000011111111110111011111111101001011101001011101001011101001011111111111101110111
  39. 110000111
  40. vnumberData (1) =
  42. 11110111111100011111111111111111111111111111111111111111111111111111111111111111111111111111
  44. 100000111
  45. vnumberData (2) =
  47. 111000011111111110111011111111111111111111111111111111111111111111111111111111111111111111111111
  49. 100000011
  50. vnumberData (3) =
  52. 111000011111111110111011111111111111111100111111111111111111111111111111111111111111111111111111111
  54. 110000111
  55. vnumberData (4) =
  57. 11111011111111111111100111111111111111111111111111111111111111111111111111111111
  59. 111000011
  60. vnumberData (5) =
  62. 1100000011110111111111111111111010001110011111111111111111111111011111111111111111111111111111111111
  64. 110000111
  65. vnumberData (6) =
  67. 11110001111110111111111111111111111111111011100111111111111111111111111111111111111111111111111111111
  69. 110000111
  70. vnumberData (7) =
  72. 110000001111011111111111111111111111111111111111111111111111111111111111111111111111111111111
  74. 111011111
  75. vnumberData (8) =
  77. 11100001111111111011101111111111111111111100001111111111111111111111111111111111111111111111111111111
  79. 110000111
  80. vnumberData (9) =
  82. 1110001111110111111111111111111111111111111001111000101111111111111111111111111111111
  84. 110001111
  85. 'Ausgabebilddatei -Header
  86. Response.BINYWRITECHRB (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. 'Ausgabebildinformations -Header
  94. Antwort.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. Fei = 9to0step-1 'hat alle Zeilen durchlaufen
  102. FOII = 0to3 'hat alle Wörter bestanden
  103. Foiii = 1to10 'hat alle Pixel bestanden
  104. 'Ausgabe Bilddatenzeile für Zeile, Wort für Wort, Pixel von Pixel
  105. IFRND*99+1 <coddshen 'generiert zufällig verschiedene Punkte
  106. Antwort.BinaryWritevcolordata (0)
  107. Anders
  108. Antwort.
  109. Endif
  110. Nächste
  111. Nächste
  112. Nächste
  113. Ende
  114. %>

Die Seiten, die Sie verwenden müssen, werden auf folgende Weise angegeben:

Verifizierungscode: src = checkcode.asp CellPadding = "0" cellpacing = "0" style = "Border-Collapse: Kollaps; Randabstand: 0px; Breite: 780px; Clear: Beide; Padding: 0px! Wichtig; Margin: 0px ! Wichtig; Border-Bottom-Links-Radius: 0px! Linienhöhe: 1.1M! vertikaler Align: Basis! Wichtig; ">

Das obige ist der gesamte Inhalt dieses Artikels. Ich hoffe, es gefällt Ihnen.

Ähnliche Artikel