asp 文件下载代码

filepath = "/music/2006522133342.mp3"
filepath = server.mappath(filepath)
    Response.buffer = True            '开启缓存
    Response.ContentType = "audio/x-pn-realaudio"      ‘文件类型    
    Dim objStream
    Set objStream = Server.CreateObject("ADODB.Stream")        '创建ADODB.stream对象
    objStream.Type = 1        '以二进制读取模式
    objStream.Open
    objStream.LoadFromFile filepath    '读取文件
    Response.binarywrite objStream.Read            '以二进制的方式输出至客户端浏览器
    response.Flush()        '边缓存边输出
    Session("afon")=false        '重新设置session为FALSE        
    objStream.Close
    Set objStream = Nothing    

附常见的contenttype类型

<% 
Function Get_FileTypeAbName(sFileType)
      select case sFileType
 '图像类
        Case  "image/gif" 
            Get_FileTypeAbName="gif"
            exit function
        Case  "image/pjpeg" 
            Get_FileTypeAbName="jpg"
            exit Function
        Case  "image/bmp" 
            Get_FileTypeAbName="bmp"
            exit Function
        Case  "image/png" 
            Get_FileTypeAbName="png"
            exit Function
        Case "image/tif"
            Get_FileTypeAbName="tif"
            Exit Function
'音频类  
        Case "audio/mpeg"
            Get_FileTypeAbName="mp3"
            Exit Function
        Case "audio/x-ms-wma"
            Get_FileTypeAbName="wma"
            Exit Function
        Case "audio/mid"
            Get_FileTypeAbName="mid"
            Exit Function
        Case "audio/wav"
            Get_FileTypeAbName="wav"
            Exit Function
'视频类
        Case "application/vnd.rn-real media"
            Get_FileTypeAbName="rm"
            Exit Function
        Case "video/x-ms-wmv"
            Get_FileTypeAbName="wmv"
            Exit Function
'flash
        Case "application/x-shockwave-flash"
            Get_FileTypeAbName="swf"
            Exit Function
'压缩软件类
        Case "application/x-zip-compressed"
            Get_FileTypeAbName="zip"
            Exit Function
        Case "application/octet-stream"
            Get_FileTypeAbName="rar"
            Exit Function 
'文本类  
        Case "text/plain"
            Get_FileTypeAbName="txt"
            Exit Function 
        Case "text/html"
            Get_FileTypeAbName="html"
            Exit Function 
        Case "application/msaccess"
            Get_FileTypeAbName="mdb"
            Exit Function 
        Case "application/msword"
            Get_FileTypeAbName="doc"
            Exit Function
        Case "application/vnd.ms-excel"
            Get_FileTypeAbName="xls"
            Exit Function
     end select
End Function
%>