Tatsächlich bestand meine ursprüngliche Absicht darin, Hotlinks zu verhindern! Bitte helfen Sie mir herauszufinden, wie ich Hotlinking durch Code beseitigen kann! Solange HTTP_REFERER nicht von (google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com) stammt, werden Anfragen von diesen URL-Quellen an 404 weitergeleitet
Kopieren Sie den Codecode wie folgt:
<%
Dim a, reg
a = Request.ServerVariables(HTTP_REFERER).Item
Set reg = Neuer RegExp
reg.Pattern = ^http://(?:[^.]*/.)?(?:google/.com|google/.cn|baidu/.com)(/|$)
reg.IgnoreCase = True
Wenn nicht reg.Test(a) Dann
Setreg=Nichts
Response.Status = 404 Datei nicht gefunden.
Antwort.Ende
Ende wenn
Setreg=Nichts
' .... weitermachen
%>
Kopieren Sie den Codecode wie folgt:
<%@LANGUAGE=VBSCRIPT CODEPAGE=65001%>
<%Dim OK_URL,URL,HTTP_REFERER
'Passen Sie die Zeichenfolgen an, die gefiltert werden müssen, getrennt durch |
OK_URL= google.com|google.cn|baidu.com' Ausschlussinformationen
OK_URL= split(OK_URL,|) 'Ausschlussinformationen teilen
URL=404.htm 'Legen Sie die Seite fest, auf die verwiesen werden soll
HTTP_REFERER=Request.ServerVariables(HTTP_REFERER)'Holen Sie sich die Quell-URL
Wenn HTTP_REFERER<> Dann
Für jeden REFERER in HTTP_REFERER
Für i=0 bis Ubound(OK_URL)
If Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 Then'Wenn die Quell-URL nicht zu den oben genannten Ausschlüssen gehört, kehren Sie direkt zur Webseite zurück, auf die verwiesen wird!
Response.Redirect(URL):Response.End()
Ende wenn
Nächste
Nächste
Ende, wenn%>