Asp利用Stream下载文件

<%

Dim Stream

Dim FileName

Dim FileExt

Const adTypeBinary = 1

FileName="你的文件路径"

FileName=replace(FileName,"/","/")

name=mid(FileName,instrrev(FileName,"/")) '文件名

Response.Clear

Response.ContentType = "application/octet-stream"

Response.AddHeader "content-disposition", "attachment; filename="&name

Set Stream = server.CreateObject("ADODB.Stream")

Stream.Type = adTypeBinary

Stream.Open

Stream.LoadFromFile Server.MapPath(FileName)

While Not Stream.EOS

Response.BinaryWrite Stream.Read(1024 * 64)

Wend

Stream.Close

Set Stream = Nothing

Response.Flush

Response.End

%>