教程中国
PHOTOSHOP CS9.0中文版 MAYA 8.5 FOR WINDOWS Corel Painter v9.0 Flash MX2004 中文版 Illustrator cs2 中文版
VC++6.0含sp6 中英文版 VB6.0 +sp6 简体中文版 Borland Delphi 7汉化版 MSDN for vb6.0中文版 Visual Studio 2005简体
教程中国下属 文件存储共享专家BIBIDU.COM 提供大型软件,教材,源码,电影,音乐,图书等下载 更多精品请点此进入
  您目前所在位置: 教程中国 >> 编程基地 >> ASP >> 让自定义文件下载支持断点续传(HTTP_RANGE Adodb.Stream) RSS订阅
让自定义文件下载支持断点续传(HTTP_RANGE Adodb.Stream)
教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索
IT搜索引擎   

1.浏览器已知类型,如Avi,Doc等如果本地安装了关联程序就会自动在浏览器上打开
2.权限管理,有时候不是所有的人都允许下载,所以需要在下载的时候进行判断
3.经常需要将特殊文件搁到虚拟目录访问不到的地方,以及asp和asa等文件的下载

大家经常用的是Adodb.Stream,但这时就有个缺陷,就是不支持断点续传了。
经常看到flashget中是红脸(即不支持断点续传)其实支持断点续传也很简单。如下:
利用读取HTTP_RANGE,然后对Adodb.Stream进行定位,然后再输出
(原来代码中本来还有Content-Length的设置,理论上应该有,但实践上可省去)

function dl(f,n)
 on error resume next
 Set S=CreateObject("Adodb.Stream")
 S.Mode=3
 S.Type=1
 S.Open 
 S.LoadFromFile(f)
 if Err.Number>0 then
  Response.Status="404"
 else
  Response.ContentType="application/octet-stream"
  Response.AddHeader "Content-Disposition:","attachment; filename=" & n
  Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
  if Range="" then
   Response.BinaryWrite(S.Read)
  else
   S.position=Clng(Split(Range,"-")(0))
   Response.BinaryWrite(S.Read)
  End if
 end if
 Response.End
end function

call dl(Server.MapPath("c.avi"),"c.avi")

这时候你会看到红脸变笑脸了,一般用在大文件的下载

本地FlashGet测试通过,并用fc比较下载后的文件和原先的文件
FC: 找不到相异处

来源:upschool.cn
作者:
关键字:HTTP,RANGE
发表日期:2006-7-26

网页显示有限 阅读全文请下载本文完整版WORD文档

上一篇:无限级目录树最优算法的新研究   下一篇:通过Adodb.Stream取得图像(BMP JPG PNG GIF SWF)的高度和宽度


2008-11-21 17:09:28
本文的相类似文章
  • IE中HTTP实现代码存在缺陷
  • Index Range Scan
  • 为什么错误日志里面出现"httpd: could not set socket option TCP_NODELAY"
  • 感受kHTTPd
  • Squid+MRTG实现完善的缓存代理和http服务加速代理
  • 改变或关闭Oracle XDB的ftp和http端口
  • 如何正确使用 HTTP 安装 Oracle 产品
  • HTTP500内部服务器错误修正办法
  • 解决IIS5 HTTP500内部错误
  • 利用HTTP指令进行攻击之Cache篇
  • 在学习中进步 在进步中成长 教程中国相随您的成长之路
    华腾联合科技股份有限公司版权所有
    广告联系:Rosibo@163.com