Asp 二进制数据流方法下载实现代码[网站编程]

<%  
Set Fs = Server.CreateObject("Scripting.FileSystemObject") 'Fso对象  
Set Ado = Server.CreateObject("Adodb.Stream") 'Ado对象  
i = 0 '计数器  
r = 1024 '每次读取大小(byte)  
FilePath = Server.MapPath("test.mp3") '文件途径  
'Ado.Mode = 3 '1 读,2 写,3 读写.  
Ado.Type = 1 '1 二进制,2 文本.  
Ado.Open  
Ado.LoadFromFile(FilePath) '载入文件  
Response.AddHeader "Content-Disposition", "attachment; filename=" & Fs.GetFile(FilePath).name '文件名  
Response.AddHeader "Content-Length", Ado.size '告诉浏览器接纳的文件大小  
Response.ContentType = "application/octet-stream" '告诉浏览器承受的文件范例(可自己定义,很多种,但普通都用这个.)  
While i < Ado.Size '循环读取直到读完为止  
Response.BinaryWrite Ado.Read(r) '输出二进制数据流  
Response.Flush '当即发送(要求至少256字节),不加的话大概提醒超越缓存区.  
ii = i + r '累加计数器  
Wend  
Ado.Close '关闭文件对象  
Response.End  
%> 
 

注释基本都写全了,不再注释了.兼容性对比好,支持肆意文件.不知道干什么用的?是下载服务器上文件用的,读取服务器肆意文件后,采取二进制数据流的方法下载.