程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> ASP實現網頁打開任何類型文件都提示保存的方法附代碼

ASP實現網頁打開任何類型文件都提示保存的方法附代碼

編輯:關於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 
%> 

此法要求保存文件時需同時保存文件名及文件大小!若未指定文件名及大小,如果浏覽器認識該文件類型,將會自動打開;如果不認識,才會提示客戶保存!
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved