Copiez le code suivant, enregistrez-le sous c_validcode.asp et téléchargez-le dans la fonction
La copie de code est la suivante:
<% @ Codepage = 65001%>
<%
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////DEBLE
'// z-blog
'// Auteur: Zhu Xuan (zx.asd), SIPO
'// Copyright: RainbowsoftStudio
'// Support technique: [email protected]
'// Nom de l'unité: c_validcode.asp
'// Heure de début: 2007-4-4
'// Dernière modification: 2007-4-4
'// Remarque: www.dc9.cn
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////DEBLE
%>
<% OptionExplicite%>
<% OnerrorResumeNext%>
<! - # includeFile = "../ c_option.asp" ->
<! - # includeFile = "../ function / c_function.asp" ->
<%
'.VerifyCodeGetVerifyNumber, false
Classcom_gifcode_class
PublicNoisy, Count, largeur, hauteur, angle, décalage, bordure
Privategraph (), marge (3)
PRIVATESUBCLASS_INITIALIZE ()
Randomiser
Noisy = 7 'Probabilité d'occurrence du point d'interférence
Count = 5 'caractères
Largeur = 60 'largeur d'image
Hauteur = 20'picture hauteur
Angle = 3 'changement d'angle aléatoire
Offset = 10 'Offset Random Change Quantité
Border = 2'border Taille
Fin
PublicFunctionCreate (STR)
Dimi
Dimvindex
Redimgraph (largeur-1, hauteur-1)
Fori = 0ToCount-1
Vindex = Cint (Mid (Str, I + 1,1) -1)
SetDrawvindex, je
Suivant
Finition de fin
Sous-ensemble (PX, PY)
Ifpx * (width-px-1)> = 0andpy * (height-py-1)> = 0Then
Graphique (px, py) = 1
Endire
Fin
Publicsubsetdraw (Pindex, PNumber)
'Dictionnaire de données des caractères
Ifpindex = -1THENPINDEX = 9
Dimdotdata (9)
Dotdata (0) = tableau (30,15,50,1,50,100)
Dotdata (1) = tableau (1,34,30,1,71,1,100,34,1,100,93,100,100,86)
Dotdata (2) = tableau (1,1,100,1,42,42,100,70,50,100,1,70)