วิธีสร้างรูปภาพของตัวเลขในหน้าเว็บ

callcom_creatvalidcode (request.querystring (โทร))

Publicsubcom_creatvalidCode (PTEL)

-

Response.exext = 0

Response.addheaderPragma ไม่มีแคช

response.addheadercache-ctrol ไม่มีแคช

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)' ------ สีน้ำเงิน 250, สีเขียว 236, สีแดง 211 (สีฟ้าอ่อน)

'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) = 11111111110001111011101110111011101110111011101110111011111100011111111111111111111

VnumberData (1) = 1111111111111111110011111111111111111111111111111111111111111100011111111111111

VnumberData (2) = 111111111100011110111011101111111111111111111111101111101111111000001111111111111111111111111111101111111000001111111111111111111111111111111111

VnumberData (3) = 11111111110001111011101111111111111001111111111111110111011111000111111111111111111111111111110111011111100011111111111111

VnumberData (4) = 11111111111111111111111111111110111111101111011011111000011111011111110011111111111101110111110000111111101111111001111111111111111111011101111

VnumberData (5) = 1111111110000011101111111111111111100001111111111111110111011111100011111111111111111111111111

VnumberData (6) = 11111111110001111011011101111111111100111011101110111011101111110001111111111111111

VnumberData (7) = 111111111100000111011011111111111111111111111111111111111111111111111111111111111111

VnumberData (8) = 11111111110001111011101110111111110001110111011101110111011111110001111111111

VnumberData (9) = 1111111111000111101110111011101110111111111001111111011101101111100001111111111111111111111

VnumberData (10) = 11111111111111111111111111111111111111111111100111111111111111111111111111111111111

VnumberData (11) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111

-

Response.binaryWriteChrb (66) & Chrb (77) & Chrb (((strlen*8*10*3+54) mod256)) & chrb (((strlen *8*10*3+54)/256) mod256) & chrb ((((strlen*8*10*3+54)/256)/256) mod256) & chrb (0) & chrb (0) & _ _ _

Chrb (0) & Chrb (0) & Chrb (54) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (40) & Chrb (0) & _

Chrb (0) & Chrb (0) & Chrb (strlen*8) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (10) & Chrb (0) & _

Chrb (0) & Chrb (0) & Chrb (1) & Chrb (0)

-

Response.binaryWriteChrb (24) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & _

CHRB ((strlen*8*10*3) mod256) & chrb (((strlen*8*10*3)/256) mod256) & chrb (((((((((((((((((((((((((((("(((((((((((((((((

Chrb (196) & Chrb (14) & Chrb (0) & Chrb (0) & Chrb (196) & Chrb (14) & Chrb (0) & Chrb (0) & Chrb (0) & _

Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0)

fori = 9to0step-1 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

forii = 0tostrlen-1 '--------- หลังจากคำทั้งหมด

foriii = 1to8 '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

- -

ifrnd*99+1 <coddsthen - -

Response.binaryWriterndColor

อื่น

Response.binaryWritevColordata (mid (vnumberdata (vcode (ii)), i*8+iii, 1))

endif

ต่อไป

ต่อไป

ต่อไป

enddub

-