当前位置:首页 > ASP教程 > 应用技巧

ASP 下载时重命名已上传文件的新下载文件名的实现代码

问题:我想上传文件时后改名,下载时又将名改回来。
如:我上传一张“我的照片.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 ")

【说明】本文章由站长整理发布,文章内容不代表本站观点,如文中有侵权行为,请与本站客服联系(QQ:)!

相关教程推荐

其他课程推荐