ASP 下載時(shí)重命名已上傳文件的新下載文件名的實(shí)現(xiàn)代碼
更新時(shí)間：2012年03月03日 21:51:31 作者：
標(biāo)題有點(diǎn)拗口，今天群里在說這個(gè)問題，CSDN有答案，附上，需要的朋友可以參考下
問題：我想上傳文件時(shí)后改名，下載時(shí)又將名改回來。
如：我上傳一張“我的照片.jpg”上傳后改為系統(tǒng)數(shù)名“20040302001.jpg”下載時(shí)又改回“我的照片.jpg”
其中的保存新舊文件名都用數(shù)據(jù)庫（已做）
就是下載時(shí)的改名做不出來。
代碼：
<%
function dl(f,n)
on error resume next
Set S=CreateObject( "Adodb.Stream ")
S.Mode=3
S.Type=1
S.Open
S.LoadFromFile(f)
if Err.Number> 0 then
Response.Status= "404 "
else
Response.ContentType= "application/octet-stream "
Response.AddHeader "Content-Disposition: ", "attachment; filename= " & n
Range=Mid(Request.ServerVariables( "HTTP_RANGE "),7)
if Range= " " then
Response.BinaryWrite(S.Read)
else
S.position=Clng(Split(Range, "- ")(0))
Response.BinaryWrite(S.Read)
End if
end if
Response.End
end function
%>
函數(shù)使用示例：
call dl(Server.MapPath( "download/20040302001.jpg "), "我的照片.jpg ")
如：我上傳一張“我的照片.jpg”上傳后改為系統(tǒng)數(shù)名“20040302001.jpg”下載時(shí)又改回“我的照片.jpg”
其中的保存新舊文件名都用數(shù)據(jù)庫（已做）
就是下載時(shí)的改名做不出來。
代碼：
復(fù)制代碼 代碼如下:
<%
function dl(f,n)
on error resume next
Set S=CreateObject( "Adodb.Stream ")
S.Mode=3
S.Type=1
S.Open
S.LoadFromFile(f)
if Err.Number> 0 then
Response.Status= "404 "
else
Response.ContentType= "application/octet-stream "
Response.AddHeader "Content-Disposition: ", "attachment; filename= " & n
Range=Mid(Request.ServerVariables( "HTTP_RANGE "),7)
if Range= " " then
Response.BinaryWrite(S.Read)
else
S.position=Clng(Split(Range, "- ")(0))
Response.BinaryWrite(S.Read)
End if
end if
Response.End
end function
%>
函數(shù)使用示例：
復(fù)制代碼 代碼如下:
call dl(Server.MapPath( "download/20040302001.jpg "), "我的照片.jpg ")
相關(guān)文章
上一篇文章，我們將text中的數(shù)據(jù)插入到了textarea中，后臺(tái)就需要處理，在textarea中，回車符不是“\n”，應(yīng)該是chr(13)。2010-05-05
asp實(shí)現(xiàn)取得數(shù)組中的最大值的代碼
asp實(shí)現(xiàn)取得數(shù)組中的最大值的代碼...2007-08-08
Ajax+asp應(yīng)用實(shí)例 注冊(cè)模塊，表單提交
實(shí)例ajax注冊(cè)用戶和表單提交效果代碼2008-11-11
Access數(shù)據(jù)庫中“所有記錄中均未找到搜索關(guān)鍵字”的解決方法
這個(gè)是Access一個(gè)天生不足的表現(xiàn)，出現(xiàn)此錯(cuò)誤是因?yàn)槟愕腁ccess數(shù)據(jù)庫有錯(cuò)誤了。2008-08-08
asp獲取當(dāng)前網(wǎng)址，或獲取當(dāng)前頁面的所以參數(shù)2008-06-06
飛云寫的防CC攻擊的ASP程序插件 打包下載...2007-07-07
在運(yùn)行有一些asp文件的時(shí)候，殺毒軟件會(huì)阻止程序的運(yùn)行，或者直接將你的asp文件刪除，因?yàn)樗鼘⒛愕腶sp文件當(dāng)作是asp木馬文件了2008-11-11
ASP中Utf-8與Gb2312編碼轉(zhuǎn)換亂碼問題的解決方法 頁面編碼聲明
ASP程序在同一個(gè)站點(diǎn)中,如果有UTF-8編碼的程序，又有GB2312編碼的程序時(shí)，在瀏覽UTF-8編碼的頁面后，再瀏覽當(dāng)前網(wǎng)站GB2312的頁面，GB2312編碼的頁面就會(huì)出現(xiàn)亂碼2012-02-02
利用 cache 做對(duì)比靜態(tài)頁的網(wǎng)頁技術(shù)
利用 cache 做對(duì)比靜態(tài)頁的網(wǎng)頁技術(shù)...2007-10-10
用asp實(shí)現(xiàn)檢測(cè)文件編碼...2007-01-01