Karya asli: mungkin_Y, diunduh dari Times Classroom.
Langsung masukkan jalur URL file doc, xls, atau jpg di bilah alamat browser, dan file akan langsung ditampilkan di browser. Dalam banyak kasus, kami berharap untuk langsung memunculkan kotak perintah pengunduhan agar pengguna dapat mengunduh. Ada dua metode di sini:
1. Atur iis dan akhiran peta server Anda seperti doc
2. Atur tipe kontennya saat mengirim ke klien
Metode 2 dijelaskan secara rinci di bawah
<%
Respon.Buffer = benar
Respon.
Hapus url redup
Redupkan fso,fl,flsize
nama redup
Redupkan objStream,ContentType,flName,isre,url1
'********************************************* diteruskan saat memanggil file unduhan nama
Nama=trim(permintaan("n"))
'******************************************************* ****************
Jika Nama<>"" Lalu
'******************************Direktori server tempat file yang diunduh disimpan
url=server.MapPath("/")&""&Nama
'******************************************************* *
Berakhir Jika
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Setel fl=fso.getfile(url)
flsize=fl.ukuran
flName=fl.nama
Setel fl=Tidak ada
Tetapkan fso=Tidak ada
%>
<%
Setel objStream = Server.CreateObject("ADODB.Stream")
objStream.Buka
objStream.Jenis = 1
objStream.LoadFromFile url
Pilih Kasus lcase(Kanan(flName, 4))
Kasus ".asf"
Tipe Konten = "video/x-ms-asf"
Kasus ".avi"
Tipe Konten = "video/avi"
Kasus ".doc"
ContentType = "aplikasi/msword"
Kasus ".zip"
ContentType = "aplikasi/zip"
Kasus ".xls"
ContentType = "aplikasi/vnd.ms-excel"
Kasus ".gif"
Tipe Konten = "gambar/gif"
Kasus ".jpg", "jpeg"
Tipe Konten = "gambar/jpeg"
Kasus ".wav"
Tipe Konten = "audio/wav"
Kasus ".mp3"
Tipe Konten = "audio/mpeg3"
Kasus ".mpg", "mpeg"
Tipe Konten = "video/mpeg"
Kasus ".rtf"
ContentType = "aplikasi/rtf"
Kasus ".htm", "html"
Tipe Konten = "teks/html"
Kasus ".txt"
ContentType = "teks/polos"
Kasus Lain
ContentType = "aplikasi/aliran oktet"
Pilihan Akhir
Response.AddHeader "Disposisi Konten", "lampiran; nama file=" & flName
Response.AddHeader "Panjang Konten", flsize
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Baca
Respon. Siram
respon.Hapus()
objStream.Tutup
Setel objStream = Nothing
%>
Simpan yang berikut ini ke download.asp lalu Anda dapat menggunakan <a herf=" http://www.downcodes.com/download.asp?n=file.doc">download!</ a > Untuk mengunduh file.doc di direktori yang sama!
Tetapi ada masalah di sini yaitu tidak aman untuk menulis jalur file.doc langsung di URL, jadi solusinya adalah menyimpan jalur file.doc di database setelah mencari database, Anda bisa mendapatkan jalurnya.
Jika Anda menambahkan penilaian di depan program ini:
if instr(Request.ServerVariables("HTTP_REFERER"),"http://nama domain Anda")=0 lalu
Respon.Akhir
end if
dapat mencegah orang lain mencuri tautan.