[Resolvido] ServerXMLHTTP

[xanburzum 169]

Há uma maneira muito bacana para baixar ou pegar um arquivo usando a classe ServerXMLHTTP. Usando esse objeto você pode acessar e fazer download de um arquivo remoto fora do seu site.

 

Neste exemplo, vamos tentar acessar a página padrão do gazatem.com. Se a mensagem de estado é de 200, vamos exibir todo o conteúdo desta página

 

<%
    Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
    objXmlHttp.open "GET", "http://www.outro_site.com/", False
    objXmlHttp.send

        if objXmlHttp.status = 200 then
            ' Cabeçalho do código de retorno deve ser igual a 200
            strHTML = objXmlHttp.responseText
            response.Write(Server.HTMLEncode(strHTML))
            else
            ' Existe um erro 
            response.Write("Erro : " & objXmlHttp.statusText)
            end if
        Set objXmlHttp = Nothing
    %>