사용 지침
1. 보호 할 페이지 상단의 Antirefresh.asp 파일에 대한 참조를 다음과 같이 보호합니다.
<!-#포함 virtual = "antirefresh.asp"->
2. 그런 다음 호출 코드를 추가하십시오
코드 사본은 다음과 같습니다.
<%
const varnamedatearr = "www_domai_net_app_dataarr" '견적 이름
const varnameiparr = "www_domai_net_app_iparr" '견적 이름
희미한 objantirefresh
objantirefresh = New Antirefresh를 설정하십시오
objantirefresh.buffersize = 100 '수량 크기
objantirefresh.cacheitemavailtime = 2'interval 시간
objantirefresh.isvalidaccess ()가 아니라면
objantirefresh = 아무것도 설정하지 않습니다
response.write ( "귀하의 방문은 과거에 자주 발생했습니다. 2 초 후에 다시 시도하십시오.")
응답 ()
끝 If
objantirefresh = 아무것도 설정하지 않습니다
%>
그중에서도
const varnamedatearr = "www_domai_net_app_dataarr" '견적 이름
const varnameiparr = "www_domai_net_app_iparr" '견적 이름
예를 들어, List.asp 및 Search.asp에 새로 고침을 추가하려면 위의 호출 코드를이 두 페이지에 복사하거나 두 페이지의 코드가 일관되어 있는지 확인하십시오. 효과는 List.asp 페이지를 방문하면 2 초 이내에 List.asp 또는 Search.asp 페이지에 액세스 할 수 없다는 것입니다.
두 페이지가 독립적이 되려면, 즉 List.asp에 액세스 한 후에는 2 초 이내에 List.asp에 다시 액세스 할 수 없지만 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 모듈*
'* WDFROG, 2007-8-16
'*****************************************
클래스 반 프레시
개인 iparr, datearr
개인 m_buffersize
개인 M_CACHEITEMAVAILTIME
private sub class_initialize ()
application.lock ()
m_buffersize = 100
M_CACHEITEMAVAILTIME = 2
종료 서브
private sub class_terminate ()
application.unlock ()
종료 서브
공공 재산은 cacheitemavailtime을 얻습니다
CACHEITEMAVAILTIME = M_CACHEITEMAVAILTIME입니다
종료 속성
공공 재산은 CacheItemaVailTime (값)을 보자
m_cacheitemavailtime = value
종료 속성
공공 부동산은 버퍼 크기를 얻습니다
버퍼 크기 = m_buffersize
종료 속성
공공 재산 부서 버퍼 크기 (값)
m_buffersize = value
종료 속성
개인 서브 ensurearr ()
ISARRAY (Application (varnamedatearr))
datearr = application (varnamedatearr)
또 다른
redim datearr (buffersize)
끝 If
ISARRAY (Application (varnameiparr))
IPARR = 응용 프로그램 (varnameiparr)
또 다른
redim iparr (buffersize)
끝 If
종료 서브
공개 기능 isvalidaccess ()
Dim IP, i
ip = getip ()
isvalidaccess = true