ASP implementa a função de download de imagem forçada

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.

1. functiondownloadfile (strfile)
2. strfilename = server.mappath (strfile)
4. Response.Buffer = true
5. Response.clear
7. Sets = server.createObject (adodb.stream)
8. S.Open
10. S.Type = 1
12. OnErrorReSumenext
14. Setfso = server.createObject (script.filesystemoBject)
15. ifnotfso.fileExists (strfileName) então
16. Response.Write (<H1> ERRO: </h1> & strfileName & DoneNotexist <p>)
17. Resposta.END
18. endif
20. Setf = fso.getFile (strfileName)
21. intfilEleLength = f.size
23. S.LoadFromFile (StrfileName)
24. iferrThen
25. Response.Write (<H1> Erro: </h1> & err.description & <p>)
26. Resposta.END
27. endif
29. Response.AddHeadecontent-Disposição, anexo; nome do arquivo = & f.name
30. Response.AddHeaderContent-comprimento, INTFILELENGLE
31. Response.CharSet = UTF-8
32. Response.ContentType = Application/Octet-Stream
34. Response.BinaryWrites.Read
35. Response.flush
37. S.Close
38. Sets = nada
39. Função final

O acima é a função compartilhada por este artigo.