ASP實(shí)現(xiàn)網(wǎng)頁打開任何類型文件都提示保存的方法附代碼

更新時(shí)間：2007年11月29日 21:46:52 作者：

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

1.服務(wù)器端硬盤上的文件

復(fù)制代碼代碼如下:

<%  
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(默認(rèn))：打開  
Upload.SendBinary FilePath,True,"application/octet-binary",True  
%> 

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

復(fù)制代碼代碼如下:

<%  
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  
%> 