Instructions pour une utilisation
1. Ajoutez une référence au fichier antirefresh.asp en haut de la page à protéger, telles que:
<! - # Inclure virtual = "antirefresh.asp" ->
2. Puis ajoutez le code d'appel
La copie de code est la suivante:
<%
Const varnamedatearr = "www_domai_net_app_dataarr" 'nom de la citation
Const varnameUrr = "www_domai_net_app_utr" 'nom de la citation
Faible objantirefresh
Définir ObjantireFresh = New AntireFresh
objantirefresh.buffersize = 100 'de taille de quantité
objantirefresh.cacheiteMavailTime = 2'Interval Time
Si ce n'est pas objantirefresh.isvalidaccess () alors
Définir objantirefresh = rien
Response.Write ("Vos visites ont été fréquentes dans le passé, veuillez réessayer en 2 secondes.")
Réponse.end ()
Terminer si
Définir objantirefresh = rien
%>
Parmi eux, le
Const varnamedatearr = "www_domai_net_app_dataarr" 'nom de la citation
Const varnameUrr = "www_domai_net_app_utr" 'nom de la citation
Par exemple, si vous souhaitez ajouter un rafraîchissement sur list.asp et search.asp, vous copiez le code d'appel ci-dessus sur ces deux pages, ou assurez-vous que le code des deux pages est cohérent. L'effet est que si vous visitez la page list.asp, vous ne pourrez pas accéder à la page list.asp ou search.asp dans les 2 secondes
Si vous voulez que deux pages soient indépendantes, c'est-à-dire après avoir accédé à List.asp, vous ne pourrez pas accéder à nouveau à List.asp dans les 2 secondes, mais vous pouvez accéder à Search.asp. Sinon, vous devez vous assurer que le const varnamedatearr = "xxx" des deux pages est différent. Par exemple, le premier est également utilisé pour utiliser xxxlist, et la première page est utilisée xxxsearch,
comme:
Const varnamedatearr = "www_domai_net_app_dataarr_search" '(_list)
Const varNameUrr = "www_domai_net_app_utr_search" '(_list)
Les harceler sont pour des amis qui ne savent pas grand-chose afin qu'ils puissent utiliser ces codes. Si vous comprenez ASP, ce qui précède sera facile à comprendre pour vous.
Ce qui suit est le code source du fichier antirefresh.asp
La copie de code est la suivante:
<%
'*********************************************
'* Module anti-réfresh Page *
'* Wdfrog, 2007-8-16
'*********************************************
Classe Antirefresh
Iparr privé, Datearr
Privé m_buffersize
Privé m_cacheitemavailtime
Private Sub class_Initialize ()
Application.lock ()
m_buffersize = 100
m_cacheitemavailtime = 2
Sub-Sub
Private Sub class_termiate ()
Application.unlock ()
Sub-Sub
La propriété publique obtient cacheitemavailtime
Cacheitemavailtime = m_cacheitemavailtime
Propriété finale
Propriété publique Soit CacheiteMavailTime (Valeur)
m_cacheitemavailtime = valeur
Propriété finale
La propriété publique obtient une tamponze
Tamponner = m_buffersize
Propriété finale
Propriété publique Laisse tamponner (valeur)
m_buffeSize = valeur
Propriété finale
Private Sub Sassurearr ()
Si isArray (application (varNameDatearr)) alors
Datarr = application (varnamedatearr)
Autre
Redim Datearr (tamponSize)
Terminer si
Si isArray (application (varnameiprarr)) alors
Iparr = application (varNameUrr)
Autre
Redim iparr (tamponze)
Terminer si
Sub-Sub
Fonction publique isValidAccess ()
Ip dim, i
ip = getip ()
IsValidAccess = true