ASP實現網頁開啟任何類型檔案都提示儲存的方法附代碼

相信大家平時都有這樣的經曆：頁面上有一個連結指向伺服器一個Word檔案，當用戶端機器有安裝Office時，點選連結將調用Word開啟瀏覽；當用戶端機器沒有安裝Office時，點選連結將彈出儲存對話方塊。總結一下即如果瀏覽器認識檔案類型，就會自動開啟；如果不認識，則會提示客戶儲存。可是有時候我們希望不管什麼類型檔案，都不要開啟，直接讓用戶端儲存。要達到這個要求，對於儲存在伺服器硬碟上的檔案就得利用ASPUpload組件的SendBinary方法來實現，而對於儲存在資料庫中的檔案則只須開啟記錄集，然後將位元據直接輸出到用戶端即可，不過要告訴瀏覽器檔案的MIME類型、檔案名稱和檔案大小。

1.伺服器端硬碟上的檔案

複製代碼 代碼如下:<%
Dim Upload,FilePath
Set Upload = Server.CreateObject("Persits.Upload")
FilePath = Server.MapPath(".") & "\" & "2003529213019.txt"
'SendBinary參數說明:
'參數一：檔案實體路徑
'參數二：是否將檔案的MIME類型等資訊傳送給瀏覽器
'參數三：檔案類型，可以指定具體的MIME類型，但一般都可以使用application/octet-binary
'參數四：讓用戶端儲存檔案還是直接開啟。True：儲存；False(預設)：開啟
Upload.SendBinary FilePath,True,"application/octet-binary",True
%>

2.伺服器端資料庫中的檔案 複製代碼 代碼如下:<%
Dim objConn,objRs
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.RecordSet")
objConn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db1.mdb")
objRs.open "select * from t5 where id=2",objConn,1,3
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment;filename=" & objRs("filename")
Response.AddHeader "Content-Length",CStr(objRs("size")) '此處必須用CStr轉換
Response.BinaryWrite objRs("file")
objRs.close
Set objRs = nothing
objConn.close
Set objConn = nothing
%>

此法要求儲存檔案時需同時儲存檔案名稱及檔案大小！若未指定檔案名稱及大小，如果瀏覽器認識該檔案類型，將會自動開啟；如果不認識，才會提示客戶儲存！