標題有點拗口,今天群組在說這個問題,CSDN有答案,附上,需要的朋友可以參考下問題:我想上傳文件時後改名,下載時又將名改回來。
如:我上傳一張我的照片.jpg上傳後改為系統數名20040302001.jpg下載時又改回我的照片.jpg
其中的保存新舊檔名都用資料庫(已做)
就是下載時的改名做不出來。
代碼:
複製代碼代碼如下:
<%
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
%>
函數使用範例:
複製代碼代碼如下:
call dl(Server.MapPath( download/20040302001.jpg ), 我的照片.jpg )