الوظيفة: قم بإنشاء رقم الهاتف على الصفحة إلى تنسيق الصورة.
نسخة الكود كما يلي:
<٪
callcom_creatvalidcode (request.querystring ("Tel"))
publicsubcom_creatvalidcode (PTEL)
'-------------------------------------------------------------------------------------------------------------------------------
استجابة. expires = 0
Response.addheader "pragma" ، "عدم وجود آثار"
استجابة.
استجابة. 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)' ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'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) = "11111111111111111111111111111111111111111111111111111111111111111111"