相信大家平時都有這樣的經(jīng)歷：頁面上有一個鏈接指向服務器一個Word文件，當客戶端機器有安裝Office時，點擊鏈接將調(diào)用Word打開瀏覽；當客戶端機器沒有安裝Office時，點擊鏈接將彈出保存對話框?？偨Y(jié)一下即如果瀏覽器認識文件類型，就會自動打開；如果不認識，則會提示客戶保存?？墒怯袝r候我們希望不管什么類型文件，都不要打開，直接讓客戶端保存。要達到這個要求，對于保存在服務器硬盤上的文件就得利用ASPUpload組件的SendBinary方法來實現(xiàn)，而對于保存在數(shù)據(jù)庫中的文件則只須打開記錄集，然后將二進制數(shù)據(jù)直接輸出到客戶端即可，不過要告訴瀏覽器文件的MIME類型、文件名稱和文件大小。

1.服務器端硬盤上的文件

<%

Dim Upload,FilePath

Set Upload = Server.CreateObject("Persits.Upload")

FilePath = Server.MapPath(".") & "" & "2003529213019.txt"

'SendBinary參數(shù)說明:

'參數(shù)一：文件物理路徑

'參數(shù)二：是否將文件的MIME類型等信息傳送給瀏覽器

'參數(shù)三：文件類型，可以指定具體的MIME類型，但一般都可以使用application/octet-binary

'參數(shù)四：讓客戶端保存文件還是直接打開。True：保存；False(默認)：打開

Upload.SendBinary FilePath,True,"application/octet-binary",True

%>

2.服務器端數(shù)據(jù)庫中的文件

<%

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轉(zhuǎn)換

Response.BinaryWrite objRs("file")

objRs.close

Set objRs = nothing

objConn.close

Set objConn = nothing

%>

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

更多信息請查看IT技術(shù)專欄