台灣最大程式設計社群網站
線上人數
1934
 
會員總數:246133
討論主題:189712
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 強迫下載jpg檔
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
強迫下載jpg檔
價值 : 0 QP  點閱數:1473 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
剛剛試出來了,可以直接下載,不會開視窗,
用的時候改圖檔檔名就可以了。
另外 winzip 或 其它檔案應該也可以直接下載
參考網站:http://www.aspalliance.com/nothingmn/default.aspx?whichpoll=nothingmn_2&aid=2

http://www.asp101.com/samples/viewasp.asp?file=download_sample.asp
http://www.pstruh.cz/help/RSConv/default.htm
<%
' Response.ContentType = "image/jpeg"
response.addheader "Content-Disposition","attachment; filename=" & chr(34) & "a01.JPG" & chr(34)
response.binarywrite getBinaryFile(server.mappath("a01.JPG"))

function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile= oStream.read
set oStream=nothing
end function
%>


本篇文章發表於2002-04-12 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.