การดาวน์โหลดรหัส ASP อย่างมีประสิทธิภาพของห่วงโซ่ต่อต้านการขโมย

เปิดไฟล์ softdown.asp ใน:

หาก request.QueryString ("id") = ""

Response.write "ไม่สามารถเชื่อมต่อได้หรือไม่มีซอฟต์แวร์ดาวน์โหลดที่กำหนด"

Response.end

สิ้นสุดถ้า

ด้านบนหรือต่ำกว่าเพิ่มรหัสต่อไปนี้

Dim strreferr, โดเมน, spldomain, ishttp

ishttp = false

'รายการ URL ระบบดาวน์โหลดบนเว็บไซต์นี้อย่านำ http: //

domain = "sron.net, 61.156.14.223,61.156.14.227"

splowomain = split (โดเมน, ",", ")

strreferr = request.serverVariables ("http_referr"))

สำหรับ iii = 0 ถึง uborder (spldomain)

ถ้า instr (strreferr, trim (spldomain (iii))＞ 0 แล้ว ishttp = true

ต่อไป

ถ้า isnull (strrefer) หรือ ishttp = false แล้ว

Response.write "ลิงก์ดาวน์โหลดมาจากเว็บไซต์อื่น ๆ ซึ่งไม่อนุญาตให้ใช้ <a href =" "./" "" "โปรดป้อนหน้าของเว็บไซต์นี้แล้วดาวน์โหลด <// a>" "" "" ""

ตาปลา

Response.end

สิ้นสุดถ้า