Direkomendasikan: Cara mencegah pencurian tautan ilegal dari gambar situs ini Saat ini, ada banyak tautan ilegal untuk pencurian halaman web dan file di situs web lain. Metode berikut adalah mencegah tautan menggunakan kode ASP. Gagasan utamanya adalah menggunakan permintaan. SERVERVARIABLE untuk mengumpulkan HTTP_REFERRER, dan kemudian menentukan apakah tautan berasal dari luar berdasarkan nilai variabel ini untuk mencegah tautan ilegal. Pertama, kita perlu mengutip gambar sebagai berikut: IMGSRC =
Simpan kode berikut sebagai myimg.asp, dan masukkan <imgsrc = myimg.asp? Tel = 010-000000> pada posisi di mana nomor yang akan ditampilkan (seperti nomor qq, dll.).| <% Callcom_createValidCode (request.querystring (tel)) Publicsubcom_createValidCode (PTEL) '------------------------------------------------------------------------------------------------------------------------- Response.expires = 0 Response.addheaderpragma, tanpa cache Response.addheadercache-ctrol, tanpa cache Response.contentType = gambar/BMP Mengacak 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)' ----- biru 0, hijau 0, merah 0 (hitam) 'vcolordata (1) = chrb (255) & chrb (255) & chrb (255)' ------ biru 250, hijau 236, merah 211 (biru muda) 'vcolordata (0) = chrb (197) & chrb (106) & chrb (49)' ----- biru 0, hijau 0, merah 0 (hitam) 'vcolordata (1) = chrb (238) & chrb (210) & chrb (193)' ------ biru 250, hijau 236, merah 211 (biru muda) vcolordata (0) = chrb (0) & chrb (0) & Chrb (0) '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- vcolordata (1) = chrb (205) & chrb (237) & chrb (245) '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------------------------------------- Mengacak Dimvcode () RediMvCode (Strlen-1) Fori = 0tostrlen-1 vcode (i) = instr (1, str, mid (ptel, i+1,1), 1) -1 Berikutnya '------------------------------------------------------------------------------------------------------------------------- Dimvnumberberdata (11) 'Verdanafont Vnumberberdata (0) = 111111111110111110111011101110111011101110111011101110111011.00011111111111111111111111111111111111111111111111111111111111111111111111 Vnumberberdata (1) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 VNumberberdata (2) = 111111111110111110111110111111111111111111111111111111111111100000111111111111 VNumberberdata (3) = 1111111111101111101111111111111110011111111111111111111101111.000111111111111 VNumberberdata (4) = 1111111111111111111111111111111101111111111111110000111111111111100111111111111 Vnumberberdata (5) = 11111111110000011101111111111111100001111111111111111111111111111.00011111111111111111111111111111111111111111111111111111111111111111111 Vnumberberdata (6) = 111111111110111110111111111111100001111111111111011101110111011000111111111111 VNumberberdata (7) = 11111111110000011101111111111111111111111111111111111111111111111111111111111111 Vnumberberdata (8) = 1111111111100011111011101111111110111110111011101110111011101100011111111111111111111111111111111111111111111111111111111111111111111111 VNumberberdata (9) = 1111111111101111101110111110111011111111000011111111111110111111000011111111111 Vnumberberdata (10) = 111111111111111111111111111111111111111100000.000111111111111111111111111111111111 VNumberberdata (11) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 '------------------------------------------------------------------------------------------------------------------------- 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)/256)/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) Fori = 9to0step-1 '---------------------------------------------------------------------------------------------------------------------- Forii = 0tostrlen-1 '--------- Setelah semua kata Foriii = 1to8 '----------------------------------------------------------------------------------------------------------------- '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- IFRND*99+1 <coddsthen '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Response.binarywriterndcolor Kalau tidak Response.binarywritevcolordata (mid (vnumberberdata (vcode (ii)), i*8+iii, 1)) Endif Berikutnya Berikutnya Berikutnya Endsub %> |
Bagikan: Akuisisi Umum Kode untuk Tiga Artikel di Setiap Artikel Kode umum untuk tiga artikel di artikel sebelumnya dan berikutnya. Contoh ini menggunakan tutorial ASP, yang terutama memahami pernyataan SQL, di mana ID mengacu pada artikel saat ini. Sebelumnya Tiga Artikel SQL = SelectTop3*dari ContentwhereIdId Tiga Artikel Berikutnya SQL = SelectTop3*FromContentwhereIdOrderByIddesc