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--> simpan target sebagai ....perintah 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=halaman kode vbscript=65001%>
<%
'Nama file harus dimasukkan
jika Permintaan(Nama File)= maka
respon.write <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 file tersebut ada
Setel fso = Server.CreateObject(Scripting.FileSystemObject)
jika bukan fso.FileExists(strFilename) maka
Response.Write(<h1>Kesalahan:</h1>&strNama file& 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
berakhir jika
' kirim header ke Jelajah pengguna
Response.AddHeader Konten-Disposisi, lampiran;
Response.AddHeader Panjang Konten,intFilelength
Respon.CharSet = UTF-8
Response.ContentType = aplikasi/aliran oktet
'keluarkan file ke browser
Respon.BinaryWrite s.Baca
Respon. Siram
' membereskan
s.Tutup
Tetapkan s = Tidak ada
Fungsi Akhir
berakhir jika
%>