- <%
- Response.Buffer = True
- response.clear()
-
- 'url du fichier a récupérer
- URL = "http://www.lesite.truc/lefichier.txt"
-
- Set LesData = Server.CreateObject("ADODB.Stream")
- Set Lapage = Server.CreateObject("MSXML2.XMLHTTP")
-
- 'charge le fichier en mémoire
- Lapage.Open "GET", URL, False
- Lapage.Send()
-
- 'creer le flux de donnée pour ecrire le fichier
- LesData.Open
- LesData.WriteText Lapage.responseText
-
- 'ecrit le fichier sur le serveur
- LesData.SaveToFile server.mapPath("./" & "toto.txt"), 2
-
- Set Lapage = Nothing
- Set LesData = Nothing
-
- Response.Flush
-
- %>
<%
Response.Buffer = True
response.clear()
'url du fichier a récupérer
URL = "http://www.lesite.truc/lefichier.txt"
Set LesData = Server.CreateObject("ADODB.Stream")
Set Lapage = Server.CreateObject("MSXML2.XMLHTTP")
'charge le fichier en mémoire
Lapage.Open "GET", URL, False
Lapage.Send()
'creer le flux de donnée pour ecrire le fichier
LesData.Open
LesData.WriteText Lapage.responseText
'ecrit le fichier sur le serveur
LesData.SaveToFile server.mapPath("./" & "toto.txt"), 2
Set Lapage = Nothing
Set LesData = Nothing
Response.Flush
%>