ASP implementa la función de descarga de imágenes forzadas

Un proyecto ASP reciente que he hecho requiere una descarga forzada de imágenes. No tengo más remedio que hacerlo yo mismo.

La imagen no se procesa.

1. FunctionDownloadFile (STRFILE)
2. strfilename = server.mappath (strfile)
4. Respuesta.Buffer = True
5. Respuesta.
7. Sets = server.createObject (ADODB.Stream)
8. abiertamente
10. S.Type = 1
12. onerrorResumEnext
14. Setfso = server.createObject (scripting.filesystemObject)
15. ifnotfso.fileExists (strfilename) entonces
16. Response.write (<h1> Error: </h1> & strfilename & doesnotexist <p>)
17. Respuesta.
18. endif
20. Setf = fso.getfile (strfileName)
21. intfilelength = f.size
23. S.LoadFromFile (strFileName)
24. iferrthen
25. Response.write (<h1> Error: </h1> & err.description & <p>)
26. Respuesta.
27. endif
29. Respuesta
30. Respuesta
31. Respuesta.Charset = UTF-8
32. Response.ContentType = Application/Octet-Stream
34. Response.BinaryWrites.Read
35. Respuesta. Flush
37. S. cerca
38. Conjuntos = nada
39. Función final

Lo anterior es la función compartida por este artículo.