ยกตัวอย่างระบบดาวน์โหลดแบบไดนามิก:
เปิดไฟล์ SoftDown.Asp ที่:
ถ้า request.QueryString("ID")="" แล้ว
response.write "ไม่สามารถเชื่อมต่อหรือไม่ได้ระบุซอฟต์แวร์ดาวน์โหลด"
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
dim strReferer,domain,splDomain,isHttp
ด้านบนหรือด้านล่าง
isHttp=false
'ไซต์นี้ดาวน์โหลดรายการ URL ของระบบ ห้ามนำ http://
โดเมน = "sron.net,61.156.14.223,61.156.14.227"
splDomain=split (โดเมน, ",")
strReferer=Request.ServerVariables("HTTP_REFERER")
สำหรับ iii = 0 ถึง ubound (splDomain)
ถ้า instr(strReferer,trim(splDomain(iii)))>0 แล้ว isHttp=True
ต่อไป
ถ้า isnull(strReferer) หรือ isHttp=false แล้ว
ตอบกลับเขียน "ลิงก์ดาวน์โหลดมาจากเว็บไซต์อื่นซึ่งไม่ได้รับอนุญาต <a href=""./"">โปรดเข้าสู่ไซต์นี้ก่อนที่จะดาวน์โหลด</a>"
ปิดฐานข้อมูล
การตอบสนองสิ้นสุด
สิ้นสุดหาก
รายการ URL ระบบดาวน์โหลดเว็บไซต์คือการเข้าถึงชื่อโดเมนใน URL ช่องทางการดาวน์โหลดของคุณ ตัวอย่างเช่น ช่องทางการดาวน์โหลดของคุณสามารถเข้าถึงได้ด้วย URL หลายรายการ ดังนั้นให้คั่นด้วยเครื่องหมายจุลภาคที่นี่