في الواقع، نيتي الأصلية من القيام بذلك هي منع الروابط الساخنة! الرجاء مساعدتي في معرفة كيفية القضاء على الارتباط الساخن من خلال الكود! طالما أن HTTP_REFERER لا يأتي من (google.com google.cn *.google.com *.google.cn baidu.com *.baidu.com) ستتم إعادة توجيه الطلبات من مصادر URL هذه إلى 404
انسخ رمز الكود كما يلي:
<%
خافت، ريج
أ = Request.ServerVariables(HTTP_REFERER).Item
تعيين reg = جديد RegExp
reg.Pattern = ^http://(?:[^.]*/.)?(?:google/.com|google/.cn|baidu/.com)(/|$)
reg.IgnoreCase = صحيح
إذا لم يكن reg.Test (أ) ثم
سيتريج=لا شيء
Response.Status = 404 لم يتم العثور على الملف.
الاستجابة.النهاية
نهاية إذا
سيتريج=لا شيء
' .... يكمل
%>
انسخ رمز الكود كما يلي:
<%@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
بالنسبة إلى i=0 إلى Ubound(OK_URL)
إذا كان Instr(LCase(HTTP_REFERER(REFERER)),OK_URL(i))=0 إذن، إذا لم يكن عنوان URL المصدر أحد الاستثناءات المذكورة أعلاه، فارجع مباشرة إلى صفحة الويب المشار إليها!
Response.Redirect(URL):Response.End()
انتهي إذا
التالي
التالي
نهاية إذا٪>