Um projeto ASP recente que fiz requer download forçado de fotos. Não tenho escolha a não ser fazer isso sozinho.
A imagem não é processada.
- functiondownloadfile (strfile)
- strfilename = server.mappath (strfile)
- Response.Buffer = true
- Response.clear
- Sets = server.createObject (adodb.stream)
- S.Open
- S.Type = 1
- OnErrorReSumenext
- Setfso = server.createObject (script.filesystemoBject)
- ifnotfso.fileExists (strfileName) então
- Response.Write (<H1> ERRO: </h1> & strfileName & DoneNotexist <p>)
- Resposta.END
- endif
- Setf = fso.getFile (strfileName)
- intfilEleLength = f.size
- S.LoadFromFile (StrfileName)
- iferrThen
- Response.Write (<H1> Erro: </h1> & err.description & <p>)
- Resposta.END
- endif
- Response.AddHeadecontent-Disposição, anexo; nome do arquivo = & f.name
- Response.AddHeaderContent-comprimento, INTFILELENGLE
- Response.CharSet = UTF-8
- Response.ContentType = Application/Octet-Stream
- Response.BinaryWrites.Read
- Response.flush
- S.Close
- Sets = nada
- Função final
O acima é a função compartilhada por este artigo.