Instruções para uso
1. Adicione uma referência ao arquivo antirefresh.asp na parte superior da página a ser protegido, como:
<!-#incluir virtual = "antirefresh.asp"->
2. Em seguida, adicione o código de chamada
A cópia do código é a seguinte:
<%
Const varnamedatearr = "www_domai_net_app_dataarr" 'nome de citação
Const varnameiparr = "www_domai_net_app_iparr" 'nome da citação
Dim objantirefresh
Definir objantirefresh = novo antirefresh
objantirefresh.buffersize = 100 'tamanho de quantidade
objantirefresh.cacheItemavailTime = 2'Interval Hora
Se não objantirefresh.isvalidaccess () então
Definir objantirefresh = nada
Response.Write ("Suas visitas foram frequentes no passado, tente novamente em 2 segundos.")
Response.end ()
Final se
Definir objantirefresh = nada
%>
Entre eles, o
Const varnamedatearr = "www_domai_net_app_dataarr" 'nome de citação
Const varnameiparr = "www_domai_net_app_iparr" 'nome da citação
Por exemplo, se você deseja adicionar uma atualização para listar.asp e pesquisa.asp, copie o código de chamada acima para essas duas páginas ou verifique se o código das duas páginas é consistente. O efeito é que, se você visitar a página da lista.
Se você deseja que duas páginas sejam independentes, ou seja, depois de acessar a lista de acesso.asp, você não poderá acessar a list.asp novamente em 2 segundos, mas você pode acessar o search.asp. Caso contrário, você deve garantir que o const varnamedatearr = "xxx" das duas páginas seja diferente. Por exemplo, o primeiro também é usado para usar xxxlist, e a primeira página é usada xxxsearch,
como:
Const varnamedatearr = "www_domai_net_app_dataarr_search" '(_list)
Const varnameiparr = "www_domai_net_app_iparr_search" '(_list)
Aquilo que isso é para amigos que não sabem muito, para que possam usar esses códigos. Se você entender asp, o acima será fácil entender para você.
A seguir, o código -fonte do arquivo antirefresh.asp
A cópia do código é a seguinte:
<%
'***********************************************
'* Módulo anti-refrescão da página*
'* WDFROG, 2007-8-16
'***********************************************
Classe antirefresh
IPARR privado, DataEarr
M_buffersize privado
M_cacheItemavailtime privado
Sub -classe privado_initialize ()
Application.lock ()
m_buffersize = 100
m_cacheItemavailTime = 2
Final sub
Sub -classe particular ()
Application.unlock ()
Final sub
Propriedade pública Obtenha CacheItemavailTime
CacheItemavailTime = m_cacheItemAVAILTime
Propriedade final
Propriedade pública Deixe CacheItemavailTime (valor)
m_cacheItemavailTime = Valor
Propriedade final
Propriedade pública Get BufferSize
Buffersize = m_buffersize
Propriedade final
Propriedade pública Deixe Buffersize (valor)
m_buffersize = valor
Propriedade final
SUB SUB SUBSUREARR ()
Se Isarray (Application (VarnamedateAr)) então
DataEarr = Application (VarNamedatearr)
Outro
Redim DataEarr (BufferSize)
Final se
Se Isarray (Application (Varnameiparr)) então
IParr = Application (Varnameiparr)
Outro
Redim iParr (BufferSize)
Final se
Final sub
Função pública isValidAccess ()
Dim IP, i
ip = getip ()
IsValidAccess = true