خذ نظام التنزيل الديناميكي كمثال:
افتح الملف SoftDown.Asp على:
إذا request.QueryString("ID")="" ثم
Response.write "غير قادر على الاتصال أو لم يتم تحديد برنامج تنزيل"
Response.end
نهاية إذا
dim strReferer,domain,splDomain,isHttp
أعلى أو أسفل
isHttp=false
'يقوم هذا الموقع بتنزيل قائمة عناوين URL الخاصة بالنظام، ولا تقم بإحضار http://
المجال = "sron.net،61.156.14.223،61.156.14.227"
splDomain=split(domain،"،"،)
strReferer=Request.ServerVariables("HTTP_REFERER")
لـ iii = 0 إلى ubound(splDomain)
إذا كان instr(strReferer,trim(splDomain(iii)))>0 فإن isHttp=True
التالي
إذا كان isnull(strReferer) أو isHttp=false إذن
Response.Write "روابط التنزيل تأتي من مواقع ويب أخرى، وهذا غير مسموح به. <a href=""./"">الرجاء الدخول إلى هذا الموقع قبل التنزيل.</a>"
إغلاق قاعدة البيانات
Response.end
إنهاء إذا كانت
قائمة عناوين URL لنظام تنزيل موقع الويب مخصصة للوصول إلى اسم المجال في عنوان URL لقناة التنزيل الخاصة بك، على سبيل المثال، يمكن الوصول إلى قناة التنزيل الخاصة بك باستخدام عناوين URL متعددة، لذا افصل بينها بفواصل هنا.