Вот этот файл 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 пуста.
Получаем уведомления об этом? Я "случайно" наткнулся на ваш комментарий после того, как проверил свой профиль, без обид. Спасибо :)



![Безумие обратных вызовов в javascript [JS]](https://i.imgur.com/WsjO6zJb.png)


вы не поверите в это. Нашел ...
function exportmasterfile()
{ var url='../documenten/Master-File.xls';
window.open(url,'Download');
}
Извините ребята!
Почему вы извиняетесь? И если это решение, которое вы использовали, почему оно не отмечено как таковое?
Если ваш сервер настроен на запуск загрузки файлов этого типа 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
Пишите свои комментарии, используя ссылку «добавить комментарий», а не писать новые ответы ... 1) Пользователи будут уведомлены; 2) Вы не будете смешивать замечания и реальные решения.