欧美激情网,国产欧美亚洲高清,欧美屁股xxxxx,欧美群妇大交群,欧美人与物ⅴideos另类,区二区三区在线 | 欧洲

知識學(xué)堂
  • ·聯(lián)系電話:+86.023-75585550
  • ·聯(lián)系傳真:+86.023-75585550
  • ·24小時(shí)手機(jī):13896886023
  • ·QQ 咨 詢:361652718 513960520
當(dāng)前位置 > 首頁 > 知識學(xué)堂 > 網(wǎng)站建設(shè)知識
ASP實(shí)現(xiàn)網(wǎng)頁打開任何類型文件都保存的方法
更新時(shí)間:2011-12-28 | 發(fā)布人:本站 | 點(diǎn)擊率:612

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

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

<%
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ù)庫中的文件

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

此法要求保存文件時(shí)需同時(shí)保存文件名及文件大��!若未指定文件名及大小,如果瀏覽器認(rèn)識該文件類型,將會自動打開;如果不認(rèn)識,才會提示客戶保存!