Copie o seguinte código, salve -o como c_validcode.asp e envie -o para funcionar
A cópia do código é a seguinte:
<%@CodePage = 65001%>
<%
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////S
'// zblog
'// Autor: Zhu Xuan (ZX.ASD), SIPO
'// Direitos autorais: RainbowsoftStudio
'// Suporte técnico: [email protected]
'// Nome da unidade: c_validcode.asp
'// Horário de início: 2007-4-4
'// Último modificado: 2007-4-4
'// Nota: www.dc9.cn
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////S
%>
<%OptionExplicit%>
<%OnErrorReSumenext%>
<!-#incluirfile = "../ c_option.asp"->
<!-#incluirfile = "../ function/c_function.asp"->
<%
'.VerifyCodeGetVerifyNumber, false
ClassCom_gifcode_class
Publicnoisy, contagem, largura, altura, ângulo, deslocamento, borda
PrivateGraph (), margem (3)
Privatesubclass_initialize ()
Randomizar
Ruidosy = 7 'probabilidade de ocorrência de ponto de interferência
Count = 5 'caracteres
Largura = 60 'Largura da imagem
Altura = 20'icture altura
Ângulo = mudança de ângulo aleatório
Deslocamento = 10 'O deslocamento de mudança de mudança aleatória
Border = 2'Dorder Tamanho
Endsub
PublicFunctionCreate (STR)
Dimi
Dimvindex
Redimgraph (largura-1, altura-1)
Fori = 0Tocount-1
Vindex = Cint (MID (STR, I+1,1) -1)
SetDrawvindex, i
Próximo
Função final
SubsetDot (PX, PY)
Ifpx*(width-px-1)> = 0andpy*(altura-py-1)> = 0hen
Gráfico (px, py) = 1
Endif
Endsub
PublicsubsetDraw (Pindex, Pnumber)
'Dicionário de dados de caracteres
Ifpindex = -1ThenPindex = 9
Dimdotdata (9)
Dotdata (0) = Matriz (30,15,50,1,50,100)
Dotdata (1) = Array (1,34,30,1,71,1,100,34,1,100,93,100,100,86)
Dotdata (2) = Array (1,1,100,1,42,42,100,70,50,100,1,70)