Sebenarnya, niat awal saya melakukan ini adalah untuk mencegah hot link! Tolong bantu saya mencari tahu cara menghilangkan hotlinking melalui kode! Selama HTTP_REFERER tidak berasal dari (google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com) permintaan dari sumber URL ini akan diteruskan ke 404
Copy kode kodenya sebagai berikut:
<%
Redupkan, reg
a = Permintaan.ServerVariables(HTTP_REFERER).Item
Setel reg = RegExp Baru
reg.Pattern = ^http://(?:[^.]*/.)?(?:google/.com|google/.cn|baidu/.com)(/|$)
reg.IgnoreCase = Benar
Jika Tidak reg.Uji(a) Kemudian
Setreg=Tidak ada
Respon.Status = 404 File Tidak Ditemukan.
Respon.Akhir
Akhiri Jika
Setreg=Tidak ada
' .... melanjutkan
%>
Copy kode kodenya sebagai berikut:
<%@LANGUAGE=KODE VBSCRIPT=65001%>
<%Redupkan OK_URL,URL,HTTP_REFERER
'Sesuaikan string yang perlu difilter, dipisahkan dengan |
OK_URL= informasi pengecualian google.com|google.cn|baidu.com'
OK_URL= split(OK_URL,|) 'Pisahkan informasi pengecualian
URL=404.htm 'Atur halaman yang akan dituju
HTTP_REFERER=Request.ServerVariables(HTTP_REFERER)'Dapatkan URL sumber
Jika HTTP_REFERER<> Lalu
Untuk Setiap REFERER Di HTTP_REFERER
Untuk i=0 Ke Ubound(OK_URL)
Jika Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 Maka'Jika URL sumber bukan salah satu pengecualian di atas, maka langsung kembali ke halaman web yang ditunjuk!
Respons.Redirect(URL):Respon.End()
Berakhir jika
Berikutnya
Berikutnya
Berakhir Jika%>