ASP が Web ページのコード更新を妨げる
SubPreventRefresh()
Dim RefreshTime、isRefresh
RefreshTime = 10 'リフレッシュ時間の禁止、単位(秒)
isRefresh = 1 'アンチリフレッシュ機能を使用するかどうか、0=いいえ、1=はい
isRefresh = 1 の場合
(Not IsEmpty(Session(RefreshTime))) かつ RefreshTime > 0 の場合
If DateDiff(s, Session(RefreshTime), Now()) < RefreshTime then
Response.Write <META http-equiv=Content-Type content=text/html;
chaRset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=&RefreshTime&><br>
このページはアンチリフレッシュ メカニズムを使用しています。&RefreshTime& 秒以内にこのページを連続的に更新しないでください。
<BR>ページを開きます、お待ちください...
応答.終了
それ以外
セッション(リフレッシュタイム) = Now()
終了する場合
それ以外
セッション(リフレッシュタイム) = Now()
終了する場合
終了する場合
エンドサブ