相信大家平時都有這樣的經歷：頁面上有一個鏈接指向服務器一個Word文件，當客戶端機器有安裝Office時，點擊鏈接將調用Word打開瀏覽；當客戶端機器沒有安裝Office時，點擊鏈接將彈出保存對話框。總結一下即如果瀏覽器認識文件類型，就會自動打開；如果不認識，則會提示客戶保存。可是有時候我們希望不管什麼類型文件，都不要打開，直接讓客戶端保存。要達到這個要求，對於保存在服務器硬盤上的文件就得利用ASPUpload組件的SendBinary方法來實現，而對於保存在數據庫中的文件則只須打開記錄集，然後將二進制數據直接輸出到客戶端即可，不過要告訴瀏覽器文件的MIME類型、文件名稱和文件大小。
1.服務器端硬盤上的文件
複製代碼代碼如下:
<%
DimUpload,FilePath
SetUpload=Server.CreateObject("Persits.Upload")
FilePath=Server.MapPath(".")&"/"&"2003529213019.txt"
'SendBinary參數說明:
'參數一：文件物理路徑
'參數二：是否將文件的MIME類型等信息傳送給瀏覽器
'參數三：文件類型，可以指定具體的MIME類型，但一般都可以使用application/octet-binary
'參數四：讓客戶端保存文件還是直接打開。 True：保存；False(默認)：打開
Upload.SendBinaryFilePath,True,"application/octet-binary",True
%>
2.服務器端數據庫中的文件
複製代碼代碼如下:
<%
DimobjConn,objRs
SetobjConn=Server.CreateObject("ADODB.Connection")
SetobjRs=Server.CreateObject("ADODB.RecordSet")
objConn.open"Driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath("db1.mdb")
objRs.open"select*fromt5whereid=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.BinaryWriteobjRs("file")
objRs.close
SetobjRs=nothing
objConn.close
SetobjConn=nothing
%>
此法要求保存文件時需同時保存文件名及文件大小！若未指定文件名及大小，如果瀏覽器認識該文件類型，將會自動打開；如果不認識，才會提示客戶保存！