Na verdade, minha intenção original ao fazer isso é evitar hot links! Por favor, ajude-me a descobrir como erradicar o hotlinking por meio de código! Contanto que HTTP_REFERER não venha de (google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com), as solicitações dessas fontes de URL serão encaminhadas para 404
Copie o código do código da seguinte forma:
<%
Escureça, registre
a = Solicitação.ServerVariables(HTTP_REFERER).Item
Definir reg = Novo RegExp
reg.Pattern = ^http://(?:[^.]*/.)?(?:google/.com|google/.cn|baidu/.com)(/|$)
reg.IgnoreCase = Verdadeiro
Se não reg.Test(a) Então
Setreg=Nada
Response.Status = 404 Arquivo não encontrado.
Resposta.Fim
Terminar se
Setreg=Nada
' .... continuar
%>
Copie o código do código da seguinte forma:
<%@LANGUAGE=PÁGINA DE CÓDIGO VBSCRIPT=65001%>
<%Dim OK_URL,URL,HTTP_REFERER
'Personalize as strings que precisam ser filtradas, separadas por |
OK_URL= google.com|google.cn|baidu.com' informações de exclusão
OK_URL= split(OK_URL,|) 'Dividir informações de exclusão
URL=404.htm 'Defina a página para apontar
HTTP_REFERER=Request.ServerVariables(HTTP_REFERER)'Obter o URL de origem
Se HTTP_REFERER<> Então
Para cada REFERER em HTTP_REFERER
Para i=0 para Ubound(OK_URL)
If Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 Then'Se o URL de origem não for uma das exclusões acima, retorne diretamente para a página apontada!
Response.Redirect(URL):Response.End()
Terminar se
Próximo
Próximo
Terminar se%>