Petunjuk Penggunaan
1. Tambahkan referensi ke file antirefresh.asp di bagian atas halaman untuk dilindungi, seperti:
<!-#Sertakan virtual = "antirefresh.asp"->
2. Kemudian tambahkan kode panggilan
Salinan kode adalah sebagai berikut:
<%
Const varnamedateArr = "www_domai_net_app_dataarr" 'nama kutipan
Const varnameiparr = "www_domai_net_app_iparr" 'nama kutipan
Redup objantirefresh
Atur objantirefresh = antirefresh baru
objantirefresh.buffersize = ukuran kuantitas 100 '
objantirefresh.cacheitemavailtime = 2'interval waktu
Jika tidak objantirefresh.isvalidaccess ()
Setel objantirefresh = tidak ada
Response.write ("Kunjungan Anda sudah sering terjadi di masa lalu, coba lagi dalam 2 detik.")
Response.end ()
Akhiri jika
Setel objantirefresh = tidak ada
%>
Di antara mereka,
Const varnamedateArr = "www_domai_net_app_dataarr" 'nama kutipan
Const varnameiparr = "www_domai_net_app_iparr" 'nama kutipan
Misalnya, jika Anda ingin menambahkan penyegar ke daftar.asp dan search.asp, maka Anda menyalin kode panggilan di atas ke dua halaman ini, atau memastikan bahwa kode kedua halaman tersebut konsisten. Efeknya adalah bahwa jika Anda mengunjungi halaman daftar.
Jika Anda ingin dua halaman menjadi mandiri, yaitu, setelah Anda mengakses daftar.asp, Anda tidak akan dapat mengakses daftar.asp lagi dalam waktu 2 detik, tetapi Anda dapat mengakses pencarian.asp. Jika tidak, Anda harus memastikan bahwa const varnamedateArr = "xxx" dari dua halaman berbeda. Misalnya, yang pertama juga digunakan untuk menggunakan xxxlist, dan halaman pertama digunakan xxxsearch,
menyukai:
Const varnamedateArr = "www_domai_net_app_dataarr_search" '(_list)
Const varnameiparr = "www_domai_net_app_iparr_search" '(_list)
Mengomel ini untuk teman -teman yang tidak tahu banyak sehingga mereka dapat menggunakan kode -kode ini. Jika Anda memahami ASP, hal di atas akan mudah dimengerti untuk Anda.
Berikut ini adalah kode sumber file antirefresh.asp
Salinan kode adalah sebagai berikut:
<%
'*******************************************
'* Halaman Modul Anti-Refresh*
'* Wdfrog, 2007-8-16
'*******************************************
Kelas Antirefresh
Private Iparr, DataArr
Private M_BufferSize
Private m_cacheitemavailtime
Private sub class_initialize ()
Application.lock ()
m_buffersize = 100
m_cacheitemavailtime = 2
Akhir sub
Private Sub Class_Terminate ()
Application.unlock ()
Akhir sub
Properti Publik Dapatkan Cacheitemavailtime
Cacheitemavailtime = m_cacheitemavailtime
Akhir properti
Properti Publik Biarkan Cacheitemavailtime (Nilai)
m_cacheitemavailtime = nilai
Akhir properti
Properti publik mendapatkan bufferSize
BufferSize = m_bufferSize
Akhir properti
Properti Publik Let BufferSize (Nilai)
m_buffersize = nilai
Akhir properti
Subsurearr sub private ()
Jika isArray (aplikasi (varnamedateArr)) maka
DATEARR = Aplikasi (varnamedateArr)
Kalau tidak
Redim dateArr (bufferSize)
Akhiri jika
Jika isArray (aplikasi (varnameiparr)) lalu
Iparr = aplikasi (varnameiparr)
Kalau tidak
Redim iparr (bufferSize)
Akhiri jika
Akhir sub
Fungsi publik isValidAccess ()
Redup ip, i
ip = getip ()
IsValidAccess = true