Saat menautkan dokumen di IE, jika menemukan dokumen yang didukung oleh OLE, IE akan secara otomatis memanggil program terkait untuk membukanya. Terkadang fungsi ini tidak kita perlukan, meskipun kita dapat mengingatkan pengguna untuk mengklik kanan mouse--> Perintah "Simpan Target Sebagai" "..." untuk mengunduh dokumen, tetapi ini sangat tidak bersahabat. Artikel ini menjelaskan penggunaan metode FSO dan Stream untuk mengimplementasikan pengunduhan dokumen secara langsung oleh IE
<%@ bahasa=vbscript codepage =65001%>
<%
'Nama file harus dimasukkan
jika Permintaan("Nama File")="" lalu
respon.tulis "<h1>Kesalahan:</h1>Nama file kosong!<p>"
kalau tidak
panggil downloadFile(ganti(ganti(Permintaan("Nama file"),"",""),"/",""))
Fungsi unduhFile(strFile)
' pastikan Anda menggunakan versi MDAC terbaru agar ini berfungsi
'dapatkan path lengkap dari file yang ditentukan
strFilename = server.MapPath(strFile)
' kosongkan buffernya
Respon.Buffer = Benar
Respon. Jelas
' buat aliran
Setel s = Server.CreateObject("ADODB.Stream")
s.Buka
' Tetapkan sebagai biner
s.Jenis = 1
' memuat dalam file
pada kesalahan lanjutkan berikutnya
' periksa apakah filenya ada
Setel fso = Server.CreateObject("Scripting.FileSystemObject")
jika bukan fso.FileExists(strFilename) maka
Response.Write("<h1>Kesalahan:</h1>"&strNamafile&" tidak ada!<p>")
Respon.Akhir
berakhir jika
'dapatkan panjang file
Setel f = fso.GetFile(strNama File)
intFilelength = f.ukuran
s.LoadFromFile(strNama File)
jika salah maka
Response.Write("<h1>Kesalahan: </h1>Kesalahan Tidak Diketahui!<p>")
Respon.Akhir
end if
' kirim header ke Jelajah pengguna
Response.AddHeader "Disposisi Konten","lampiran; nama file="&f.nama
Response.AddHeader "Panjang Konten",intPanjang File
Respon.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
' mengeluarkan file ke browser
Respon.BinaryWrite s.Baca
Respon
' rapikan
s.Tutup
Setel s =
Fungsi Tidak Ada Akhir
berakhir jika
%>