Нажмите, чтобы загрузить PDF и другие файлы вместо того, чтобы открывать в браузере

<%

Dim Stream

Dim Contents

DIM FILENAME

Dim FileExt

Const adtypebinary = 1

Filename = request.querystring ("имя файла")

Если filename = "" тогда

Response.write "Имя файла Invfort".

Response.end

Конец, если

'Ниже приведен файл, который я не хочу скачать

Filext = mid (имя файла, instrrev (имя файла, ".") 1)

Выберите Case Ucase (FileExt)

Case "ASP", "ASA", "ASPX", "Asax", "MDB"

Response.write «Защищенные файлы, нельзя загрузить».

Response.end

Конец выбора

'Загрузите этот файл

Response.clear

Response.contenttype = "Приложение/октябрь-транс"

Ответ.

Set stream = server.createObject ("adodb.stream")

Stream.type = adtypebinary

Stream.Open

Stream.loadfromfile server.mappath (имя файла)

В то время как не Stream.eos

Response.binaryWrite Stream.read (1024 * 64)

Венд

Stream.Close

Установить поток = ничего

Response.flush

Response.end

%>

Использовать: скачать.asp?

Поместите свой файл DOC в файлы корневых каталогов, вы также можете поместить его в другом месте.