Artinya, secara langsung meminta pengguna untuk mengunduh daripada membuka file tertentu oleh browser. Perhatikan bahwa setelah menyalin kode berikut ke file ASP, jangan menambahkan beberapa kode non-Asp ke halaman: seperti kode klien HTML dan JavaScript.
Salinan kode adalah sebagai berikut:
<%
'--------------------------------------------
Response.buffer = true
DimstrfilePath, StrfileSize, Strfilename
ConstadtypeBinary = 1
strfilePath = "filepath"
strfileSize = ... ukuran file, opsional
Strfilename = "Nama File"
Respons.clear
'8 ******************************************** 8
'Membutuhkan MDAC2.6 atau MDAC2.7 untuk diinstal di server Anda
'8 ******************************************** 8
SetoBjStream = server.CreateObject ("adodb.stream")
objstream.open
objstream.type = adtypeBinary
objstream.loadFromFileStrFilePath
strfileType = lcase (kanan (strfilename, 4)) 'station extension station.long. stasiun
'Menilai tipe konten dengan ekstensi file
SelectCaseStrFileType
Kasus ".asf"
ContentType = "Video/X-MS-ASF"
Kasus ".avi"
ContentType = "Video/Avi"
Kasus ".doc"
ContentType = "Aplikasi/Msword"
Kasus ".zip"
ContentType = "Aplikasi/Zip"
Kasus ".xls"
ContentType = "Application/VND.MS-EXCEL"
Kasus ".gif"
ContentType = "Image/Gif"
Kasus ".jpg", "jpeg"
ContentType = "Image/JPEG"
Kasus ".wav"
ContentType = "audio/wav"
Kasus ".mp3"
ContentType = "audio/mpeg3"
Kasus ".mpg", "mpeg"
ContentType = "Video/MPEG"
Kasus ".rtf"
ContentType = "Aplikasi/RTF"
Kasus ".htm", "html"
ContentType = "Teks/html"
Kasus ".asp"
ContentType = "Teks/Asp"
Caseelse
'Handleallotherfile
ContentType = "Aplikasi/Octet-Stream"
Endselect
Response.addheader "disposisi konten", "lampiran; nama file = strfileName
Response.addheader "panjang konten", strfileSize
Response.charset = "UTF-8" 'Karakter Browser Pelanggan Set UTF-8
Response.contentType = ContentType
Response.binarywriteobjstream.read
Response.flush
objstream.close
Setobjstream = tidak ada
%>