انسخ الكود التالي ، احفظه كـ c_validcode.asp وقم بتحميله للعمل
نسخة الكود كما يلي:
<٪@codepage = 65001 ٪>
<٪
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'// z-blog
'// المؤلف: Zhu Xuan (zx.asd) ، Sipo
'// حقوق الطبع والنشر: 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"->
<٪
'
classcom_gifcode_class
Publicnoisy ، العد ، العرض ، الطول ، الزاوية ، الإزاحة ، الحدود
privategraph () ، الهامش (3)
privatesubclass_initialize ()
عشوائي
صاخبة = 7 'احتمال حدوث نقطة التداخل
العد = 5 'الأحرف
عرض = 60 'عرض الصورة
ارتفاع = 20'Picture ارتفاع
زاوية = 3 'تغيير الزاوية العشوائية
الإزاحة = 10 'إزاحة الكمية العشوائية
الحدود = 2'border
ينتهي
PublicFunctionCreate (STR)
ديمي
Dimvindex
redimgraph (العرض -1 ، الارتفاع 1)
fori = 0tocount-1
VINDEX = CINT (MID (STR ، I+1،1) -1)
setDrawVindex ، أنا
التالي
الوظيفية
SubsetDot (PX ، PY)
IFPX*(Width-PX-1)> = 0andpy*(Hight-Py-1)> = 0then
الرسم البياني (PX ، PY) = 1
Endif
ينتهي
publicsubsetdraw (Pindex ، pnumber)
قاموس بيانات الحرف
ifpindex = -1 thenpindex = 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)