Artikel ini terutama memperkenalkan implementasi kode verifikasi penambahan ASP, yang merupakan inovasi berdasarkan kode verifikasi asli, dan mengubah kode verifikasi menjadi operasi penambahan.
Ubah kode verifikasi ke operasi tambahan, misalnya, kode verifikasi menunjukkan bahwa 25+64 sama? , kemudian input 91 dapat melewati verifikasi.
Mari kita lihat perbandingan rendering: kode verifikasi karakter: → kode verifikasi aditif:
keuntungan:
① Dibandingkan dengan kode verifikasi karakter murni, program ini mencegah pengenalan otomatis mesin iklan sebagian besar (lebih dari 99%). Bahkan kode verifikasi Cina dapat dikenali oleh beberapa mesin iklan di pasaran.
② Dibandingkan dengan kode verifikasi Cina, ia menghindari kerumitan beralih metode input ketika pengguna memasukkan nama pengguna, kode verifikasi kata sandi.
Catatan: Program ini membutuhkan ruang situs web untuk mendukung komponen ASPJPEG dan font dari Kaiyi_GB2312.
Kodenya adalah sebagai berikut:
?
- <%
- ConstfontColor = & H000000'Font Color
- Warna latar belakang constbgcolor = & hffccff '
- CallCreateValidCode (getCode)
- SubCreateValidCode (PSN)
- Dimx, jpeg
- Mengacak
- x = array (1+int (rnd ()*9), int (rnd ()*10), 1+int (rnd ()*9), int (rnd ()*10), 0,0,+)
- x (4) = x (0)*10+x (1)
- x (5) = x (2)*10+x (3)
- 'Sesi (psn) = cstr (eval (x (4) & x (6) & x (5))))
- Sesi (psn) = cstr (x (4)+x (5))
- Setjpeg = server.createObject (persits.jpeg)
- Jpeg.new100,20, bgcolor
- JPEG.Quality = 100
- Withjpeg.canvas
- .Font.bold = true
- .Font.size = 16
- .Font.rotation = 0
- .Font.family = KAITI_GB2312
- .Font.color = fontColor
- .Printtext4,3, cstr (x (0))
- .Printtext14,3, cstr (x (1))
- .Printtext26,3, x (6)
- .Printtext38,3, cstr (x (2))
- .Printtext48,3, cstr (x (3))
- .Font.rotation = 15
- .Printtext55,3, dll.
- .Printtext70,3,
- .Printtext85,3,?
- Endwith
- 'Tidak ada caching
- Response.contentType = gambar/jpeg
- Response.expires = -9999
- Response.addheaderpragma, tanpa cache
- Response.addheadercache-ctrol, tanpa cache
- Response.addheadercontent-disposition, inline; filename = vcode.jpg
- Jpeg.sendbinary
- Jpeg.close
- Setjpeg = tidak ada
- Endsub
- %>