Function DownFile2(strFile)
strFilename = server.MapPath(strFile)
fname=instrrev(replace(strFile,"\","/"),"/")
if fname>0 then
fname=right(strFile,len(strFile)-fname)
else
fname=strFile
end if
Response.ContentType = "application/x-download"
Response.AddHeader "content-disposition", "attachment; filename=" &fname
set Stream=CreateObject("Adodb.Stream")
Stream.Type = 1
Stream.Open
Stream.LoadFromFile strFilename
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
End Function