De hecho, mi intención original al hacer esto es evitar enlaces activos. ¡Ayúdenme a descubrir cómo erradicar los enlaces directos a través del código! Siempre que HTTP_REFERER no provenga de (google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com), las solicitudes de estas fuentes URL se reenviarán al 404
Copie el código de código de la siguiente manera:
<%
tenue a, reg
a = Solicitud.ServerVariables(HTTP_REFERER).Item
Establecer registro = Nueva expresión regular
reg.Patrón = ^http://(?:[^.]*/.)?(?:google/.com|google/.cn|baidu/.com)(/|$)
reg.IgnoreCase = Verdadero
Si no es reg.Test(a) Entonces
Setreg=Nada
Response.Status = 404 Archivo no encontrado.
Respuesta.Fin
Terminar si
Setreg=Nada
' .... continuar
%>
Copie el código de código de la siguiente manera:
<%@LANGUAGE=PÁGINA DE CÓDIGOS VBSCRIPT=65001%>
<%Dim OK_URL,URL,HTTP_REFERER
'Personaliza las cadenas que deben filtrarse, separadas por |
OK_URL= google.com|google.cn|baidu.com' información de exclusión
OK_URL= split(OK_URL,|) 'Información de exclusión dividida
URL=404.htm 'Establece la página a la que apuntar
HTTP_REFERER=Request.ServerVariables(HTTP_REFERER)'Obtener la URL de origen
Si HTTP_REFERER<> Entonces
Para cada REFERER en HTTP_REFERER
Para i=0 a Ubound(OK_URL)
Si Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 Entonces, si la URL de origen no es una de las exclusiones anteriores, regrese directamente a la página web señalada.
Respuesta.Redirect(URL):Respuesta.End()
terminar si
Próximo
Próximo
Finalizar si%>