Salin kode berikut, simpan sebagai c_validcode.asp dan unggah agar berfungsi
Salinan kode adalah sebagai berikut:
<%@Codepage = 65001%>
<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog
'// Penulis: Zhu Xuan (ZX.ASD), SIPO
'// Hak Cipta: Rainbowsoftstudio
'// Dukungan Teknis: [email protected]
'// Nama unit: c_validcode.asp
'// Waktu mulai: 2007-4-4
'// Terakhir dimodifikasi: 2007-4-4
'// Catatan: www.dc9.cn
'///////////////////////////////////////////////////////////////////////////////
%>
<%OptionExplicit%>
<%OnerRorresUMenext%>
<!-#includeFile = "../ c_option.asp"->
<!-#includeFile = "../ function/c_function.asp"->
<%
'.VerifyCodeGetverifyNumber, false
Classcom_gifcode_class
PublicNoisy, Count, Width, Height, Angle, Offset, Border
PrivateGraph (), margin (3)
Privatesubclass_initialize ()
Mengacak
Berisik = 7 'probabilitas kejadian titik interferensi
Hitung = 5 'karakter
Lebar = 60 'Lebar gambar
Tinggi = 20'picture tinggi
Sudut = 3 'perubahan sudut acak
Offset = 10 'Offset Kuantitas Perubahan Acak
Border = Ukuran 2'border
Endsub
PublicFunctionCreate (str)
Dimi
DIMVINDEX
RediMgraph (lebar-1, tinggi-1)
Fori = 0tocount-1
vindex = cint (mid (str, i+1,1) -1)
SetDrawvindex, i
Berikutnya
Fungsi endfungsi
SubsetDot (PX, PY)
Ifpx*(lebar-px-1)> = 0andpy*(Height-py-1)> = 0then
Grafik (px, py) = 1
Endif
Endsub
PublicSubsetDraw (Pindex, Pnumber)
Kamus Data Karakter
Ifpindex = -1thenpindex = 9
Dimdotdata (9)
Dotdata (0) = array (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)