사실, 이렇게 하는 원래 의도는 핫 링크를 방지하는 것입니다! 코드를 통해 핫링크를 근절하는 방법을 알려주세요! HTTP_REFERER가 (google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com)에서 발생하지 않는 한 이러한 URL 소스의 요청은 404로 전달됩니다.
다음과 같이 코드 코드를 복사합니다.
<%
어둡게, 등록
a = Request.ServerVariables(HTTP_REFERER).항목
reg 설정 = 새 RegExp
reg.Pattern = ^http://(?:[^.]*/.)?(?:google/.com|google/.cn|baidu/.com)(/|$)
reg.IgnoreCase = 참
등록되지 않은 경우.Test(a) 그런 다음
Setreg=아무것도 없음
Response.Status = 404 파일을 찾을 수 없습니다.
응답.종료
종료 조건
Setreg=아무것도 없음
' .... 계속하다
%>
다음과 같이 코드 코드를 복사합니다.
<%@LANGUAGE=VBSCRIPT 코드페이지=65001%>
<%Dim OK_URL,URL,HTTP_REFERER
'필터링해야 하는 문자열을 |로 구분하여 사용자 정의하세요.
OK_URL= google.com|google.cn|baidu.com' 제외 정보
OK_URL= Split(OK_URL,|) '분할 제외 정보
URL=404.htm '가리키는 페이지 설정
HTTP_REFERER=Request.ServerVariables(HTTP_REFERER)'소스 URL 가져오기
HTTP_REFERER<>인 경우
HTTP_REFERER의 각 리퍼러에 대해
i=0인 경우 Ubound(OK_URL)로
If Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 Then'소스 URL이 위의 제외 항목 중 하나가 아닌 경우 가리키는 웹페이지로 직접 돌아갑니다!
응답.리디렉션(URL):응답.End()
다음과 같은 경우 종료
다음
다음
종료%>