Fungsi: Hasilkan nomor telepon pada halaman ke format gambar.
Salinan kode adalah sebagai berikut:
<%
Callcom_createValidCode (request.querystring ("tel"))
Publicsubcom_createValidCode (PTEL)
'-------------------------------------------------------------------------------------------------------------------------
Response.expires = 0
Response.addheader "pragma", "no-cache"
Response.addheader "cache-ctrol", "no-cache"
Response.contentType = "Image/BMP"
Mengacak
Dimi, II, III, Rndcolor, Strlen, SQL, Rs
Constcodds = 5 '-----------------------------------------------------------------------------------------------------------------
Conststr = "0123456789-"
strlen = len (ptel)
rndcolor = chrb (cint (rnd*255)) & chrb (cint (rnd*255)) & chrb (cint (rnd*255)))))
'-------------------------------------------------------------------------------------------------------------------------
Dimvcolordata (1)
'vcolordata (0) = chrb (0) & chrb (0) & chrb (0)' ----- biru 0, hijau 0, merah 0 (hitam)
'vColorData(1)=ChrB(255)&ChrB(255)&ChrB(255)'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'vcolordata (0) = chrb (197) & chrb (106) & chrb (49)' ----- biru 0, hijau 0, merah 0 (hitam)
'vcolordata (1) = chrb (238) & chrb (210) & chrb (193)' -------- biru 250, hijau 236, merah 211 (biru muda)
vcolordata (0) = chrb (0) & chrb (0) & chrb (0) '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
vcolordata (1) = chrb (205) & chrb (237) & chrb (245) '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------
Mengacak
Dimvcode ()
RediMvCode (Strlen-1)
Fori = 0tostrlen-1
vcode (i) = instr (1, str, mid (ptel, i+1,1), 1) -1
Berikutnya
'-------------------------------------------------------------------------------------------------------------------------
Dimvnumberberdata (11)
'Verdanafont
VNumberberdata (0) = "1111111111101111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111