Função: Gere o número de telefone na página para o formato da imagem.
A cópia do código é a seguinte:
<%
CallCom_CreatValidCode (Request.QueryString ("Tel")))
PublicsubCom_CreatValidCode (PTEL)
'-----------------------------------------------------------------------------------------------------------------------------------
Response.Expires = 0
Response.addheader "Pragma", "No-Cache"
Response.addheader "cache-ctrol", "sem cache"
Response.ContentType = "Image/BMP"
Randomizar
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) e Chrb (0) e Chrb (0)' ----- Blue 0, verde 0, vermelho 0 (preto)
'vcolordata (1) = Chrb (255) e Chrb (255) e Chrb (255)' ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'vcolordata (0) = Chrb (197) e Chrb (106) e Chrb (49)' ------ Blue 0, Green 0, Red 0 (Black)
'vcolordata (1) = Chrb (238) e Chrb (210) e Chrb (193)' -------- Azul 250, verde 236, vermelho 211 (azul claro)
vcolordata (0) = chrb (0) e chrb (0) e chrb (0) '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
vColorData(1)=ChrB(205)&ChrB(237)&ChrB(245)'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------------
Randomizar
Dimvcode ()
Redimvcode (Strlen-1)
Fori = 0tostrlen-1
vcode (i) = instrum (1, str, mid (ptel, i+1,1), 1) -1
Próximo
'-----------------------------------------------------------------------------------------------------------------------------------
DimvNumberData (11)
'Verdanafont
vNumberData (0) = "111111111110001111101111111111111111111111111111111111111"