كيفية إنشاء صور للأرقام في صفحات الويب

callcom_creatvalidcode (request.querystring (tel))

publicsubcom_creatvalidcode (PTEL)

'-------------------------------------------------------------------------------------------------------------------------------

استجابة. expires = 0

استجابة

استجابة

استجابة. 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)' ----- Blue 0 ، Green 0 ، Red 0 (Black)

'Vcolordata (1) = Chrb (255) و CHRB (255) و CHRB (255) "------ Blue 250 ، Green 236 ، Red 211 (Light Blue)

'Vcolordata (0) = Chrb (197) و Chrb (106) و Chrb (49)' ----- Blue 0 ، Green 0 ، Red 0 (Black)

'Vcolordata (1) = Chrb (238) و CHRB (210) و CHRB (193) "------ Blue 250 ، Green 236 ، Red 211 (Light Blue)

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) = 111111111111111111011101110111011101110111011101110111011110111111111

Vnumberdata (1) = 111111111111111111111111111111111111111111111111111111111111111111111

Vnumberdata (2) = 11111111111111111101110111011111111111111111111111111111111110011111111

Vnumberdata (3) = 1111111111111111111111111111111111111111111111111111111111111111111

VnumberData (4) = 111111111111111111111111111111111111111011111111111111111111111111111111

VnumberData (5) = 111111111100000111111111111111111111111111111111111111111111111111111

VnumberData (6) = 111111111110001111011111111111111111111111101110111011111111111111111

VnumberData (7) = 1111111111000001110111111111111111111111111111111111111111111111111111

VnumberData (8) = 1111111111111111111101110111111111111101110111011101111110001111111111

Vnumberdata (9) = 1111111111111111111101110111011111111111111111111111111111000011111111

VnumberData (10) = 111111111111111111111111111111111111111111111111111111111111111111111

VnumberData (11) = 11111111111111111111111111111111111111111111111111111111111111111111

'-------------------------------------------------------------------------------------------------------------------------------

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)

'-------------------------------------------------------------------------------------------------------------------------------

استجابة.

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

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.BinaryWriteVcolordata (Mid (Vnumberdata (Vcode (II)) ، I*8+III ، 1))

Endif

التالي

التالي

التالي

ينتهي

٪>