Файлы с сервера на сервер с помощью XMLHTTP

@DeathSpirit · Регистрация: 06.09.2011

Author24 — интернет-сервис помощи студентам

С помощью XMLHTTP понял как с одного (нелегально) сайта брать файл, но после этого его надо автоматом сохранить на свой сервер на котором выполняется скрипт!!!

Как это можно сделать!
Желательно ответ в коде

@bazile · 07.09.2011, 12:39

Вот пример использования ServerXMLHTTP совместно с ADODB.Stream

VB.NET

Dim url
url = "http://..."
'
Dim objSrvHttp
Set objSrvHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
Call objSrvHTTP.open("GET", url, False)
objSrvHTTP.send()
If (200 <> objSrvHTTP.status) Then
    Response.Write("HTTP Error: " & objSrvHTTP.status)
Else
    Dim objStream
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Type = 1 ' adTypeBinary
    objStream.Open
    objStream.Write(objSrvHTTP.responseBody)
    Call objStream.SaveToFile(Server.MapPath("/_result.txt"), 2)
    objStream.Close()
End If

@DeathSpirit · 07.09.2011, 13:46 **[ТС]**

Спасибо!

Это именно то что мне нужно было!

@DeathSpirit 0 / 0 / 0 Регистрация: 06.09.2011 Сообщений: 3
		1
	Файлы с сервера на сервер с помощью XMLHTTP 06.09.2011, 23:20. Показов 1201. Ответов 2 Метки нет (Все метки) С помощью XMLHTTP понял как с одного (нелегально) сайта брать файл, но после этого его надо автоматом сохранить на свой сервер на котором выполняется скрипт!!! Как это можно сделать! Желательно ответ в коде 0

@DeathSpirit 0 / 0 / 0 Регистрация: 06.09.2011 Сообщений: 3
	07.09.2011, 13:46 [ТС]	3
	Спасибо! Это именно то что мне нужно было! 0