Empfohlen: So verhindern Sie illegaler Linkdiebstahl dieser Website Bilder Gegenwärtig gibt es viele illegale Links zum Diebstahl von Webseiten und Dateien auf anderen Websites. Die folgende Methode besteht darin, Links mithilfe von ASP -Code zu verhindern. Die Hauptidee besteht darin, Request.Servervariables zum Sammeln von http_referrer zu verwenden und dann festzustellen, ob der Link von außen basierend auf dem Wert dieser Variablen stammt, um illegale Links zu verhindern. Zunächst müssen wir das Bild wie folgt zitieren: IMGSRC =
Speichern Sie den folgenden Code als myimg.asp und fügen Sie <imgsrc = myimg.asp? Tel = 010-000000> an der Position ein, an der die zu angezeigte Nummer (z. B. QQ-Nummer usw.).| <% CALLCOM_CREATVALIDCODE (Request.queryString (Tel))) Publicsubcom_creatvalidcode (PTEL) '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Response.expires = 0 Response.addHeaderpragma, no-cache Response.addheadecache-ctrol, no-cache Antwort.ContentType = Bild/BMP Randomisieren 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)' ----- blau 0, grün 0, rot 0 (schwarz) 'Vcolordata (1) = CHRB (255) & CHRB (255) & CHRB (255)' ------ Blue 250, Green 236, Rot 211 (hellblau) 'vcolordata (0) = chrb (197) & chrb (106) & chrb (49)' ----- blau 0, grün 0, rot 0 (schwarz) 'Vcolordata (1) = CHRB (238) & CHRB (210) & CHRB (193)' ------ Blue 250, Green 236, Rot 211 (hellblau) vcolordata (0) = chrb (0) & chrb (0) & chrb (0) '------------------------------------------------------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ Vcolordata (1) = CHRB (205) & CHRB (237) & CHRB (245) '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Randomisieren Dimvcode () redimvcode (strlen-1) Fei = 0ToStrlen-1 vcode (i) = instr (1, str, Mid (ptel, i+1,1), 1) -1 Nächste '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- DimvnumberData (11) 'Verdanafont vnumberData (0) = 1111111111100011111111111111111111111111111111111111111111111111111111111111111111 vnumberData (1) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111 VNumberData (2) = 11111111111000111111111111111111111111111111111111111110000011111111 vnumberData (3) = 11111111111000111111111111111111001111111111111111111111111111111111111111111111111 vnumberData (4) = 11111111111111111111111111111111111111111111110000111111111110011111111 vnumberData (5) = 111111111100000111111111111111001111111111111111111111111111111111111111111111111111111111111111111111 vnumberData (6) = 1111111111100011110110111111111100111111111111111111111111111111111111111111111111111111 vnumberData (7) = 111111111100000111111111111111111111111111111111111111111111111111111111111111111111 vnumberData (8) = 111111111110001111111111111111110001111111111111111111111111111111111111111111111 vnumberData (9) = 1111111111100011111111111111111111111111111111111111111111111111111 vnumberData (10) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111 vnumberData (11) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111 '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Response.BINYWRITECHRB (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) '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Antwort.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) ((((Strlen) ((Strlen))/256)/256)/256)/256)/256) MOD26) & (((Strlen)/256)/256)/256)/256) MOD26) & (((Strlen)/256)/256)/256)/256) MOD26) & (((Strlen) &)/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) & CHRB (0) Fei = 9to0Step-1 '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Forii = 0tostrlen-1 '--------- Nach allen Wörtern Foriii = 1to8 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------/ ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- IFRND*99+1 <coddSthen '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Antwort.BinaryWriterndColor Anders Antwort. Endif Nächste Nächste Nächste Ende %> |
Teilen: Allgemeiner Erwerb des Kodex für drei Artikel in jedem Artikel Allgemeiner Code für drei Artikel im vorherigen und nächsten Artikel. Das Beispiel verwendet ein ASP -Tutorial, das hauptsächlich SQL -Anweisungen versteht, wobei ID auf den aktuellen Artikel bezieht. Vorherige drei Artikel