利用Stream下载文件

Function dl(f,n)

On error resume Next

Set s=CreateObject("Adodb.Stream")

s.Mode=3

s.Type=1

s.Open

s.Loadformfile(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

函数调用实例

call dl(Server.MapPath("text.zip"),"test.zip")