使用Adodb.Stream下载大文件
2008-10-30 15:59
330 查看
使用Adodb.Stream下载文件,如下代码
Response.ContentType = "application/octet-stream"
response.AddHeader "Content-Disposition","attachment;filename=" & objRs("Attach_Name")& filetype
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.type=1
Stream.Open
Stream.LoadFromFile server.mappath(objRs("Attach_path"))
Response.BinaryWrite Stream.Read
Stream.Close
Set Stream = Nothing当下载文件小于4M时没问题,大于4M时出错,提示 :
Response对象错误 'ASP 0251 : 80004005'
超过响应缓冲区限制
问题出在IIS的配制中AspBufferingLimit只有4M,所以有如下几种解决办法:
1、修改IIS的配制
停止IIS服务,然后用记事本修改C:/WINDOWS/system32/inetsrv/MetaBase.xml 中的:
AspBufferingLimit="4194304" //即默认4M
改为:
AspBufferingLimit="8388608" //改为8M或更多,自己决定
2、如果不想修改IIS的默认配制就要修改代码了。
Response.Buffer=False ‘将Response.Buffer设为否
Response.ContentType = "application/octet-stream"
response.AddHeader "Content-Disposition","attachment;filename=" & objRs("Attach_Name")& filetype
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.type=1
Stream.Open
Stream.LoadFromFile server.mappath(objRs("Attach_path"))
offset = 0
ChunkSize = 2048*1024 ‘ChunkSize小于IIS配制文件中的AspBufferingLimit项所设置的大小
TotalSize = Stream.Size
while offset < TotalSize
if (TotalSize - offset < ChunkSize) then
ChunkSize = TotalSize – offset
end if
strChunk = Stream.Read(ChunkSize)
Response.BinaryWrite strChunk
offset = offset + ChunkSize
wend
Stream.Close或者
Response.Buffer= true ‘使用缓冲区
Response.Clear
Response.ContentType = "application/octet-stream"
response.AddHeader "Content-Disposition","attachment;filename=" & objRs("Attach_Name")& filetype
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.type=1
Stream.Open
Stream.LoadFromFile server.mappath(objRs("Attach_path"))
offset = 0
ChunkSize = 2048*1024
TotalSize = Stream.Size
while offset < TotalSize
if (TotalSize - offset < ChunkSize) then
ChunkSize = TotalSize – offset
end if
strChunk = Stream.Read(ChunkSize)
Response.BinaryWrite strChunk
response.flush ‘这句很重要,它把缓冲区的数据据推出去
offset = offset + ChunkSize
wend
Stream.Close
原文地址:http://www.azhi.net.cn/article.asp?id=02c7b86d72f346cba6f96aec189975ed
相关文章推荐
- 使用asp下的adodb.stream 下载文件而不是打开
- 使用asp下的adodb.stream 下载文件而不是打开
- 使用asp下的adodb.stream 下载文件而不是打开
- 利用ADODB.Stream使用浏览器下载服务器文件
- JScript中使用ADODB.Stream判断文件编码的代码
- 利用adodb.stream直接下载任何后缀的文件(防盗链)
- 自定义文件下载支持断点续传(HTTP_RANGE Adodb.Stream)
- 利用adodb.stream直接下载任何后缀的文件(防盗链)
- 使用XMLHttp和ADODB.Stream取得远程文件并保存到本地
- 让自定义文件下载支持断点续传(HTTP_RANGE Adodb.Stream)
- JScript中使用ADODB.Stream判断文件编码的代码
- c# 使用FtpWebRequest,FtpWebResponse ,Stream 实现获取文件列表及下载
- 利用xmlhttp和adodb.stream加缓存技术下载远程Web文件
- 利用Adodb.Stream直接下载文件
- 使用XMLHttp和ADODB.Stream取得远程文件并保存到本地
- ajax请求下载Stream形式的文件,需要使用form表单提交的方式
- ASP使用xmlhttp和Adodb.Stream保存远程文件到本地
- 使用ADODB.Stream对象读二进制文件
- 利用Adodb.Stream直接下载文件