ASPのHTTP_REFERER判定コードの一部

実際、これを行う最初の目的は、ホットリンクを防ぐことです。コードを介してホットリンクを根絶する方法を見つけるのを手伝ってください。 HTTP_REFERER が (google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com) からのものでない限り、これらの URL ソースからのリクエストは 404 に転送されます。

次のようにコードをコピーします。

<%

薄暗い、reg

a = Request.ServerVariables(HTTP_REFERER).Item

reg = 新しい正規表現を設定します

reg.Pattern = ^http://(?:[^.]*/.)?(?:google/.com|google/.cn|baidu/.com)(/|$)

reg.IgnoreCase = True

登録テスト(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<> の場合

HTTP_REFERER の各 REFERER について

i=0 の場合、Ubound(OK_URL) へ

If Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 then'ソース URL が上記の除外のいずれでもない場合は、指定された Web ページに直接戻ります。

Response.Redirect(URL):Response.End()

次の場合に終了

次

次

終了の場合%>