Просто сохраните файл ниже как Download.asp, а затем перенесите его для загрузки по мере необходимости. Формат: Download.asp?FileName=Имя файла, который необходимо загрузить.
Скопируйте код кода следующим образом:
Тусклый поток
Тусклое содержимое
Тусклое имя файла
Тусклый файлExt
Конст адтипебинарный = 1
ИмяФайла = Request.QueryString(ИмяФайла)
если ИмяФайла = Тогда
Response.Write Недопустимое имя файла.
Ответ.Конец
Конец, если
'Ниже приведены файлы, которые вы не хотите загружать
FileExt = Mid(ИмяФайла, InStrRev(ИмяФайла, .) + 1)
Выберите регистр UCase(FileExt)
Корпус ASP, ASA, ASPX, ASAX, MDB
Response.Write является защищенным файлом и не может быть загружен.
Ответ.Конец
Конец выбора
'Загрузить этот файл
Ответ.Очистить
Response.ContentType = приложение/поток октетов
Response.AddHeader расположение содержимого, имя_файла= & Имя_файла;
Установить поток = server.CreateObject(ADODB.Stream)
Stream.Type = adTypeBinary
Стрим.Открыть
Stream.LoadFromFile Server.MapPath(имя_файла)
Пока не Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Венд
Поток.Закрыть
Установить поток = ничего
Ответ.Flush
Ответ.Конец