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 ")