Copie el siguiente código, guárdelo como c_validcode.asp y cárguelo a funcionar
La copia del código es la siguiente:
<%@CodePage = 65001%>
<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog
'// Autor: Zhu Xuan (ZX.asd), SIPO
'// Copyright: Rainbowsoftstudio
'// Soporte técnico: [email protected]
'// Nombre de la unidad: c_validcode.asp
'// Hora de inicio: 2007-4-4
'// Último modificado: 2007-4-4
'// nota: www.dc9.cn
'///////////////////////////////////////////////////////////////////////////////
%>
<%OpcionExplicit%>
<%OnerrorResumEnext%>
<!-#includeFile = "../ c_option.asp"->
<!-#includeFile = "../ function/c_function.asp"->
<%
'.VerifyCodeGetverifyNumber, falso
Classcom_gifcode_class
Publicnoisy, conteo, ancho, altura, ángulo, offset, borde
PrivateGraph (), margen (3)
Privatesubclass_initialize ()
Aleatorizar
Ruidoso = 7 'probabilidad de ocurrencia de punto de interferencia
Conte = 5 'caracteres
Ancho = 60 'ancho de imagen
Altura = 20'Spicture Altura
Ángulo = 3 'Cambio de ángulo aleatorio
Compensación = 10 'Cantidad de cambio aleatorio de compensación
Borde = tamaño de 2'forder
Endsub
PublicFunctionCreate (STR)
Dimi
Dimvindex
Redimgraph (ancho-1, altura-1)
Fori = 0ToCount-1
Vindex = Cint (Mid (Str, I+1,1) -1)
SetDrawVindex, yo
Próximo
Función final
SubsetDot (PX, PY)
Ifpx*(width-px-1)> = 0andpy*(hight-py-1)> = 0then
Graph (PX, Py) = 1
Endif
Endsub
PublicsubSetDraw (Pindex, PNumber)
'Diccionario de datos de personajes
Ifpindex = -1thenpindex = 9
Dimdotdata (9)
DotData (0) = Array (30,15,50,1,50,100)
Dotdata (1) = matriz (1,34,30,1,71,1,100,34,1,100,93,100,100,86)
Dotdata (2) = matriz (1,1,100,1,42,42,100,70,50,100,1,70)