Recomendado: Cómo implementar la compresión de RAR y la descompresión del código fuente en ASP ASP implementa la compresión de RAR y la descompresión del código fuente, y se puede hacer con solo un archivo. ASP comprime directorios o archivos, descomprime los archivos RAR, elimina archivos específicos y otras funciones. Este código fuente es conveniente para que todos desarrollen secundaria y lo compartan. El siguiente es el código Winrar.asp:
Función: use el programa ASP para generar formato de imagen para los números de teléfono en la página.
El siguiente es un fragmento citado:
El siguiente es el contenido citado:
<%
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 codds = 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) & 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
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) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
VNumberData (2) = 1111111111111000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberData (3) = 1111111111111000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberData (4) = 1111111111111110111111111101111011110111101111011110111111111110000111111111111
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 ((((((((((((((((((((((((((((((0) y _) y Chrb (0) & _,
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 = 010-000000> en la ubicación donde se va a mostrar el número de teléfono.
Compartir: ASP implementa operaciones de adición y sustracción en formato de fecha de instrucción SQL Hoy me encontré con un problema en el trabajo, y necesitaba consultar por el tiempo, pero los resultados de la consulta se mostraron incorrectamente. Por ejemplo, para conocer los miembros registrados en el sitio web entre 2007-10-12 y 2007-10-31, después de seleccionar la fecha, haga clic en "Consulta y R