Recomendado: Como evitar o roubo ilegal de link deste site Atualmente, existem muitos links ilegais para roubo de páginas e arquivos da Web em outros sites. O método a seguir é para evitar links usando o código ASP. A idéia principal é usar a solicitação.Servervariables para coletar http_referrer e, em seguida, determinar se o link vem de fora com base no valor dessa variável para evitar links ilegais. Primeiro, precisamos citar a imagem da seguinte forma: imgsrc =
Salve o seguinte código como myimg.asp e insira <imgsrc = myimg.asp? Tel = 010-000000> Na posição em que o número a ser exibido (como o número QQ, etc.).| <% CallCom_CreatValidCode (Request.QueryString (Tel)) PublicsubCom_CreatValidCode (PTEL) '----------------------------------------------------------------------------------------------------------------------------------- Response.Expires = 0 Response.AddHeaderPragma, sem cache Response.AddHeaderCache-Ctrol, sem cache Response.ContentType = Image/BMP Randomizar 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) e Chrb (0) e Chrb (0)' ----- Blue 0, verde 0, vermelho 0 (preto) 'vcolordata (1) = Chrb (255) e Chrb (255) e Chrb (255)' ------ Blue 250, Green 236, vermelho 211 (azul claro) 'vcolordata (0) = Chrb (197) e Chrb (106) e Chrb (49)' ----- Blue 0, Green 0, Red 0 (preto) 'vcolordata (1) = Chrb (238) e Chrb (210) e Chrb (193)' ------ Blue 250, Green 236, vermelho 211 (azul claro) vcolordata (0) = Chrb (0) e Chrb (0) e Chrb (0) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- vcolordata (1) = Chrb (205) e Chrb (237) e Chrb (245) '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------------- Randomizar Dimvcode () Redimvcode (Strlen-1) Fori = 0tostrlen-1 vcode (i) = instrum (1, str, mid (ptel, i+1,1), 1) -1 Próximo '----------------------------------------------------------------------------------------------------------------------------------- DimvNumberData (11) 'Verdanafont vNumberData (0) = 111111111110001111011101110111011101110111011101110111011101110111111111111111111 vnumberData (1) = 1111111111111111110011111111111111111111111111111111111111111111111111111111111111 vNumberData (2) = 1111111111100011110111011101110111111111111111111111111111111111111100000111111111 vNumberData (3) = 1111111111100011110111011111110111111111111111111111111111111111111111111111111111 vNumberData (4) = 111111111111111111100111111101111101111101111111111000000111111111111111100111111111 vNumberData (5) = 111111111000001110111111111011111110000001111111111111111111111101111111111111111111 vNumberData (6) = 111111111110001111011011111111111111000011110111011101110111011101111110001111111111 vNumberData (7) = 11111111100000111011011111111111111111111111111111111111111111111111111111111111111 vNumberData (8) = 111111111110001111011101110111011110001111111111110111011101110111111111111111111 vNumberData (9) = 111111111110001111011101110111011101111111100001111111111111111111111110000111111111 vNumberData (10) = 111111111111111111111111111111111111111111111111111111111111111111111111111111 vNumberData (11) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111 '----------------------------------------------------------------------------------------------------------------------------------- Response.BinaryWritechrb (66) e Chrb (77) e Chrb (((Strlen*8*10*3+54) Mod256)) & 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) e Chrb (54) e Chrb (0) e Chrb (0) e Chrb (0) & Chrb (40) & Chrb (0) & _ Chrb (0) e Chrb (0) e Chrb (Strlen*8) & Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (10) e Chrb (0) & _ Chrb (0) e Chrb (0) e Chrb (1) e Chrb (0) '----------------------------------------------------------------------------------------------------------------------------------- Response.BinaryWritechrb (24) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e 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) e Chrb (14) e Chrb (0) e Chrb (0) e Chrb (196) e Chrb (14) e Chrb (0) e Chrb (0) e Chrb (0) & _ Chrb (0) & Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) e Chrb (0) Fori = 9to0Step-1 '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Forii = 0tostrlen-1 '--------- depois de todas as palavras Foriii = 1to8 '--------------------------------------------------------------------------------------------------------------------- '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Ifrnd*99+1 <coddsthen '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Response.BinaryWrriterNndColor Outro Response.BinaryWriteVColordata (MID (VNumberData (vcode (ii)), i*8+iii, 1)) Endif Próximo Próximo Próximo Endsub %> |
Compartilhar: Aquisição geral do Código para três artigos em cada artigo Código geral para três artigos nos artigos anteriores e próximos. O exemplo usa um tutorial do ASP, que entende principalmente as instruções SQL, onde o ID se refere ao artigo atual. Três artigos anteriores sql = selectTop3*de contentIdId Avançar três artigos sql = selectTop3*decontentwhereDorderByidDesc