ที่อยู่ดาวน์โหลด ASP ที่ซ่อนอยู่และรหัสต่อต้านการโจรกรรม

<% ฟังก์ชั่นดาวน์โหลดไฟล์ (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, SHTM, 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

สิ้นสุดถ้า

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

-