Función: Utilice el programa ASP para generar el número de teléfono de la página en formato de imagen.
Aquí hay una cita:
<%
Llame a Com_CreatValidCode(Request.QueryString("tel"))
Public Sub Com_CreatValidCode(pTel)
'----------Desactivar el almacenamiento en caché
Respuesta.Expira = 0
Response.AddHeader "Pragma", "sin caché"
Response.AddHeader "cache-ctrol", "no-cache"
Response.ContentType = "Imagen/BMP"
Aleatorizar
Dim i, ii, iii, rndColor, strLen, sql, rs
Const cOdds = 5 '--------La probabilidad de que aparezca ruido
Const str="0123456789-"
strLen = len(pTel)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'----------Datos de color (caracteres, fondo)
Atenuar vColorData(1)
'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '----Azul 0, Verde 0, Rojo 0 (negro)
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----Azul 250, Verde 236, Rojo 211 (azul claro)
'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49) '---- Azul 0, Verde 0, Rojo 0 (negro)
'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----Azul 250, Verde 236, Rojo 211 (azul claro)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------Azul 0, Verde 0, Rojo 0 (negro)
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------Azul 250, Verde 236, Rojo 211 (azul claro)
'---- - --------------- Generar caracteres aleatoriamente
Aleatorizar
Atenuar vCode()
redimir vCode (strLen-1)
Para i = 0 Para strLen-1
vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
Siguiente
'----------Datos del personaje
Atenuar vNumberData(11)
'Fuente Verdana
vNumberData(0) = "11111111111000111101110111011101110111011101110111011101110111011110001111111111"
vNumberData(1) = "11111111111101111110011111110111111101111111011111110111111101111110001111111111"
vNumberData(2) = "1111111111100011110111011101110111110111111011111101111110111111100000111111111"
vNumberData(3) = "11111111111000111101110111111101111100111111110111111101110111011110001111111111"
vNumberData(4) = "111111111111101111110011111010111110101111011011111000011111101111111001111111111"
vNumberData(5) = "11111111110000011101111111011111110000111111110111111101110111011110001111111111"
vNumberData(6) = "1111111111100011110110111101111110000111101110111011101110111011110001111111111"
vNumberData(7) = "111111111100000111011011111110111111011111110111111101111111011111110111111111111"
vNumberData(8) = "11111111111000111101110111011101111000111101110111011101110111011110001111111111"
vNumberData(9) = "11111111111000111101110111011101110111011110000111111101111011011110000111111111"
vNumberData(10) = "111111111111111111111111111111111111111111111111111111111111111111111111111111111"
vNumberData(11) = "111111111111111111111111111111111111111111111111111111111111111111111111111111111"
'-----------------Encabezado del archivo de imagen de salida<br>
Response.BinaryWrite ChrB(66) & ChrB(77) &chrb(((strLen*8*10*3+54) mod 256)) & chrb(((strLen*8*10*3+54) 256)mod 256 ) & ChrB((((strLen*8*10*3+54) 256)256)mod 256) & ChrB(((((strLen*8*10*3+54) 256)256) 256)mod 256) & ChrB(0) & ChrB(0) &_
ChrB(0) y ChrB(0) y ChrB(54) y ChrB(0) y ChrB(0) y ChrB(0) y ChrB(40) y ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(strLen*8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
ChrB(0) y ChrB(0) y ChrB(1) y ChrB(0)
'------------------Encabezado de información de la imagen de salida
Respuesta.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)&_
ChrB((strLen*8*10*3)mod 256)&ChrB(((strLen*8*10*3)256)mod 256)&ChrB((((strLen*8*10*3)256)256 )mod 256)&ChrB(((((strLen*8*10*3)256)256)256)mod 256)&_
ChrB(196) y ChrB(14) y ChrB(0) y ChrB(0) y ChrB(196) y ChrB(14) y ChrB(0) y ChrB(0) &_
ChrB(0) y ChrB(0) y ChrB(0) y ChrB(0) y ChrB(0) y ChrB(0) y ChrB(0) y ChrB(0)
Para i = 9 a 0 Paso -1 '----------Recorre todas las filas
For ii = 0 To strLen-1 '------Recorre todas las palabras
Para iii = 1 a 8 '--------Recorra todos los píxeles
'---------Salida de datos de imagen línea por línea, palabra por palabra y píxel por píxel
Si Rnd * 99 + 1 < cOdds Then '--------- Genera ruido aleatoriamente
Respuesta.BinaryWrite rndColor
Demás
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
Terminar si
Próximo
Próximo
Próximo
Subtítulo final
%>
Guarde el código anterior como img.asp e inserte <img src="img.asp?tel=010-0000000"> donde desea mostrar el número de teléfono.