【www.gdgbn.com--php常用代码】

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  

本文来源:http://www.gdgbn.com/jiaocheng/20335/