Загрузите файл с помощью Javascript

Вот этот файл Excel, который я хочу, чтобы пользователи могли загружать с моего сервера. Должен быть простой способ начать загрузку файла после щелчка по кнопке «Загрузить» ... но я понятия не имею, как это сделать.

У меня пока есть это: (VBscript и ASP)

<head>
<script type = "text/javascript" src = "overzicht.js"></script>
</head>

Set fs=Server.CreateObject("Scripting.FileSystemObject")

    if (fs.FileExists("c:\file.xls"))=true then   'fake filename D:
        response.write("<input type='button' value='Download Masterfile' class='button' onclick='exportmasterfile();' /><br />")
    else
        response.write("Masterfile not found. <br />")
    end if

    set fs=nothing

Функция javascript пуста.

Пишите свои комментарии, используя ссылку «добавить комментарий», а не писать новые ответы ... 1) Пользователи будут уведомлены; 2) Вы не будете смешивать замечания и реальные решения.

PhiLho 08.12.2008 16:40

Получаем уведомления об этом? Я "случайно" наткнулся на ваш комментарий после того, как проверил свой профиль, без обид. Спасибо :)

Kablam 09.12.2008 15:03
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Концепция локализации и ее применение в приложениях React ⚡️
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Улучшение производительности загрузки с помощью Google Tag Manager и атрибута Defer
Улучшение производительности загрузки с помощью Google Tag Manager и атрибута Defer
В настоящее время производительность загрузки веб-сайта имеет решающее значение не только для удобства пользователей, но и для ранжирования в...
Безумие обратных вызовов в javascript [JS]
Безумие обратных вызовов в javascript [JS]
Здравствуйте! Юный падаван 🚀. Присоединяйся ко мне, чтобы разобраться в одной из самых запутанных концепций, когда вы начинаете изучать мир...
Система управления парковками с использованием HTML, CSS и JavaScript
Система управления парковками с использованием HTML, CSS и JavaScript
Веб-сайт по управлению парковками был создан с использованием HTML, CSS и JavaScript. Это простой сайт, ничего вычурного. Основная цель -...
JavaScript Вопросы с множественным выбором и ответы
JavaScript Вопросы с множественным выбором и ответы
Если вы ищете платформу, которая предоставляет вам бесплатный тест JavaScript MCQ (Multiple Choice Questions With Answers) для оценки ваших знаний,...
10
2
68 788
4
Перейти к ответу Данный вопрос помечен как решенный

Ответы 4

Ответ принят как подходящий

вы не поверите в это. Нашел ...

function exportmasterfile()
{   var url='../documenten/Master-File.xls';    
    window.open(url,'Download');  
}

Извините ребята!

Почему вы извиняетесь? И если это решение, которое вы использовали, почему оно не отмечено как таковое?

Mizipzor 10.09.2010 14:02

Если ваш сервер настроен на запуск загрузки файлов этого типа mime, это очень просто:

window.location = your_url

На самом деле, если вам нужен более эффективный (и более сексуальный) способ, используйте:

location.href = your_url;

Таким образом вы сэкономите некоторое время компилятору при переходе от цепочки прототипов location к объекту window.

Вот функция VBScript для загрузки двоичного файла.

Function SaveUrlToFile(url, path)
  Dim xmlhttp, stream, fso

  ' Request the file from the internet.
  Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
  xmlhttp.open "GET", url, false
  xmlhttp.send
  If xmlhttp.status <> 200 Then
    SaveUrlToFile = false
    Exit Function
  End If

  ' Download the file into memory.
  Set stream = CreateObject("ADODB.Stream")
  stream.Open
  stream.Type = 1 ' adTypeBinary
  stream.Write xmlhttp.responseBody
  stream.Position = 0 ' rewind stream

  ' Save from memory to physical file.
  Set fso = Createobject("Scripting.FileSystemObject")
  If fso.Fileexists(path) Then
    fso.DeleteFile path
  End If
  stream.SaveToFile path

  SaveUrlToFile = true
End Function

Другие вопросы по теме