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

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

以下是引用片段：
<% 
Dim Upload,FilePath 
Set Upload = Server.CreateObject("Persits.Upload") 
FilePath = Server.MapPath(".") & "\" & "2003529213019.txt" 
'SendBinary參數(shù)說(shuō)明: 
'參數(shù)一：文件物理路徑 
'參數(shù)二：是否將文件的MIME類(lèi)型等信息傳送給瀏覽器 
'參數(shù)三：文件類(lèi)型，可以指定具體的MIME類(lèi)型，但一般都可以使用application/octet-binary 
'參數(shù)四：讓客戶(hù)端保存文件還是直接打開(kāi)。True：保存；False(默認(rèn))：打開(kāi) 
Upload.SendBinary FilePath,True,"application/octet-binary",True 
%> 



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

<% 
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)識(shí)該文件類(lèi)型，將會(huì)自動(dòng)打開(kāi);如果不認(rèn)識(shí)，才會(huì)提示客戶(hù)保存!

安徽新華電腦學(xué)校專(zhuān)業(yè)職業(yè)規(guī)劃師為你提供更多幫助【在線(xiàn)咨詢(xún)】