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

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: StreamStream
相关日志: