asp 文件下载代码与获取文件名称

function   download(f,n)  
  '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  
            Reaponse.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.Postion=Clng(Split(Range,"-")(0))  
                  Response.BinaryWrite(S.Read)  
            end   if  
        end   if  
        Response.end  
   end   Function

'*******************************************
'函数作用：取得文件后缀名
'*******************************************
Function GetLocalPathFileExt(ByVal D)
 If Len(D) = 0 then Exit Function
 if instr(D,".")<0 then  Exit Function
 GetLocalPathFileExt=Right(D,Len(D)-InStrRev(D,"."))
End Function