使用する手順
1.次のような保護されているページの上部にあるantirefresh.aspファイルへの参照を追加します。
<！ - ＃virtual = "antirefresh.asp"を含める - >
2。次に、呼び出しコードを追加します
コードコピーは次のとおりです。
<％
const varnamedatearr = "www_domai_net_app_dataarr" 'quote name
const varnameiparr = "www_domai_net_app_iparr" 'quote name
dim objantirefresh
objantirefresh = new Antirefreshを設定します
objantirefresh.buffersize = 100 '数量サイズ
objantirefresh.cacheitemavailtime = 2'interval time
objantirefresh.isvalidaccess（）ではない場合
objantirefresh =何も設定しません
Response.Write（「過去に訪問が頻繁に発生しています。2秒でもう一度やり直してください。」）
Response.End（）
ifを終了します
objantirefresh =何も設定しません
％>
その中で、
const varnamedatearr = "www_domai_net_app_dataarr" 'quote name
const varnameiparr = "www_domai_net_app_iparr" 'quote name
たとえば、list.aspおよびsearch.aspにrefresherを追加する場合は、上記の呼び出しコードをこれらの2つのページにコピーするか、2つのページのコードが一貫していることを確認します。効果は、list.aspページにアクセスすると、2秒以内にlist.asp.asp.aspページにアクセスできないことです。
2ページを独立させたい場合、つまりlist.aspにアクセスした後、2秒以内に再度アクセスすることはできませんが、search.aspにアクセスできます。それ以外の場合は、2ページのconst varnamedatearr = "xxx"が異なることを確認する必要があります。たとえば、最初のものはxxxlistの使用にも使用され、最初のページはxxxsearchを使用します。
のように：
const varnamedatearr = "www_domai_net_app_dataarr_search" '（_list）
const varnameiparr = "www_domai_net_app_iparr_search" '（_list）
これらのコードを使用できるように、あまり知らない友人のためのことです。 ASPを理解している場合、上記はあなたにとって簡単に理解できます。
以下は、antirefresh.aspファイルソースコードです
コードコピーは次のとおりです。
<％
'***************************************
'*ページアンチリフレッシュモジュール*
'* wdfrog、2007-8-16
'***************************************
クラスアンチャーフレッシュ
プライベートIPARR、Datearr
プライベートM_BufferSize
Private M_CacheItemavailtime
private sub class_initialize（）
application.lock（）
m_buffersize = 100
M_CACHEITEMAVAILTIME = 2
End Sub
private sub class_terminate（）
application.unlock（）
End Sub
公共財産はcacheitemavailtimeを取得します
cacheItemavailtime = m_cacheitemavailtime
プロパティを終了します
公共財産let cacheitemavailtime（value）
m_cacheitemavailtime = value
プロパティを終了します
公共財産は緩衝液を取得します
buffersize = m_bufferize
プロパティを終了します
公共財産は緩衝液（価値）を許可します
m_buffersize = value
プロパティを終了します
privateSub ensurearr（）
ISARRAY（Application（varnamedatearr））の場合
datearr = application（varnamedatearr）
それ以外
Redim Datearr（buffersize）
ifを終了します
ISARRAY（application（varnameiparr））の場合
iparr = application（varnameiparr）
それ以外
redim iparr（buffersize）
ifを終了します
End Sub
パブリック関数isvalidaccess（）
薄暗いIP、i
ip = getIp（）
isvalidaccess = true