欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

不懂,不懂。看得懂每一句的意思,但不知道是什么原理?(文件下载)解决办法

更新时间: 2014-01-05 01:52:45 责任编辑: Author_N1

 

不懂,不懂。看得懂每一句的意思,但不知道是什么原理?(文件下载)

<%Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
Response.Clear
Response.ContentType = "application/ms-download"
Response.AddHeader "content-disposition", "attachment; filename="&softname&"." & F_Ext & ""
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(""&downurl&"")
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
end if
rs.close
set rs=nothing
%> 
问题:1、“adTypeBinary”是什么值啊。2、代码的表面意思知道了,但不知道是怎样的过程,整个下载程序的流程是怎样分布设定的?

--参考方法--
1. 代码里有 Const adTypeBinary = 1 
2. 整个过程涉及到http协议, 可以参考 http://www.ietf.org/rfc/rfc2183.txt

--参考方法--
基本原理是这样的:设置向client输出的内容类型并设置头信息,然后使用 流 形式以二进制方式打开并读取服务器上指定的文件,再向client端的缓存输出整个文件的内容;也即把服务器上的文件内容以二进制的流的形式向客户端输出就可以了

Stream.Type = adTypeBinary = 1 指定以2进制流形式
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:45
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2421/
本文WWW.DOC100.NET DOC100.NET版权所有。