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.LoadFromFilefilepath ' 读取文件
Response.binarywriteobjStream.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-realmedia "
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
EndFunction
% >