欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-14 19:45:28
问题:我想上传文件时后改名,下载时又将名改回来。 如:我上传一张“我的照片.jpg”上传后改为系统数名“20040302001.jpg”下载时又改回“我的照片.jpg” 其...
问题:我想上传文件时后改名,下载时又将名改回来。
如:我上传一张“我的照片.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 ")