ฟังก์ชั่น: สร้างหมายเลขโทรศัพท์ในหน้าเป็นรูปแบบรูปภาพ
การคัดลอกรหัสมีดังนี้:
-
callcom_creatvalidcode (request.querystring ("tel")))
Publicsubcom_creatvalidCode (PTEL)
-
Response.exext = 0
Response.addheader "Pragma", "No-Cache"
Response.addheader "Cache-ctrol", "No-cache"
Response.contentType = "image/bmp"
สุ่ม
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)' ----- สีน้ำเงิน 0, สีเขียว 0, สีแดง 0 (สีดำ)
'VCOLORDATA (1) = CHRB (255) & ChRB (255) & ChRB (255)' ------------------------------------------------------------------------------------------------------------------------------------------------------------------
'VCOLORDATA (0) = CHRB (197) & ChRB (106) & ChRB (49)' ----- สีน้ำเงิน 0, สีเขียว 0, สีแดง 0 (สีดำ)
'VCOLORDATA (1) = CHRB (238) & ChRB (210) & CHRB (193)' -------- สีน้ำเงิน 250, สีเขียว 236, สีแดง 211 (สีฟ้าอ่อน)
VCOLORDATA (0) = CHRB (0) & ChRB (0) & ChRB (0) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
VCOLORDATA (1) = CHRB (205) & ChRB (237) & ChRB (245) '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
สุ่ม
dimvcode ()
redimvCode (strlen-1)
fori = 0tostrlen-1
vCode (i) = instr (1, str, mid (ptel, i+1,1), 1) -1
ต่อไป
-
dimvnumberdata (11)
'Verdanafont
VnumberData (0) = "111111111100011111011101111011110111011111111111111111111111111111111111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111