[Resolvido] pegando imagem externa e forçando o download

[kyllopardiun 0]

Quero pegar a imagem de um site em outro servidor (como se fosse o cURL do php)

e utilizar os dados em meu site estou tentando forçar o download da imagem também

poréms se isto não for possível gostária de saber como posso ao menos salvar a imagem do servidor externo no meu site.

 

 

<%
On Error Resume Next
'aqui vamos receber o endereço da imagem imagem original
imagem2 = request.QueryString("img")
imagem1 = "http://sitecomaimagejpgcomextençãoaspx"
imagem3 = ".aspx"
imagem = imagem1+imagem2+imagem3

Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", ""& imagem &"", False
xml.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
xmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
xml.Send
o = xml.responsebody
'response.BinaryWrite o
set xml = nothing


Dim Arquivo
Arquivo = o
Response.Buffer = True
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=" & Arquivo
Response.Flush

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath(Arquivo)
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
Response.Flush
%>

[hargon 64]

Tenta:

<%
url = "http://forum.imasters.com.br/placa-membro.gif"

Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", url, False
xml.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
xml.setRequestHeader "content-type", "image/jpg"
xml.Send
o = xml.responsebody
set xml = nothing

Dim Arquivo
Arquivo = o
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=placa-membro.gif"
Response.Flush

Response.Buffer = True

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
Response.BinaryWrite o
objStream.Close
Set objStream = Nothing
Response.Flush
%>

[kyllopardiun 0]

Tenta:

<%
url = "http://forum.imasters.com.br/placa-membro.gif"

Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", url, False
xml.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
xml.setRequestHeader "content-type", "image/jpg"
xml.Send
o = xml.responsebody
set xml = nothing

Dim Arquivo
Arquivo = o
Response.AddHeader "Content-Type","application/x-msdownload"
Response.AddHeader "Content-Disposition","attachment; filename=placa-membro.gif"
Response.Flush

Response.Buffer = True

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
Response.BinaryWrite o
objStream.Close
Set objStream = Nothing
Response.Flush
%>

obrigado deu certo eu só precisei de usar o o join na variavel join e funcionou =D

[hargon 64]

Muito bom. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif