自定义文件下载基本上用在以下几处

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: 找不到相异处

通常想实现用户登录后，才可以下载某此文件，可以用cookies和session来解决用户是否登录，然后根据cookies和session里面记录的值来确定是否给予下载。但是这样做有一个缺点：如果别人知道那个文件的路径，在IE中直接输入路径地址就可以下载了，这样的结果并不是我们想要的。
首先，我们要将保存文件的那个文件夹名字前加上#，为了防止从IE中下载此文件。
index.html文件（用来提供下载）
<a href="down.asp?u=789.rar">下载</a>

down.asp
<!--#include file="download.asp"-->
<%
Dim u
u=request.querystring("u")
downloadFile "./#soft/123.rar", u
%>

download.asp
<%
''author : lael 2006-2-20
function downloadFile(downfile, downname)
on error resume next

dlfile = server.MapPath(downfile)

Response.Buffer = True
Response.Clear

Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1

Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(dlfile) then
      set fso = nothing
   oStream.Close
      Set oStream = nothing
   downloadFile = "error:1"
   exit function
end if
Set ofile = fso.GetFile(dlfile)
filesize = ofile.size

oStream.LoadFromFile(dlfile)
if err then 
   err.clear
   set ofile = nothing
      set fso = nothing
   oStream.Close
      Set oStream = nothing
   downloadFile = "error:2"
   exit function
end if

Response.AddHeader "Content-Disposition", "attachment; filename=" & downname
Response.AddHeader "Content-Length", filesize
Response.CharSet="UTF-8"
Response.ContentType="text/plain"

Response.BinaryWrite oStream.Read
Response.Flush

set ofile = nothing
set fso = nothing
oStream.close
Set oStream = nothing

downloadFile = ""

end function

''/////////////////////

%>
-------------------------转贴请注名出处-------------------------------