Инструкции для использования
1. Добавьте ссылку на файл antirefresh.asp в верхней части страницы, который будет защищен, например:
<!-#Включите virtual = "antirefresh.asp"->
2. Затем добавьте вызовный код
Кода -копия выглядит следующим образом:
<%
Const varnamedatearr = "www_domai_net_app_dataarr"
Const varnameiparr = "www_domai_net_app_iparr"
Dim objantirefresh
Установить objantirefresh = new Antirefresh
objantirefresh.buffersize = 100 'Размер количества
objantirefresh.cacheitemavailtime = 2'Interval время
Если не objantirefresh.isvalidaccess (), тогда
Установить objantirefresh = ничего
Response.write («Ваши визиты были часты в прошлом, попробуйте еще раз через 2 секунды».
Response.end ()
Конец, если
Установить objantirefresh = ничего
%>
Среди них
Const varnamedatearr = "www_domai_net_app_dataarr"
Const varnameiparr = "www_domai_net_app_iparr"
Например, если вы хотите добавить Replesge в list.asp и search.asp, то вы копируете приведенный выше код вызова на эти две страницы или убедитесь, что код двух страниц является последовательным. Эффект заключается в том, что если вы посетите страницу List.asp, вы не сможете получить доступ к List.asp или Search.asp странице в течение 2 секунд
Если вы хотите, чтобы две страницы были независимыми, то есть после доступа к List.asp, вы не сможете получить доступ к List.asp снова в течение 2 секунд, но вы можете получить доступ к search.asp. В противном случае, вы должны убедиться, что const varnamedatearr = "xxx" двух страниц отличается. Например, первый также используется для использования xxxlist, а первая страница используется xxxsearch,
нравиться:
Const varnamedatearr = "www_domai_net_app_dataarr_search" '(_list)
Const varnameiparr = "www_domai_net_app_iparr_search" '(_list)
Нагибает их для друзей, которые мало знают, чтобы они могли использовать эти коды. Если вы понимаете ASP, приведенное выше будет легко понять для вас.
Ниже приведен исходный код файла antirefresh.asp
Кода -копия выглядит следующим образом:
<%
'*******************************************
'* Page Anti-Refresh Module*
'* Wdfrog, 2007-8-16
'*******************************************
Классовый антирефреш
Частный iparr, datearr
Приватный m_buffersize
Private m_cacheitemavailtime
Private sub class_initialize ()
Application.lock ()
m_buffersize = 100
m_cacheitemavailtime = 2
Конец суб
Private sub class_terminate ()
Application.unlock ()
Конец суб
Общественная недвижимость получить cacheitemavailtime
Cacheitemavailtime = m_cacheitemavailtime
Конец собственности
Общественная собственность Let CacheitemAvailtime (значение)
m_cacheitemavailtime = значение
Конец собственности
Общественная недвижимость получает буферизацию
Buffersize = m_buffersize
Конец собственности
Общественная недвижимость Let Buffersize (стоимость)
m_buffersize = значение
Конец собственности
Частный субэдюрерр ()
Если isarray (приложение (varnamedatearr)) тогда
Datearr = приложение (varnamedatearr)
Еще
Redim Datearr (Buffersize)
Конец, если
Если isarray (приложение (varnameiparr)), тогда
Iparr = приложение (varnameiparr)
Еще
Redim iparr (Buffersize)
Конец, если
Конец суб
Публичная функция isvalidaccess ()
Dim ip, я
ip = getip ()
Isvalidaccess = true