Рекомендуется: как предотвратить незаконную кражу ссылок на картинки на сайте В настоящее время существует много незаконных ссылок на кражу веб -страниц и файлов на других веб -сайтах. Следующий метод должен предотвратить ссылки с использованием кода ASP. Основная идея состоит в том, чтобы использовать request.servervariables для сбора http_referrer, а затем определить, поступает ли ссылка извне на основе значения этой переменной для предотвращения незаконных ссылок. Во -первых, нам нужно процитировать изображение следующим образом: imgsrc =
Сохраните следующий код как myimg.asp и вставьте <imgsrc = myimg.asp? Tel = 010-000000> в положении, где отображается номер (например, номер QQ и т. Д.).| <% Callcom_creatvalidcode (request.querystring (tel)) Publicsubcom_creatvalidcode (ptel) '------------------------------------------------------------------------------------------------------------------------- Response.expires = 0 Response.addheaderpragma, без кэша Response.addheadercache-ctrol, без кэша Response.contenttype = image/bmp Рандомизировать 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)' ----- Синий 0, зеленый 0, красный 0 (черный) 'vcolordata (1) = Chrb (255) и Chrb (255) и Chrb (255)' ------ Blue 250, зеленый 236, красный 211 (светло-голубой) 'vcolordata (0) = Chrb (197) & Chrb (106) и Chrb (49)' ----- Blue 0, зеленый 0, красный 0 (черный) 'vcolordata (1) = Chrb (238) и Chrb (210) и Chrb (193)' ------ Blue 250, Green 236, Red 211 (светло-голубой) vColorData(0)=ChrB(0)&ChrB(0)&ChrB(0)'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------. Vcolordata (1) = Chrb (205) и Chrb (237) и Chrb (245) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------------------------------------- Рандомизировать Dimvcode () RedimvCode (strlen-1) Fori = 0ToStrlen-1 vcode (i) = instr (1, str, mid (ptel, i+1,1), 1) -1 Следующий '------------------------------------------------------------------------------------------------------------------------- DimvnumberData (11) 'Верданафонт vnumberdata (0) = 1111111111111111111111111111111111111111111111101111111111111,00011111111111111111111111111111111111111111111111111111111 vnumberdata (1) = 11111111111111111111111111111111111111111111111111111111111111111111111111111 vnumberdata (2) = 111111111111111111111111111111111111111111111111111111111111111111111111 VnumberData (3) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 vnumberdata (4) = 1111111111111111111111111011111011111011111100001111111111111111111111 VnumberData (5) = 11111111110011111111111111111100111111111111111110111111111111111111111111111111111111111111.1111111111111111111111111111111111111111111111111111111111111111111111111111111111ном vnumberdata (6) = 1111111111111110110111111111110000111011101110111011111111111111111111111111111111111111111111 VnumberData (7) = 11111111110000011101111111111111111111111111111111111111111111111111111 VnumberData (8) = 111111111111111111111111111111011111111111111111111101111111111111тив111111111111111111111111111 VnumberData (9) = 111111111111111111111111111111111111111111111111111011011110011111111111 vnumberdata (10) = 111111111111111111111111111111111 :111111111111111111111111111111 VnumberData (11) = 111111111111111111111111111111111Ж1111111Ж1111111Ж11111Ж11111Ж11111Ж '------------------------------------------------------------------------------------------------------------------------- Response.binaryWritechrb (66) и Chrb (77) и 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) & 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) & CHRB (0) & CHRB (1) & 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) Mod2566666666). 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 '--------- В конце концов слова Foriii = 1to8 '--------------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Ifrnd*99+1 <coddsthen '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Response.binarywriterndcolor Еще Response.binarywritevcolordata (mid (vnumberdata (vcode (ii)), i*8+iii, 1)) Эндиф Следующий Следующий Следующий Заканчивая %> |
Поделиться: общее приобретение кода для трех статей в каждой статье Общий код для трех статей в предыдущих и следующих статьях. В примере используется учебник ASP, который в основном понимает операторы SQL, где ID относится к текущей статье. Предыдущие три статьи sql = selectTop3*из ContentIdeId следующие три статьи sql = selectTop3*fromContentwareIdorderByidDesc