Berbagi kode serangan anti-CC asp yang lebih komprehensif, terutama menggunakan sesi untuk menilai. Copy kode kodenya sebagai berikut:
<%
Redupkan CC_Info(4),strInfo,strTemp
Jika Sesi(CC_Info) = Lalu
CC_Info(0) = cclog.txt 'Nama file log
CC_Info(1) = Permintaan.Variabel Server(HTTP_X_FORWARDED_FOR)
CC_Info(2) = Permintaan.Variabel Server(REMOTE_ADDR)
CC_Info(3) = 10 'Larang menyegarkan halaman saat ini dalam waktu N detik
CC_Info(4) = badip.txt 'Nama file daftar hitam IP
Sesi(CC_Info) = CC_Info(0) &|& CC_Info(1) &|& CC_Info(2) &|& CC_Info(3) &|& CC_Info(4)
Kalau tidak
strInfo = Pisahkan(Sesi(CC_Info),|)
CC_Info(0) = strInfo(0)
CC_Info(1) = strInfo(1)
CC_Info(2) = strInfo(2)
CC_Info(3) = strInfo(3)
CC_Info(4) = strInfo(4)
Akhiri Jika
Const chkRefresh = 1 '0 mematikan anti-refresh
Const chkProxy = 1 '0 mematikan verifikasi proxy
Const chkBadIP = 1 '0 mematikan daftar hitam IP
Jika Sesi(BadIP) = Lalu
strInfo = BacaFile(CC_Info(4))
Jika strInfo = Maka strInfo = chinavb.net
Sesi(BadIP) = strInfo
Kalau tidak
strInfo = Sesi(BadIP)
Akhiri Jika
'/*Penilaian lapisan pertama, larang penyegaran dalam N detik*/
Jika chkRefresh = 1 Lalu
Jika Sesi(RefreshTime)= Lalu
Sesi(Waktu Segarkan)=Sekarang()
Kalau tidak
Jika DateDiff(s, Session(RefreshTime), Now()) < CInt(CC_Info(3)) Lalu
Response.Write(Sistem sedang sibuk, silakan coba lagi nanti! Kode kesalahan 001)
Respon.Akhir()
Kalau tidak
Sesi(Waktu Segarkan)=Sekarang()
Akhiri Jika
Akhiri Jika
Akhiri Jika
'/*Penilaian tingkat kedua, agen melarang menonton*/
Jika chkProxy = 1 Maka
Jika CC_Info(1) <> Lalu
Jika InStr(strInfo,CC_Info(1)) = 0 Maka
strTemp = CC_Info(1) & vbCrLf
Jika InStr(strInfo,CC_Info(2)) = 0 Maka
strTemp = strTemp & [ & CC_Info(2) & ] & vbCrLf
Akhiri Jika
SaveLog CC_Info(4),strTemp
strInfo = strInfo & strTemp
Sesi(BadIP) = strInfo
Akhiri Jika
'Rekam log serangan CC
SaveLog CC_Info(0),CC_Info(1) & [& CC_Info(2) & ] & Sekarang() &vbCrLf
Response.Write(Sistem sedang sibuk, silakan coba lagi nanti! Kode kesalahan 002)
Respon.Akhir()
Akhiri Jika
Akhiri Jika
'/*Penilaian tingkat ketiga, daftar hitam IP melarang penayangan*/
Jika chkBadIP = 1 Maka
Jika InStr(strInfo,CC_Info(2))>0 Lalu
Response.Write(Sistem sedang sibuk, silakan coba lagi nanti! Kode kesalahan 003)
Respon.Akhir()
Akhiri Jika
Akhiri Jika
'UntukMembaca=1,UntukMenulis=2,UntukMenambahkan=8
Fungsi SaveLog (nama file, konten file)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan file ini
nama file = Server.MapPath(nama file)
Setel fso = CreateObject(Scripting.FileSystemObject)
Jika Err <> 0 Lalu
Response.Write(Gagal menulis file &namafile&, mungkin sistem Anda tidak mendukung FSO!)
Respon.Akhir()
Akhiri Jika
Setel file ini = fso.OpenTextFile(nama file, 8, Benar)
file ini.tulis(konten file)
file ini.Tutup
Tetapkan fso = Tidak ada
Fungsi Akhir
Fungsi ReadFile (nama file)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan file ini
Setel fso = CreateObject(Scripting.FileSystemObject)
Jika Err <> 0 Lalu
Response.Write(Gagal membaca file &namafile&, mungkin sistem Anda tidak mendukung FSO!)
Respon.Akhir()
Akhiri Jika
Setel file ini = fso.OpenTextFile(Server.MapPath(nama file), 1, Benar)
ReadFile = file ini.ReadAll
file ini.Tutup
Setel file ini = Tidak ada
Tetapkan fso = Tidak ada
Fungsi Akhir
%>