Instrucciones de uso
1. Agregue una referencia al archivo antirefresh.asp en la parte superior de la página para proteger, como:
<!-#include virtual = "antirefresh.asp"->
2. Luego agregue el código de llamadas
La copia del código es la siguiente:
<%
Const varnamedatearr = "www_domai_net_app_dataarr" 'Nombre de la cita
Const varnameiparr = "www_domai_net_app_iparr" 'Nombre de la cita
Dim objantirefresh
Establecer objantirefresh = new Antirefresh
objantirefresh.buffersize = 100 'tamaño de cantidad
objantirefresh.cacheitemavailtime = 2'interval tiempo
Si no objantirefresh.isValidAccess () entonces
Establecer objantirefresh = nada
Response.Write ("Sus visitas han sido frecuentes en el pasado, intente nuevamente en 2 segundos").
Respuesta.end ()
Final si
Establecer objantirefresh = nada
%>
Entre ellos, el
Const varnamedatearr = "www_domai_net_app_dataarr" 'Nombre de la cita
Const varnameiparr = "www_domai_net_app_iparr" 'Nombre de la cita
Por ejemplo, si desea agregar una actualización a List.asp y Search.asp, entonces copia el código de llamada anterior a estas dos páginas, o se asegura de que el código de las dos páginas sea consistente. El efecto es que si visita la página List.asp, no podrá acceder a la página List.asp o Search.asp dentro de los 2 segundos
Si desea que dos páginas sean independientes, es decir, después de acceder a List.asp, no podrá acceder a List.asp nuevamente dentro de los 2 segundos, pero puede acceder a Search.asp. De lo contrario, debe asegurarse de que el const varnamedatearr = "xxx" de las dos páginas sea diferente. Por ejemplo, el primero también se usa para usar xxxlist, y la primera página se usa xxxsearch,
como:
Const varnamedatearr = "www_domai_net_app_dataarr_search" '(_list)
Const varnameiparr = "www_domai_net_app_iparr_search" '(_list)
Mastando estos es para amigos que no saben mucho para que puedan usar estos códigos. Si comprende ASP, lo anterior será fácil de entender para usted.
El siguiente es el código fuente del archivo antirefresh.asp
La copia del código es la siguiente:
<%
'**********************************************
'* Página Módulo anti-refresh*
'* Wdfrog, 2007-8-16
'**********************************************
Clase Antirefresh
Iparr privado, datearr
Privado m_buffersize
Privado m_cacheitemavailtime
Sub class_initialize () privado ()
Application.lock ()
m_buffersize = 100
m_cacheitemavailtime = 2
Final
Sub class_terminate () privado ()
Application.unlock ()
Final
Propiedad pública Obtenga CacheItEmavailTime
Cacheitemavailtime = m_cacheitemavailtime
Propiedad final
Propiedad pública Deje cacheitemavailtime (valor)
m_cacheitemavailtime = valor
Propiedad final
Propiedad pública obtiene buffersize
Buffersize = m_buffersize
Propiedad final
Propiedad pública Deja que BufferSize (valor)
m_buffersize = valor
Propiedad final
Sub EnsureRearr () privado
If isarray (aplicación (varnamedatearr)) entonces
Datearr = Application (Varnamedatearr)
Demás
Redim DATARR (Buffersize)
Final si
If isArray (aplicación (varnameiparr)) entonces entonces
Iparr = aplicación (varnameiparr)
Demás
Redim iparr (buffersize)
Final si
Final
Función pública isValidAccess ()
Dim IP, yo
ip = getip ()
IsValidAccess = True