Schauen wir uns den Rendering -Vergleich an: Zeichenverifizierungscode: → Additive -Verifizierungscode:
Vorteil:
① Im Vergleich zu reinen Charakterüberprüfungscodes verhindert dieses Programm die automatische Erkennung der meisten (mehr als 99%) Werbemaschinen. Sogar der chinesische Verifizierungscode kann von einigen Werbemaschinen auf dem Markt erkannt werden.
② Im Vergleich zum chinesischen Verifizierungscode vermeidet er die Mühe, die Eingabemethode zu wechseln, wenn Benutzer Benutzername und Kennwortverifizierungscode eingeben.
Interessierte Freunde können es auch auf andere Operationen erweitern, wie z. B. Multiplikation, Subtraktion, Multiplikation usw.
Verwendung Die Hintergrundfarbe und die Schriftfarbe können im Code geändert werden.
HINWEIS: In diesem Programm wird der Website -Raum erforderlich, um ASPJPEG -Komponenten und Schriftarten von kaiyi_gb2312 zu unterstützen.
In Zukunft werde ich eine Version veröffentlichen, für die keine Komponenten- und Schriftartunterstützung erforderlich ist. Wenn Sie interessiert sind, folgen Sie bitte meinem Blog.
Die Codekopie lautet wie folgt:
<%
'==============================================================================================================
'Dongwang Forum Addition Verification Code (ASPJPEG -Version)
'Autor: Cuixiping
'Blog (CSDN): http://blog.csdn.net/cuixiping/
'Blog (Blog Park): http://www.cnblogs.com/cuixiping/
'Datum: November 2008
'Erstellen Sie einen 100x20 JPEG -Bildüberprüfungscode, der Inhalt ähnelt "25+64 gleich?"
'Der Website -Raum erfordert Unterstützung für die ASPJPEG -Komponente (PERSITS.JPEG).
'Wenn der Server nicht über die Schriftart "kaiti_gb2312" verfügt, ändern Sie sie bitte an eine andere Schriftart und passen Sie die Zeichenposition an.
Nutzungsmethode: Ersetzen Sie den Inhalt in der Datei dv_getcode.asp des dynamischen Netzwerkforums und hinterlassen Sie keine leeren Zeilen am Anfang und am Ende der Datei.
'==============================================================================================================
Const fontcolor = & h000000 'Schriftfarbe
Const bgcolor = & hffccff 'Hintergrundfarbe
Rufen Sie CreateValidCode auf ("getCode")
Sub CreateCalidcode (PSN)
Dim X, JPEG
Randomisieren
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)
'Session (PSN) = CSTR (eval (x (4) & x (6) & x (5)))
Sitzung (PSN) = CSTR (x (4) + x (5))
Setzen Sie jpeg = server.createObject ("perssites.jpeg")
JPEG.NEW 100,20, BGCOLOR
JPEG.Quality = 100
Mit jpeg.canvas
.Font.bold = true
.Font.size = 16
.Font.Rotation = 0
.Font.family = "kaiti_gb2312"
.Font.color = fontcolor
.Printtext 4, 3, cstr (x (0))
.Printtext 14, 3, cstr (x (1))
.Printtext 26, 3, x (6)
.Printtext 38, 3, cstr (x (2))
.Printtext 48, 3, cstr (x (3))
.Font.Rotation = 15
.Printtext 55, 3, "etc"
.Printtext 70, 3, "on"
.Printtext 85, 3, "?"
Enden mit
'Kein Caching
Antwort.ContentType = "Image/JPEG"
Response.expires = -9999
Response.addHeader "Pragma", "No-Cache"
Response.addHeader "Cache-Ctrol", "No-Cache"
Response.addHeader "Inhaltsdisposition", "Inline; Dateiname = vcode.jpg"
JPEG.SendBinary
JPEG.CLOSE
Setzen Sie JPEG = nichts