asp mencegah halaman web menyegarkan kode
SubPreventRefresh()
Redupkan Waktu Penyegaran, adalah Penyegaran
RefreshTime = 10 'Mencegah waktu penyegaran, satuan (detik)
isRefresh = 1 'Apakah akan menggunakan fungsi anti-refresh, 0=tidak, 1=ya
Jika isRefresh = 1 Maka
Jika (Bukan IsEmpty(Session(RefreshTime))) Dan RefreshTime > 0 Lalu
Jika DateDiff(s, Session(RefreshTime), Now()) < RefreshTime Lalu
Respon.Tulis <META http-equiv=Jenis Konten content=teks/html;
charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=&RefreshTime&><br>
Halaman ini menggunakan mekanisme anti-penyegaran. Harap jangan menyegarkan halaman ini terus-menerus dalam &RefreshTime& detik.
<BR>Halaman pembuka, harap tunggu...
Respon.Akhir
Kalau tidak
Sesi(Waktu Segarkan) = Sekarang()
Akhiri Jika
Kalau tidak
Sesi(Waktu Segarkan) = Sekarang()
Akhiri Jika
Akhiri Jika
Akhiri Sub