Klik untuk mengunduh PDF dan file lainnya alih -alih membuka di browser

<%

Stream redup

Isi redup

Nama file redup

Redup fileext

Const adtypeBinary = 1

FileName = request.queryString ("FileName")

Jika fileName = "" lalu

Response.write "Nama file Invfort."

Respons.end

Akhiri jika

'Di bawah ini adalah file yang tidak ingin saya unduh

Filext = mid (nama file, instrrev (fileName, ".") 1)

SELECT CASE UCASE (FILEEXT)

Kasus "asp", "asa", "aspx", "asax", "mdb"

Response.write "File yang dilindungi, tidak dapat diunduh."

Respons.end

Akhiri Pilih

'Unduh file ini

Respons.clear

Response.contentType = "Aplikasi/Octet-Stream"

Response.addheader "Disposisi Konten", "Lampiran; FileName =" & FileName

Set stream = server.CreateObject ("adodb.stream")

Stream.type = adtypeBinary

Stream.open

Stream.loadFromFile server.mappath (nama file)

Meskipun tidak stream.eos

Response.binarywrite stream.read (1024 * 64)

Pergi ke

Stream.close

Atur stream = tidak ada

Response.flush

Respons.end

%>

Gunakan: download.asp? Nama file =/file/my.doc

Letakkan file dokumen Anda di file direktori root, Anda juga dapat meletakkannya di tempat lain.