ASP ซ่อนโค้ดฟังก์ชันการดาวน์โหลดไฟล์จริง

เพียงบันทึกไฟล์ด้านล่างเป็น Download.asp จากนั้นจึงถ่ายโอนไฟล์ที่จะดาวน์โหลดตามต้องการ รูปแบบ: Download.asp?FileName=ชื่อของไฟล์ที่จะดาวน์โหลด

คัดลอกรหัสรหัสดังต่อไปนี้:

สตรีมสลัว

เนื้อหาสลัว

ชื่อไฟล์ติ่มซำ

Dim FileExt

ค่าคงที่ adTypeBinary = 1

FileName = Request.QueryString(ชื่อไฟล์)

ถ้า FileName = จากนั้น

Response.Write ชื่อไฟล์ไม่ถูกต้อง

การตอบสนองสิ้นสุด

จบถ้า

'ต่อไปนี้เป็นไฟล์ที่คุณไม่ต้องการดาวน์โหลด

FileExt = กลาง (ชื่อไฟล์, InStrRev (ชื่อไฟล์, .) + 1)

เลือกกรณี UCase(FileExt)

กรณี ASP, ASA, ASPX, ASAX, MDB

Response.Write เป็นไฟล์ที่ได้รับการป้องกันและไม่สามารถดาวน์โหลดได้

การตอบสนองสิ้นสุด

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

'ดาวน์โหลดไฟล์นี้

การตอบสนองชัดเจน

Response.ContentType = แอปพลิเคชัน/octet-stream

Response.AddHeader การจัดการเนื้อหา ชื่อไฟล์ = & ชื่อไฟล์

ตั้งค่า Stream = server.CreateObject (ADODB.Stream)

Stream.Type = adTypeBinary

สตรีม.เปิด

Stream.LoadFromFile Server.MapPath (ชื่อไฟล์)

ในขณะที่ไม่ได้สตรีม EOS

การตอบสนองกระแสข้อมูล BinaryWrite อ่าน (1024 * 64)

เวนด์

สตรีมปิด

ตั้งค่าสตรีม = ไม่มีเลย

การตอบสนองฟลัช

การตอบสนองสิ้นสุด