ASP реализует функцию загрузки принудительного изображения

Недавний проект ASP, который я сделал, требует принудительной загрузки фотографий. У меня нет выбора, кроме как сделать это сам.

Изображение не обрабатывается.

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 (scripting.filesystemobject)
15. ifnotfso.fileexists (strfilename), затем
16. Response.write (<h1> ошибка: </h1> & strfilename & donotexist <p>)
17. Response.end
18. эндиф
20. Setf = fso.getfile (strfilename)
21. intfileLength = f.size
23. s.loadfromfile (strfilename)
24. Iferrthen
25. Response.write (<h1> ошибка: </h1> & err.description & <p>)
26. Response.end
27. эндиф
29. Ответ
30. Response.AddHeaderContent длиной, IntFileLength
31. Response.charset = utf-8
32. Response.contenttype = приложение/октет-рулет
34. Response.binarywrites.read
35. Response.flush
37. S.Close
38. Наборы = ничего
39. Конечная функция

Вышеупомянутое функция, разделенная этой статьей.