| Berikut ini adalah fragmen kode: <% 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. |
<A href = "doublead.asp? Filename =/file/my.doc"> klik untuk mengunduh dokumen kata </a>