Recomendado: Separación del código y página en ASP Para evitar las dificultades de mantenimiento causadas por la mezcla de programas ASP y el código HTML, este artículo presenta un método para usar plantillas para separar programas y páginas para facilitar la programación. Al usar ASP para crear un sitio, a menudo hay una situación en la que el código del programa y el código HTML se mezclan en un archivo ASP. Hay muchas desventajas para hacer esto: 1. Sin mencionar la programación, necesita
Función: genere el número de teléfono en la página al formato de imagen.
<%
Llame a COM_CREATVALIDCODE (request.queryString (Tel))
Public sub com_creatValidCode (PTEL)
'-------------------------------------------------------------------------------------------------------------------------
Respuesta.expires = 0
Respuesta
Respuesta
Respuesta.ContentType = Image/BMP
Aleatorizar
Dim I, II, III, Rndcolor, Strlen, SQL, RS
Const bodds = 5 '----------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------
Const str = 0123456789-
strlen = len (ptel)
rndcolor = Chrb (Cint (RND*255)) & Chrb (Cint (RND*255)) & CHRB (Cint (RND*255))
'-------------------------------------------------------------------------------------------------------------------------
Dim vcolordata (1)
'Vcolordata (0) = CHRB (0) & CHRB (0) & CHRB (0)' ----- Azul 0, verde 0, rojo 0 (negro)
'Vcolordata (1) = CHRB (255) y CHRB (255) y 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) y CHRB (0) y CHRB (0) '------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------
VColordata (1) = CHRB (205) y CHRB (237) y CHRB (245) '------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------
Aleatorizar
Dim vcode ()
Redim vcode (strlen-1)
Para i = 0 a strlen-1
Vcode (i) = Instr (1, Str, Mid (Ptel, i+1,1), 1) -1
Próximo
'-------------------------------------------------------------------------------------------------------------------------
Dim vnumberdata (11)
'Fuerte Verdana
VNumberData (0) = 1111111111110001111111111101111011110111101111011110111101111111111111111
vnumberData (1) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
VNumberData (2) = 1111111111111000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberData (3) = 1111111111111000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
VNumberData (4) = 1111111111111110111111111101111011110111101111011110111111000011111111111
vnumberData (5) = 1111111111100000111111111111110000111111111111111111111111111111111111111111111111111111
vnumberData (6) = 111111111111100011111111111111000111111111111111111111111111111111111111111111111111111111
vnumberData (7) = 111111111100000111011011111111111111111111111111111111111111111111111111111111111111
VNumberData (8) = 1111111111110001111111111101111011110001111111111101111111111111111111111
vnumberData (9) = 11111111111100011111111111011110111101111011110111111000111111111111111
vnumberData (10) = 111111111111111111111111111111111111111111000001111111111111111111111111111111111111
vnumberdata (11) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111R
'-------------------------------------------------------------------------------------------------------------------------
Response.BinaryWrite Chrb (66) & Chrb (77) & Chrb ((((strlen*8*10*3+54) mod 256)) & chrb ((((strlen*8*10*3+54)/ 256) mod 256) & chrb ((((((((((((((((((((((((((((((((((((8), 0) y chreb (nch. & _
CHRB (0) & CHRB (0) & CHRB (54) & CHRB (0) & CHRB (0) & CHRB (0) & CHRB (40) & CHRB (0) & _ _
Chrb (0) & Chrb (0) & Chrb (Strlen*8) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (10) & Chrb (0) & _ _
CHRB (0) y CHRB (0) y CHRB (1) y CHRB (0)
'-------------------------------------------------------------------------------------------------------------------------
Response.BinaryWrite Chrb (24) & Chrb (0) & Chrb (0) & 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) mod 256) & __
CHRB (196) & CHRB (14) & CHRB (0) & CHRB (0) & CHRB (196) & CHRB (14) & CHRB (0) & CHRB (0) & _ _
CHRB (0) & CHRB (0) & CHRB (0) & CHRB (0) & CHRB (0) & CHRB (0) & CHRB (0) & CHRB (0) & CHRB (0) & CHRB (0)
Para i = 9 a 0 paso -1 '------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------
Para ii = 0 a strlen-1 '--------- Después de todas las palabras
Para iii = 1 a 8 '---------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------
Si rnd * 99 + 1 <codds entonces '----------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------
Respuesta.binarywrite rndcolor
Demás
Response.BinaryWrite VColordata (Mid (VNumberData (Vcode (ii)), I * 8 + iii, 1))
Final si
Próximo
Próximo
Próximo
Final
%>
Guarde el código anterior como img.asp e inserte <img src = img.asp? Tel = 0591-26728373> en la ubicación donde se va a mostrar el número de teléfono.
Fuente: Muziwu Autor: Dnawo
Compartir: Tutorial de ASP: Consejos para ASP para generar pseudo-parámetros Hace dos días, estaba trabajando en una versión en el sitio del motor de búsqueda empresarial y descubrí que algunos sitios pueden vincular al contenido del sitio. . Lo miré extrañamente y descubrí que estaba vinculado de acuerdo con las reglas de numeración automática de la ID de base de datos ~~ ¡Hice lo siguiente en mi tiempo libre, con la esperanza de que sea útil para todos en el futuro escribiendo programas ASP! % '' // Generar un número aleatorio de dígitos especificados '' // También puede usar GUID