出自孟憲會大大的blog
Web開發人員都有過這樣的疑問，如何讓一個文件，尤其是一個已知類型的文件，發送到客戶端，直接提示讓浏覽者下載，而不是用與它相關聯的程序打開。以前我們最常用的辦法就是把這樣的文件加到鏈接上，這樣可以讓浏覽者通過點擊鼠標右鍵的目標另存為來下載所鏈接的文件。但是，這樣有兩個不足的地方：
一是：如果浏覽器能夠識別已下載文件的擴展名，則浏覽器就會激活該擴展名所關聯的程序來打開所下載的文件。比如：在Windows平台上，如果用戶點擊的鏈接鏈接的是一個“.doc”文件的話，那麼，浏覽器就會啟動Microsoft Word應用程序來打開它。
二是：如果采用鏈接的辦法的話，任何能看到該鏈接的人都可以下載該文件，你雖然也可以對所下載的文件進行權限設置，但那樣做也不是很方便的。有時候我們需要更為靈活和富有彈性的方式，下面的程序能夠很方便地克服以上兩方面的不足。
這種辦法是可靠的，但你必須記住：沒有授權的用戶不能夠通過在浏覽器地址欄裡輸入文件的URL來取得該文件的下載權。所以，要下載的文件應該放到虛擬目錄之外的一個目錄裡，比如：如果你的虛擬目錄是C:Mengxianhui omcat(一個很好用的JSP運行平台)4WebsiteMyApp的話，那麼，存放在該目錄和該目錄下的任何子目錄下所有文件對因特網上的任何用戶都是可見的。要直接下載一個文件，我們需要做兩件事，第一件事是：設定響應的內容類為“application/octet-stream”，大小寫無關。第二件事是：設置HTTP的響應頭名字為：Content-Disposition，設定值為：attachment; filename = theFileName。這裡的theFileName就是出現在文件下載對話框裡的默認文件名，通常和所下載的文件名字相同，但也可以不同。下面，我們就平常最常用的jsp(SUN企業級應用的首選)和ASP頁面來舉一個實際應用的例子。
TestFileDownload.jsp(SUN企業級應用的首選)頁面的例子：
<%
// 得到文件名字和路徑
String filename = "MengxianhuiDocTest.doc";
String filepath = "D:\";
// 設置響應頭和下載保存的文件名
response.setContentType("APPLICATION/OCTET-STREAM");
response.setHeader("Content-Disposition",
"attachment; filename="" + filename + """);
// 打開指定文件的流信息
java.io.FileInputStream fileInputStream =
new java.io.FileInputStream(filepath + filename);
// 寫出流信息
int i;
while ((i=fileInputStream.read()) != -1) {
out.write(i);
}
fileInputStream.close();
out.close();
%>
值得注意的是：在你要下載的文件內容裡，除了文件的內容之外，不應該再附加有其它任何的字符，包括空格和回車換行符。我們有時在編寫代碼的時候，為了使代碼清晰可讀，往往會添加一些空格、制表符或者回車換行符，這樣雖然看起來比較清晰，但有時可能會得不到正確的結果。比如：
<%@ page import="java.io.*"
%> <jsp(SUN企業級應用的首選):useBean id="MyBeanFromMengxianhui" scope="page"
class="com.Mengxianhui.DownloadBean" />
應該寫成這樣：
<%@ page import="java.io.*"
%><jsp(SUN企業級應用的首選):useBean id="MyBeanFromMengxianhui" scope="page"
class="com.Mengxianhui.DownloadBean" />
TestFileDownload.ASP頁面的例子：
在ASP裡，沒有提供從文件讀取文件流信息的方法，因此，為了得到文件的流信息，我們必須借助其他的工具，最簡單的就是編寫一個VB或C的DLL組件，讓組件返回文件的流信息。下面是一個用VB編寫的DLL的例子，工程名字為MengXHFileDownLoad，類模塊的名字為BinReadFromFile，類方法readBinFromFile如下：
Function readBinFromFile(ByVal bfilename As String) As Variant
Dim fl As Long
Dim FileNum As Long
Dim binbyte() As Byte
Dim binfilestr As String
On Error GoTo errHandler
FileNum = FreeFile
Open bfilename For Binary As #FileNum
