<%
"=========================================================================================================
'Funktionsname: SaveremoteFile
'Funktion: Speichern Sie Remotedateien in lokal
'Parameter: Strfilename ---- Dateiname speichern
'Strremoteurl --- Remote-Datei-URL
'Rückgabewert: boolean true/false
"=========================================================================================================
Funktionenversemotfile (ByvalstrelleName, Byvalstrremoteurl)
DimoStream, Abruf, GetRemotedata
SaveremoteFile = False
OnErrorresumeNext
SetRevalal = server.createObject ("microsoft.xmlhttp"))
Retrieval.open "get", Strremoteurl, falsch, "", ""
Abrufen.Send
IfRetrieval.ReadyState <> 4Thenexitfunction
IfRetrieval.Status> 300Thenexitfunction
GetRemotedata = retrieval.responseBody
SetReval = nichts
Iflenb (GetRemotedata)> 100Then
Setostream = server.createObject ("adodb.stream")
ostream.type = 1
ostream.mode = 3
ostream.open
ostream.writeGetRemotedata
ostream.savetofileServer.Mappath (strFileName), 2
ostream.cancel
ostream.close
Setostream = nichts
Anders
Ausgangsfunktion
Endif
Ifer.number = 0Then
SaveremoteFile = true
Anders
Err.clear
Endif
Endfunktion
%>
