Asp 读取任意文件，二进制数据流方式下载
2018-09-06 12:42
阅读：607
<%
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-Length, Ado.size 通知浏览器接收的文件大小
While i < Ado.Size 循环读取直到读完为止
Response.BinaryWrite Ado.Read(r) 输出二进制数据流
Response.Flush 立即发送(要求至少256字节)，不加的话可能提示超过缓存区。
i = i + r 累加计数器
Wend
Ado.Close 关闭文件对象
Response.End
%>
注释基本都写全了，不再解释了。兼容性比较好，支持任意文件。不知道干什么用的？是下载服务器上文件用的，读取服务器任意文件后，采用二进制数据流的方式下载。
文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：Asp 读取任意文件，二进制数据流方式下载
文章链接：http://soscw.com/index.php/essay/10595.html
文章标题：Asp 读取任意文件，二进制数据流方式下载
文章链接：http://soscw.com/index.php/essay/10595.html
评论
亲，登录后才可以留言！