Anweisungen zur Verwendung
1. Fügen Sie einen Verweis auf die Datei antireFresh.asp oben auf der zu geschützten Seite hinzu, wie z. B.:
<!-#inklusive virtual = "antirefresh.asp"->
2. Fügen Sie dann den Anrufcode hinzu
Die Codekopie lautet wie folgt:
<%
Const varnaMedatearr = "www_domai_net_app_dataarr" 'Zitatname
Const varnameIparr = "www_domai_net_app_iparr" 'Zitatname
Dimer Objantirefresh
Setzen Sie Objantirefresh = New Antirefresh
objantirefresh.bufferSize = 100 'Mengengröße
objantirefresh.cacheItemAvailTime = 2'Interval Zeit
Wenn nicht objantirefresh.isvalidaccess () dann
Setzen Sie Objantirefresh = nichts
Antwort.
Antwort.end ()
Ende wenn
Setzen Sie Objantirefresh = nichts
%>
Unter ihnen, die
Const varnaMedatearr = "www_domai_net_app_dataarr" 'Zitatname
Const varnameIparr = "www_domai_net_app_iparr" 'Zitatname
Wenn Sie beispielsweise List.asp und Search.asp eine Auffrischung hinzufügen möchten, kopieren Sie den oben genannten Aufrufcode auf diese beiden Seiten oder stellen sicher, dass der Code der beiden Seiten konsistent ist. Der Effekt besteht
Wenn Sie möchten, dass zwei Seiten unabhängig sind, können Sie nach dem Zugriff auf Liste.asp nicht innerhalb von 2 Sekunden auf Liste zugreifen. Andernfalls müssen Sie sicherstellen, dass die const varnaMedatearr = "xxx" der beiden Seiten unterschiedlich ist. Zum Beispiel wird der erste auch zur Verwendung von xxxxlist verwendet, und die erste Seite wird verwendet xxxSearch.
wie:
Const varnamedatearr = "www_domai_net_app_dataarr_search" '(_list)
Const varnameIparr = "www_domai_net_app_iparr_search" '(_list)
Das Nörgeln dieser Freunde ist für Freunde, die nicht viel wissen, damit sie diese Codes verwenden können. Wenn Sie ASP verstehen, ist das oben genannte für Sie leicht zu verstehen.
Im Folgenden ist der Dateiquellencode von AntireFresh.asp finden Sie
Die Codekopie lautet wie folgt:
<%
'*****************************************
'* Seite Anti-Refresh-Modul*
'* Wdfrog, 2007-8-16
'*****************************************
Klasse Antirefresh
Private IParr, DATEARR
Private m_buffersize
Private m_cacheItemAvailtime
Private sub class_initialize ()
Application.lock ()
m_buffersize = 100
M_CACHEITEMAVAILTIME = 2
Ende sub
Private sub class_terate ()
Application.unlock ()
Ende sub
Öffentliches Eigentum erhalten CacheItemAvailTime
CacheItemAvailTime = M_CACHEITEMAVAILTIME
Beenden Sie Eigentum
Öffentliches Eigentum lassen CacheItemAvailTime (Wert)
m_cacheItemAvailTime = Wert
Beenden Sie Eigentum
Öffentliches Eigentum werden pufferern
BufferSize = m_bufferSize
Beenden Sie Eigentum
Öffentliches Eigentum lassen
m_bufferSize = Wert
Beenden Sie Eigentum
Privates sub tealearr ()
Wenn isArray (Anwendung (varnamedatearr)) dann
Datearr = application (varnamedatearr)
Anders
Redim datearr (buffersize)
Ende wenn
Wenn ISArray (Anwendung (VarnameIparr)) dann
Iparr = application (varnameIparr)
Anders
Redim iparr (buffersize)
Ende wenn
Ende sub
Öffentliche Funktion isvalidaccess ()
Dim ip, ich
ip = getIp ()
Isvalidaccess = true