asp prevents web page from refreshing code
SubPreventRefresh()
Dim RefreshTime,isRefresh
RefreshTime = 10 'Prevent refresh time, unit (seconds)
isRefresh = 1 'Whether to use the anti-refresh function, 0=no, 1=yes
If isRefresh = 1 Then
If (Not IsEmpty(Session(RefreshTime))) And RefreshTime > 0 Then
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>
This page uses the anti-refresh mechanism. Please do not refresh this page continuously within &RefreshTime& seconds.
<BR>Opening page, please wait...
Response.End
Else
Session(RefreshTime) = Now()
End If
Else
Session(RefreshTime) = Now()
End If
End If
End Sub