Kopieren Sie den folgenden Code, speichern Sie ihn als c_validcode.asp und laden Sie ihn in die Funktion hoch
Die Codekopie lautet wie folgt:
<%@Codepage = 65001%>
<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog
'// Autor: Zhu Xuan (Zx.asd), Sipo
'// Copyright: Rainbowsoftstudio
'// Technischer Support: [email protected]
'// Einheitsname: c_validcode.asp
'// Startzeit: 2007-4-4
'// Zuletzt geändert: 2007-4-4
'// Anmerkung: www.dc9.cn
'///////////////////////////////////////////////////////////////////////////////
%>
<%OptionExplicit%>
<%OnErrorresumeNext%>
<!-#includeFile = "../ c_option.asp"->
<!-#includeFile = "../ function/c_function.asp"->
<%
'.VerifyCodeGetVerifyNumber, false
Classcom_gifcode_class
Publicnoisy, Count, Breite, Höhe, Winkel, Offset, Grenze
Privategraph (), margin (3)
PrivateSubclass_initialize ()
Randomisieren
Laut = 7 'Wahrscheinlichkeit des Auftretens des Interferenzpunkts
Count = 5 'Zeichen
Breite = 60 'Bildbreite
Höhe = 20'Picture Height
Winkel = 3 'Zufallswinkeländerung
Offset = 10 'Offset Zufallsänderungsmenge
Grenze = 2'Bordergröße
Ende
PublicFunctioncreate (STR)
Dimi
Dimvindex
Redimgraph (Breite-1, Höhe-1)
Fei = 0Tocount-1
vindex = cint (Mid (str, i+1,1) -1)
Setdrawvindex, ich
Nächste
Endfunktion
SubsetDot (PX, PY)
Ifpx*(widthTH-px-1)> = 0andpy*(Höhe-py-1)> = 0Then
Graph (px, py) = 1
Endif
Ende
Publicsubsetdraw (pindex, pnumber)
'Charakterdatenwörterbuch
IfpIndex = -1Thenpindex = 9
Dimdotdata (9)
Dotdata (0) = Array (30,15,50,10,100)
Dotdata (1) = Array (1,34,30,1,71,100,34,100,93,100,100,86)
Dotdata (2) = Array (1,100,1,42,42,100,70,50,100,1,70)