Fonction: Générez le numéro de téléphone sur la page au format d'image.
La copie de code est la suivante:
<%
Callcom_creatValidCode (request.querystring ("tel"))
Publicsubcom_creatValidcode (PTEL)
'-----------------------------------------------------------------------------------------------------------------------------
Response.expires = 0
Response.Addheader "Pragma", "No-Cache"
Réponse.addheader "cache-ctrol", "no-cache"
Response.ContentType = "Image / BMP"
Randomiser
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, vert 0, rouge 0 (noir)
'VColordata (1) = Chrb (255) & Chrb (255) & Chrb (255)' -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'VColordata (0) = Chrb (197) & Chrb (106) & Chrb (49)' ----- Blue 0, vert 0, rouge 0 (noir)
'VColordata (1) = Chrb (238) & Chrb (210) & Chrb (193)' -------- Blue 250, vert 236, rouge 211 (bleu clair)
vColorData(0)=ChrB(0)&ChrB(0)&ChrB(0)'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
VColordata (1) = Chrb (205) & Chrb (237) & Chrb (245) '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------
Randomiser
Dimvcode ()
redimvcode (strlen-1)
Fori = 0tostrlen-1
vCode (i) = instr (1, str, mid (ptel, i + 1,1), 1) -1
Suivant
'-----------------------------------------------------------------------------------------------------------------------------
Dimvnumberdata (11)
'Verdanafont
vNumberData (0) = "1111111111000111111111111111111111111111111111111111111111111111"