Recommandé: comment empêcher le vol de liaison illégale de ce site photos À l'heure actuelle, il existe de nombreux liens illégaux vers le vol de pages Web et de fichiers sur d'autres sites Web. La méthode suivante consiste à empêcher les liens à l'aide du code ASP. L'idée principale est d'utiliser la demande. Tout d'abord, nous devons citer l'image comme suit: imgsrc =
Enregistrez le code suivant en tant que myimg.asp et insérez <imgsrc = myimg.asp? Tel = 010-000000> à la position où le nombre à afficher (tel que le numéro QQ, etc.).| <% Callcom_creatvalidcode (request.Querystring (Tel)) Publicsubcom_creatValidcode (PTEL) '----------------------------------------------------------------------------------------------------------------------------- Response.expires = 0 Réponse.addheaderpragma, sans cache Réponse.addheadercache-ctrol, sans cache Response.ContentType = Image / BMP Randomiser 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)' ------ Blue 0, vert 0, rouge 0 (noir) 'VColordata (1) = Chrb (255) & Chrb (255) & Chrb (255)' ------ Blue 250, vert 236, rouge 211 (bleu clair) 'VColordata (0) = Chrb (197) & Chrb (106) & Chrb (49)' ----- Blue 0, vert 0, rouge 0 (noir) 'VColordata (1) = Chrb (238) & Chrb (210) & Chrb (193)' ------ Blue 250, vert 236, rouge 211 (bleu clair) vColorData(0)=ChrB(0)&ChrB(0)&ChrB(0)'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- VColordata (1) = Chrb (205) & Chrb (237) & Chrb (245) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------- Randomiser Dimvcode () redimvcode (strlen-1) Fori = 0tostrlen-1 vCode (i) = instr (1, str, mid (ptel, i + 1,1), 1) -1 Suivant '----------------------------------------------------------------------------------------------------------------------------- Dimvnumberdata (11) 'Verdanafont vnumberdata (0) = 1111111110001111111111111111111111111111111111111111111111111111111111111 vnumberdata (1) = 111111111111111100111111111111111111111111111111111111111111111111111 vnumberdata (2) = 1111111110001111111111111111111111111111111111111111111110000011111111111 vnumberdata (3) = 11111111100011111111111111111110011111111111111111111111111111111111111 vnumberdata (4) = 1111111111111111001111111111111111111111111100001111111111110011111111111 VNumberdata (5) = 111111111000001111111111111111000011111111111111111111111111111111111111 VNumberdata (6) = 11111111110001111111111111111110000111111111111111111111111100011111111111111 VNumberdata (7) = 11111111100000111111111111111111111111111111111111111111111111111111111 vnumberdata (8) = 11111111100011111111111111111110001111111111111111111111111111111111111111 vnumberdata (9) = 11111111100011111111111111111111111111000000111111111111111111000011111111111 vnumberdata (10) = 1111111111111111111111111111111110000011111111111111111111111111111 vnumberdata (11) = 111111111111111111111111111111111111111111111111111111111111111111 '----------------------------------------------------------------------------------------------------------------------------- Réponse.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) '----------------------------------------------------------------------------------------------------------------------------- Réponse.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 '--------- après tous les mots Foriii = 1to8 '----------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Ifrnd * 99 + 1 <coddSthen '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Réponse. Autre Réponse.binarywritevcolordata (mid (vNumberData (vCode (ii)), i * 8 + iii, 1)) Endire Suivant Suivant Suivant Fin %> |
Partager: Acquisition générale du code pour trois articles dans chaque article Code général pour trois articles dans les articles précédents et suivants. L'exemple utilise un tutoriel ASP, qui comprend principalement les instructions SQL, où ID fait référence à l'article actuel. Trois articles précédents sql = selecttop3 * dans le contenuwheredid trois articles suivants sql = selecttop3 * FromContentwheredOrderByIdDesc