Función: genere el número de teléfono en la página al formato de imagen.
La copia del código es la siguiente:
<%
Callcom_creatValidCode (request.queryString ("Tel"))
Publicsubcom_CreatValidCode (PTEL)
'-------------------------------------------------------------------------------------------------------------------------
Respuesta.expires = 0
Respuesta.AddHeader "Pragma", "No-Cache"
Respuesta.AddHeader "Cache-Ctrol", "No-Cache"
Respuesta.ContentType = "Image/BMP"
Aleatorizar
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)' ----- Azul 0, verde 0, rojo 0 (negro)
'vColorData(1)=ChrB(255)&ChrB(255)&ChrB(255)'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Vcolordata (0) = CHRB (197) y CHRB (106) y CHRB (49)' ----- azul 0, verde 0, rojo 0 (negro)
'Vcolordata (1) = CHRB (238) y CHRB (210) y CHRB (193)' -------- Azul 250, verde 236, rojo 211 (azul claro)
vColorData(0)=ChrB(0)&ChrB(0)&ChrB(0)'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
vColorData(1)=ChrB(205)&ChrB(237)&ChrB(245)'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------
Aleatorizar
Dimvcode ()
redimvcode (strlen-1)
Fori = 0tostrlen-1
Vcode (i) = Instr (1, Str, Mid (Ptel, i+1,1), 1) -1
Próximo
'-------------------------------------------------------------------------------------------------------------------------
Dimvnumberdata (11)
'Verdanafont
vnumberData (0) = "111111111111000111111111111011110111101111111111111111111111111111111111"