En fait, mon intention initiale est d’éviter les liens dynamiques ! S'il vous plaît, aidez-moi à découvrir comment éradiquer les liens dynamiques via le code ! Tant que HTTP_REFERER ne provient pas de (google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com), les requêtes provenant de ces sources d'URL seront transmises au 404
Copiez le code comme suit :
<%
Dim un, reg
a = Request.ServerVariables(HTTP_REFERER).Item
Définir reg = Nouvelle RegExp
reg.Pattern = ^http://(?:[^.]*/.)?(?:google/.com|google/.cn|baidu/.com)(/|$)
reg.IgnoreCase = Vrai
Si ce n'est pas le cas, reg.Test (a) alors
Setreg=Rien
Response.Status = 404 Fichier introuvable.
Réponse.Fin
Fin si
Setreg=Rien
' .... continuer
%>
Copiez le code comme suit :
<%@LANGUAGE=VBSCRIPT CODEPAGE=65001%>
<%Dim OK_URL,URL,HTTP_REFERER
'Personnalisez les chaînes qui doivent être filtrées, séparées par |
OK_URL=informations d'exclusion de google.com|google.cn|baidu.com
OK_URL= split(OK_URL,|) 'Informations d'exclusion fractionnées
URL=404.htm 'Définir la page vers laquelle pointer
HTTP_REFERER=Request.ServerVariables(HTTP_REFERER)'Obtenir l'URL source
Si HTTP_REFERER<> Alors
Pour chaque REFERER dans HTTP_REFERER
Pour i = 0 vers Ubound (OK_URL)
If Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 Then'Si l'URL source ne fait pas partie des exclusions ci-dessus, revenez directement à la page Web pointée !
Réponse.Redirect(URL):Réponse.End()
Terminer si
Suivant
Suivant
Fin Si%>