คลิกเพื่อดาวน์โหลด PDF และไฟล์อื่น ๆ แทนที่จะเปิดในเบราว์เซอร์

-

ทึบ

เนื้อหาสลัว

ชื่อไฟล์หรี่

Dim Fileext

const adtypebinary = 1

filename = request.QueryString ("ชื่อไฟล์")

ถ้า filename = "" แล้ว

Response.write "ชื่อไฟล์ Invfort"

Response.end

สิ้นสุดถ้า

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

filext = mid (ชื่อไฟล์, instrrev (ชื่อไฟล์, ".". ") 1)

เลือก Case Ucase (Fileext)

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

Response.write "ไฟล์ที่ได้รับการป้องกันไม่สามารถดาวน์โหลดได้"

Response.end

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

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

Response.Clear

Response.contentType = "แอปพลิเคชัน/อ็อกเท็ต-สตรีม"

Response.addheader "เนื้อหา-การจัดสรร", "ไฟล์แนบ; filename =" & filename

Set Stream = Server.CreateObject ("AdoDB.Stream"))

stream.type = adtypebinary

stream.open

Stream.loadFromFile Server.Mappath (ชื่อไฟล์)

ในขณะที่ไม่สตรีม eos

Response.binaryWrite Stream.Read (1024 * 64)

ใช้

สตรีม

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

Response.flush

Response.end

-

ใช้: download.asp?

วางไฟล์เอกสารของคุณลงในไฟล์ Root Directory คุณสามารถวางไว้ที่อื่นได้