Recomendado: Cómo prevenir el robo de enlaces ilegales de las imágenes de este sitio En la actualidad, hay muchos enlaces ilegales al robo de páginas web y archivos en otros sitios web. El siguiente método es evitar enlaces usando el código ASP. La idea principal es usar request.servervariables para recopilar http_referrer, y luego determinar si el enlace proviene del exterior en función del valor de esta variable para evitar enlaces ilegales. Primero, necesitamos citar la imagen de la siguiente manera: imgsrc =
Guarde el siguiente código como myimg.asp e inserte <imgsrc = myImg.asp? Tel = 010-000000> en la posición donde se mostrará el número (como el número QQ, etc.).| <% Callcom_creatValidCode (request.queryString (tel)) Publicsubcom_CreatValidCode (PTEL) '------------------------------------------------------------------------------------------------------------------------- Respuesta.expires = 0 Respuesta.AddHheaderPragma, No-Cache Respuesta.AddheaderCache-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) y CHRB (255) y CHRB (255)' ------ Azul 250, verde 236, rojo 211 (azul claro) '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) y CHRB (237) y 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) = 1111111111110001111011101110111110111011101111111011101111111111110001111111111 VNumberData (1) = 1111111111111101111110011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 vnumberData (2) = 111111111111000111101111111111111111101111110111111101111111111111110000011111111111 vnumberData (3) = 1111111111110001111011111111111111111001111111101111111111111111111111000111111111111111111111111111111111111111111111 vnumberData (4) = 11111111111111111111110011111111111111111101101111110000111111111111100111111111111 vnumberData (5) = 111111111100000111111111111111111000011111111011111111111111111111110001111111111 vnumberData (6) = 11111111111100011110110111101111111000011110111011101111111111111100011111111111111111111111111111111111111111111111111 vnumberData (7) = 111111111100000111011011111111111111111111111111111111111111111111111111111111111111 vnumberData (8) = 1111111111110001111011111011111111000111101110111011101111111111110001111111111 VNumberData (9) = 1111111111110001111011111011111111111111111000011111111111111011011110000111111111111 vnumberData (10) = 111111111111111111111111111111111111111111000001111111111111111111111111111111111111 vnumberdata (11) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111R '------------------------------------------------------------------------------------------------------------------------- Response.BinaryWriteChrb (66) y CHRB (77) y CHRB (((Strlen*8*10*3+54) MOD256)) y CHRB (((STRLEN *8*10*3+54)/256) MOD256) & CHRB (((((Strlen*8*10*3+54)/256)/256) MOD256) & CHRB (0) & 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.BinaryWriteChrb (24) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & Chrb (0) & _ _ Chrb ((strlen*8*10*3) mod256) & chrb ((((strlen*8*10*3)/256) mod256) & chrb (((((strlen*8*10*3)/256)/256) mod256) & chrb (((((((strlen*8*10*3)/256)/256) mod256) & _ 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) & CHRB (0) Fori = 9to0step-1 '------------------------------------------------------------------------------------------------------------------ Forii = 0tostrlen-1 '--------- Después de todas las palabras Foriii = 1to8 '----------------------------------------------------------------------------------------------------------------- '--------------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------------- Ifrnd*99+1 <Coddsthen '------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------- Respuesta.BinaryWriterndColor Demás Response.BinaryWriteVcolordata (Mid (VNumberData (Vcode (ii)), I*8+iii, 1)) Endif Próximo Próximo Próximo Endsub %> |
Compartir: Adquisición general del código para tres artículos en cada artículo Código general para tres artículos en los artículos anteriores y próximos. El ejemplo utiliza un tutorial ASP, que comprende principalmente las declaraciones SQL, donde ID se refiere al artículo actual. Tres artículos anteriores sql = selectTop3*de contentwhereDid Siguientes tres artículos sql = selectTop3*fromContentWhereDorderByidDesc