<%
'=========================================================================
'Имя функции: saveremotefile
'Function: сохранить удаленные файлы в локальные
'Параметр: strfilename ---- Сохранить имя файла
'strremoteurl --- URL удаленного файла
'Return Value: логическое истинное/false
'=========================================================================
FunctionSavereMotefile (byvalstrfilename, byvalstrremoteurl)
Dimostream, поиск, GetRemotedata
Saveremotefile = false
OnerRorResumenext
SetRetrieval = server.createObject ("microsoft.xmlhttp")
Понимание.
Понимание.send
Ifretrieval.readystate <> 4thenexitFunction
Ifretrieval.status> 300thenexitFunction
GetRemotedata = retlieval.responsebody
Setretrieval = ничего
Iflenb (getRemotedata)> 100then
SetoStream = server.createObject ("adodb.stream")
Ostream.Type = 1
ostream.mode = 3
Ostream.open
ostream.writegetRemotedata
usstream.savetofileserver.mappath (strfilename), 2
Ostream.cancel
ostream.close
Setostream = ничего
Еще
Выходная функция
Эндиф
Iferr.number = 0then
Saveremotefile = true
Еще
Err.clear
Эндиф
Конечная функция
%>
