На самом деле, мое первоначальное намерение — предотвратить использование горячих ссылок! Пожалуйста, помогите мне узнать, как искоренить хотлинкинг через код! Пока HTTP_REFERER не исходит от (google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com), запросы от этих источников URL будут перенаправляться на 404.
Скопируйте код кода следующим образом:
<%
Дим а, рег
a = Request.ServerVariables(HTTP_REFERER).Item
Установить рег = Новое регулярное выражение
reg.Pattern = ^http://(?:[^.]*/.)?(?:google/.com|google/.cn|baidu/.com)(/|$)
reg.IgnoreCase = Истина
Если Не reg.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<> Тогда
Для каждого REFERER в HTTP_REFERER
Для i = 0 к Ubound (OK_URL)
If Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 Тогда 'Если исходный URL-адрес не входит в число вышеуказанных исключений, вернитесь непосредственно на указанную веб-страницу!
Response.Redirect(URL):Response.End()
Конец, если
Следующий
Следующий
Конец, если%>