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