asp verhindert, dass die Webseite den Code aktualisiert
SubPreventRefresh()
Dim RefreshTime,isRefresh
RefreshTime = 10 'Aktualisierungszeit verhindern, Einheit (Sekunden)
isRefresh = 1 'Ob die Anti-Refresh-Funktion verwendet werden soll, 0=Nein, 1=Ja
Wenn isRefresh = 1, dann
Wenn (nicht IsEmpty(Session(RefreshTime))) und RefreshTime > 0, dann
Wenn 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>
Diese Seite verwendet den Anti-Refresh-Mechanismus. Bitte aktualisieren Sie diese Seite nicht kontinuierlich innerhalb von &RefreshTime& Sekunden.
<BR>Seite wird geöffnet, bitte warten...
Antwort.Ende
Anders
Session(RefreshTime) = Now()
Ende wenn
Anders
Session(RefreshTime) = Now()
Ende wenn
Ende wenn
Sub beenden