Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

ASP implémente le code de vérification avec une fonction de rafraîchissement

Auteur：Eve Cole Date de mise à jour：2025-03-14 14:48:02

Cet article partagera avec vous une fonction de code de vérification implémentée en utilisant ASP, et il est rafraîchi.

Mettez le code suivant sur une page séparée Checkcode.asp

  1. <%
  2. Option Explicit
  3. Réponse.buffer = true
  4. Callcom_creatValidcode (validatecode)
  6. Subcom_creatvalidcode (psn)
  7. 'Pas de mise en cache
  8. Response.expires = -9999
  9. Réponse.addheaderpragma, sans cache
  10. Réponse.addheadercache-ctrol, sans cache
  11. Response.ContentType = Image / BMP
  13. Randomiser
  15. Dimi, II, III
  17. Constcodds = 2 'la probabilité de places diverses apparaissant
  18. Constcamount = 10'mbumber de texte
  19. Constccode = 0123456789
  21. 'Données de couleur (caractères, arrière-plan)
  22. Dimvcolordata (1)
  23. vColordata (0) = chrb (0) & chrb (0) & chrb (211) 'bleu 0, vert 0, rouge 0 (noir)
  24. VColordata (1) = Chrb (255) & Chrb (255) & Chrb (255) 'Blue 250, Green 236, rouge 211 (bleu clair)
  26. 'Caractères générés au hasard
  27. Dimvcode (4), vcodes
  28. Fori = 0to3
  29. vCode (i) = int (rnd * camount)
  30. vcodes = vcodes et mid (ccode, vcode (i) +1,1)
  31. Suivant
  32. Session (PSN) = enregistrement de Vcodes en session
  33. 'Données de caractère
  34. Dimvnumberdata (9)
  35. vNumberData (0) =
  37. 111000011111111111111111111111010010111101001011110100101111010011111111111111111111111
  39. 110000111
  40. vnumberdata (1) =
  42. 11111111111000111111111111111111111111111111111111111111111111111111111111111111
  44. 100000111
  45. vnumberdata (2) =
  47. 111000011111111111111111111111111111111111111111111111111111111111111111111111111
  49. 100000011
  50. vnumberdata (3) =
  52. 1110000111111111111111111111111111111111001111111111111111111111111111111111111111
  54. 110000111
  55. vnumberdata (4) =
  57. 111111111111111111111001111111111111111111111111111111110000000011111111111111111111
  59. 111000011
  60. vnumberdata (5) =
  62. 110000001111111111111111111111100011110011111111111111111111111111111111111111111
  64. 110000111
  65. vnumberdata (6) =
  67. 111100011111111111111111111111111111111100011110011111111111111111111111111111111111
  69. 110000111
  70. vnumberdata (7) =
  72. 110000001111111111111111111111111111111111111111111111111111111111111111111111111
  74. 11101111
  75. vnumberdata (8) =
  77. 111000011111111111111111111111111111111100001111111111111111111111111111111111111111
  79. 110000111
  80. vnumberdata (9) =
  82. 111000111111111111111111111111111111111111100111100010111111111111111111111111111111
  84. 110001111
  85. 'En-tête de fichier d'image de sortie
  86. Réponse.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. 'En-tête d'information de l'image de sortie
  94. Réponse.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 'a traversé toutes les lignes
  102. Forii = 0to3 'a passé tous les mots
  103. Foriii = 1to10 'a passé tous les pixels
  104. 'Sortir des données d'image ligne par ligne, mot par mot, pixel par pixel
  105. Ifrnd * 99 + 1 <coddstenn 'génère de manière aléatoire des points divers
  106. Réponse.binarywritevcolordata (0)
  107. Autre
  108. Réponse.binarywritevcolordata (mid (vNumberData (vcode (ii)), i * 10 + iii, 1))
  109. Endire
  110. Suivant
  111. Suivant
  112. Suivant
  113. Fin
  114. %>

Les pages que vous devez utiliser sont citées de la manière suivante:

Code de vérification: src = checkcode.asp cellpadding = "0" cellpacing = "0" style = "border-collapse: effondrement; border espacement: 0px; width: 780px; clear: les deux; padding: 0px! IMPORTANT; margin: 0px ! Border-Bottom-Left-Radius: 0px! HEURS DE LA LIGNE: 1.1M! Vertical-Align: Baseline! IMPORTANT; ">

Ce qui précède est l'intégralité du contenu de cet article, j'espère que vous l'aimez.

Articles connexes