ASP下载时重命名文件名函数

文件上传成功后一般都会重命名文件名，文件名一般都是字母+数字，或者纯数字来命名的，如果有些文件我们提供下载的话，我们想下载后重命名文件怎么办？

文件下载后重命名的作用

1、下载后重命名文件，可以让下载者看到文件名就知道这是一个什么文件。

2、下载后重命名文件，可以有效的让你分类文件类型

要求：我上传一张“编程之家.jpg”的图片上传后改为系统数名“20160302001.jpg”下载时又改回“编程之家.jpg”。ASP实现函数如下:

<% 

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

编程之家JS代码频道里的代码下载的时候就使用了这种功能，下载后会自动重命名文件夹。大体思路就是这个样子的，大家可以自己试试。