Скопируйте следующий код, сохраните его как c_validcode.asp и загрузите его для функции
Кода -копия выглядит следующим образом:
<%@CodePage = 65001%>
<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog
'// Автор: Zhu Xuan (zx.asd), Sipo
'// Copyright: Rainbowsoftstudio
'// Техническая поддержка: [email protected]
'// Имя блока: c_validcode.asp
'// Время начала: 2007-4-4
'// Последнее изменение: 2007-4-4
'// Примечание: www.dc9.cn
'///////////////////////////////////////////////////////////////////////////////
%>
<%OptionExplicit%>
<%OnerrorResumenext%>
<!-#includefile = "../ c_option.asp"->
<!-#includefile = "../ function/c_function.asp"->
<%
'.VerifyCodegetVerifynumber, false
Classcom_gifcode_class
Publicnoisy, count, width, высота, угол, смещение, граница
Privategraph (), маржа (3)
Privatesubclass_initialize ()
Рандомизировать
NOISY = 7 'вероятность возникновения точки помех
Count = 5 'символы
Ширина = 60 'Ширина изображения
Высота = 20'picture Высота
Угол = 3 'Случайное изменение угла
Offset = 10 'смещение случайных изменений
Граница = 2'parder размер
Заканчивая
PublicfunctionCreate (str)
Дими
Dimvindex
Redimgraph (ширина-1, высота-1)
Fori = 0tocount-1
vindex = cint (mid (str, i+1,1) -1)
Setdrawvindex, я
Следующий
Конечная функция
SubmetDot (PX, PY)
Ifpx*(width-px-1)> = 0Andpy*(height-py-1)> = 0then
График (px, py) = 1
Эндиф
Заканчивая
Publicsubsetdraw (pindex, pnumber)
'Словарь данных символов
Ifpindex = -1thenpindex = 9
Dimdotdata (9)
Dotdata (0) = массив (30,15,50,1,50,100)
Dotdata (1) = массив (1,34,30,1,71,1,100,34,1,100,93,100,100,86)
Dotdata (2) = массив (1,1,100,1,42,42,100,70,50,100,1,70)