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 ")
如:我上传一张“我的照片.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 ")