ASP ใช้ที่อยู่ดาวน์โหลดที่ซ่อนอยู่และ Anti -theft

<% ฟังก์ชั่นดาวน์โหลดไฟล์ (strfile)

strfilename = strfile

response.buffer = true

Response.Clear

SET S = Server.CreateObject (ADODB.Stream)

S.Open

S.Type = 1

เมื่อเกิดข้อผิดพลาดต่อไป

ตั้งค่า fso = server.createObject (scripting.filesystemobject)

ถ้าไม่ใช่ fso.fileexists (strfilename) แล้ว

from_url = cstr (request.serverVariables (http_referer))

serv_url = cstr (request.serverVariables (server_name))

ถ้า mid (from_url, 8, len (serv_url)) <> serv_url แล้ว

Response.write 该文件不存在或者已经删除

Response.end

สิ้นสุดถ้า

Response.redirect Request.ServerVariables (http_referer)

Response.end

สิ้นสุดถ้า

fileext = mid (strfilename, instrrev (strfilename,.)+1)

เลือก Case Ucase (Fileext)

Case ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, ข้อมูลข้อมูล

from_url = cstr (request.serverVariables (http_referer))

serv_url = cstr (request.serverVariables (server_name))

ถ้า mid (from_url, 8, len (serv_url)) <> serv_url แล้ว

Response.write 该文件不存在或者已经删除

Response.end

สิ้นสุดถ้า

Response.redirect Request.ServerVariables (http_referer)

Response.end

สิ้นสุดเลือก

ตั้งค่า f = fso.getFile (strfilename)

intFileLength = F.Size

s.loadfromfile (strfilename)

ถ้าเอ่อแล้ว

from_url = cstr (request.serverVariables (http_referer))

serv_url = cstr (request.serverVariables (server_name))

ถ้า mid (from_url, 8, len (serv_url)) <> serv_url แล้ว

Response.write 该文件数据不完整或许已损坏

Response.end

สิ้นสุดถ้า

Response.redirect Request.ServerVariables (http_referer)

Response.end

สิ้นสุดถ้า

ตั้งค่า upload = server.createObject (ไม่ว่าจะโหลด)

หากการอัปโหลดไม่มีอะไรแล้ว

Response.addheader เนื้อหา-การจัดสรร, สิ่งที่แนบมา; ชื่อไฟล์ = & f.name

Response.addheader ความยาวเนื้อหาความยาว intfilelength

Response.charset = UTF-8

Response.ContentType = Application/X-Download

Response.BinaryWrite S.Read

Response.flush

s.close

ตั้งค่า s = ไม่มีอะไร

อื่น

upload.sendbinary strfilename, true, application/x-download, false

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

-