Недавний проект ASP, который я сделал, требует принудительной загрузки фотографий. У меня нет выбора, кроме как сделать это сам.
Изображение не обрабатывается.
- 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 (scripting.filesystemobject)
- ifnotfso.fileexists (strfilename), затем
- Response.write (<h1> ошибка: </h1> & strfilename & donotexist <p>)
- Response.end
- эндиф
- Setf = fso.getfile (strfilename)
- intfileLength = f.size
- s.loadfromfile (strfilename)
- Iferrthen
- Response.write (<h1> ошибка: </h1> & err.description & <p>)
- Response.end
- эндиф
- Ответ
- Response.AddHeaderContent длиной, IntFileLength
- Response.charset = utf-8
- Response.contenttype = приложение/октет-рулет
- Response.binarywrites.read
- Response.flush
- S.Close
- Наборы = ничего
- Конечная функция
Вышеупомянутое функция, разделенная этой статьей.