<%
'------------------------------------------------ - ---------
'Функция: получить размер удаленного файла
'Параметр: URL-адрес удаленного файла
'Возврат: размер удаленного файла (единица измерения: байты)
'------------------------------------------------ - ---------
Функция getRemoteFileSize(url)
ДимксмлHTTP
Установите xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP")
xmlHTTP.open "получить", URL, ложь
«Следующее предложение очень важно, иначе вся информация о файле должна быть предварительно загружена перед возвратом информации заголовка.
xmlHTTP.setRequestHeader "диапазон", "байты=-1"
xmlHTTP.send()
getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Content-Range"),"/")(1)
Установить xmlHTTP = Ничего
Конечная функция
Response.Write(getRemoteFileSize(" %>