Simpan saja file di bawah ini sebagai Download.asp, lalu transfer file yang akan diunduh sesuai kebutuhan. Format: Download.asp?FileName=Nama file yang akan diunduh
Copy kode kodenya sebagai berikut:
Aliran Redup
Redupkan Isi
Redupkan Nama File
Redupkan FileExt
Konstan adTypeBinary = 1
Nama File = Permintaan.QueryString(Nama File)
jika Nama File = Lalu
Respon.Tulis nama file tidak valid.
Respon.Akhir
Berakhir jika
'Berikut ini adalah file yang tidak ingin Anda unduh
FileExt = Tengah(NamaFile, InStrRev(NamaFile, .) + 1)
Pilih Kasus UCase (FileExt)
Kasus ASP, ASA, ASPX, ASAX, MDB
Response.Write adalah file yang dilindungi dan tidak dapat diunduh.
Respon.Akhir
Pilihan Akhir
'Unduh file ini
Respon. Jelas
Response.ContentType = aplikasi/aliran oktet
Response.AddHeader disposisi konten, lampiran;
Setel Aliran = server.CreateObject(ADODB.Stream)
Aliran.Jenis = adTypeBinary
Aliran. Terbuka
Stream.LoadFromFile Server.MapPath(Nama File)
Meskipun Bukan Stream.EOS
Respons.BinaryWrite Stream.Baca(1024 * 64)
Pergi ke
Aliran. Tutup
Setel Aliran = Tidak Ada
Respon. Siram
Respon.Akhir