Beranda>Tutorial Pemrograman Jaringan>tutorial ASP

ASP mengimplementasikan kode verifikasi dengan fungsi refresh

Penulis：Eve Cole Waktu Pembaruan：2025-03-14 14:48:02

Artikel ini akan berbagi dengan Anda fungsi kode verifikasi yang diimplementasikan menggunakan ASP, dan itu disegarkan.

Letakkan kode berikut pada halaman checkCode.

  1. <%
  2. OptionExplicit
  3. Response.buffer = true
  4. Callcom_createValidCode (validateCode)
  6. Subcom_CreateValidCode (PSN)
  7. 'Tidak ada caching
  8. Response.expires = -9999
  9. Response.addheaderpragma, tanpa cache
  10. Response.addheadercache-ctrol, tanpa cache
  11. Response.contentType = gambar/BMP
  13. Mengacak
  15. Dimi, II, III
  17. Constcodds = 2'babilitas bintik -bintik lain yang muncul
  18. ConstCamount = 10'number of Text
  19. Constccode = 0123456789
  21. 'Data warna (karakter, latar belakang)
  22. Dimvcolordata (1)
  23. vcolordata (0) = chrb (0) & chrb (0) & chrb (211) 'biru 0, hijau 0, merah 0 (hitam)
  24. vcolordata (1) = chrb (255) & chrb (255) & chrb (255) 'biru 250, hijau 236, merah 211 (biru muda)
  26. 'Karakter yang dihasilkan secara acak
  27. DIMVCODE (4), VCODES
  28. Fori = 0to3
  29. vcode (i) = int (rnd*camount)
  30. vcodes = vcode & mid (ccode, vcode (i) +1,1)
  31. Berikutnya
  32. Sesi (psn) = rekaman vcodes ke dalam sesi
  33. 'Data karakter
  34. Dimvnumberberdata (9)
  35. vnumberberdata (0) =
  37. 1110000111110111110111111111011110100101110100101111010010111101001011110111111111111111111
  39. 110000111
  40. vnumberberdata (1) =
  42. 11110111111101111111111111111111111111111111111111111111111111111111111111111111111111111
  44. 100000111
  45. vnumberberdata (2) =
  47. 111000011111011111011111111111111111111111111111111111111111111111111111111111111111111111
  49. 100000011
  50. vnumberberdata (3) =
  52. 111000011111011111011111111111111111111111100111111111111111111111011111111111111111111111
  54. 110000111
  55. vnumberberdata (4) =
  57. 1111101111111111111111110011111110111111101111111110111111111000000001111111111111111111111
  59. 111000011
  60. vnumberberdata (5) =
  62. 110000001111111111111111111111101011111001111111111111111111111111111111111111111111111
  64. 110000111
  65. vnumberberdata (6) =
  67. 1111000111111111111111111111111111111111010111111001110111111111111111111111111111111111
  69. 110000111
  70. vnumberberdata (7) =
  72. 110000001111111111111110111011111111111111111111111111111111111111111111111111111111111111
  74. 111011111
  75. vnumberberdata (8) =
  77. 111000011111011101111111111111101111111110000111111011111111111111111111111111111111111111
  79. 110000111
  80. vnumberberdata (9) =
  82. 1110001111111011101111101111101110111111111111001111100010111111111011111111111111111111111111111111111111111111111111111111111111111111
  84. 110001111
  85. Header file gambar output
  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. Header informasi gambar output
  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 'telah melewati semua baris
  102. Forii = 0to3 'telah melewati semua kata
  103. Foriii = 1to10 'telah melewati semua piksel
  104. 'Output Gambar Data Line demi Line, Word By Word, Pixel By Pixel
  105. IFRND*99+1 <coddsthen 'secara acak menghasilkan titik lain -lain
  106. Response.binarywritevcolordata (0)
  107. Kalau tidak
  108. Response.binarywritevcolordata (mid (vnumberberdata (vcode (ii)), i*10+iii, 1))
  109. Endif
  110. Berikutnya
  111. Berikutnya
  112. Berikutnya
  113. Endsub
  114. %>

Halaman yang perlu Anda gunakan dikutip dengan cara berikut:

Kode verifikasi: src = checkCode.asp cellpadding = "0" cellpacing = "0" style = "border-collapse: collapse; spasibar-batas: 0px; lebar: 780px; jelas: keduanya; padding: 0px! Penting; margin: 0px ! Border-Bottom-Left-Radius: 0px! Penting; Line-height: 1.1em! Garis besar; Vertical-Align: Baseline! Penting; ">

Di atas adalah seluruh konten artikel ini, saya harap Anda menyukainya.

Artikel Terkait