'==========================================================================
'Имя процесса: saveremotefile
'Function: сохранить удаленные файлы в локальные
'Параметр: localfilename ------ локальное имя файла
'Параметры: remotefileurl ----- URL-адрес удаленного файла удаленного файла
'==========================================================================
FunctionSavereMotefile (LocalFilename, RemoteFileurl)
Saveremotefile = true
Димадс, поиск, getRemotedata
OnerRorResumenext
SetRetrieval = server.createObject ("microsoft.xmlhttp")
Безрельтивел
.Open "Get", remotefileurl, false "", "" "
.Отправлять
If.readystate <> 4or.status> 300then
Saveremotefile = false
Выходная функция
Эндиф
GetRemotedata =. -Responsebody
Энд
Setretrieval = ничего
'Iflenb (getRemotedata) <100thenexitFunction
'Ifmaxfilesize> 0then
'Iflenb (getRemotedata)> 5000ThenexitFunction
Response.write (круглый (Lenb (getRemotedata)/1024)) и "Kb"
'Endif
SetAds = server.createObject ("adodb.stream")
Withads
.Type = 1
.Открыть
.WriteGetRemotedata
.Savetofilesserver.mappath (localfilename), 2
.Отмена()
.Закрывать()
Энд
Iferr.number <> 0then
Saveremotefile = false
Выходная функция
Err.clear
Эндиф
Сетады = ничего
конечная функция