Asp利用Stream实现文件下载

http://www.ii-home.cn/show.asp?id=116

 

<%
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
%>