Salvare immagini in locale da un url

[ErgoSum]

Ciao,
dovrei realizzare una pagina in codice ASP classico per fare in modo che dato l'url di una immagine tipo "http://utenti.html.it/common/img/logo_forum.gif" questa immagine venga salvata in locale.

Ho trovato questo sul forum

Function GetBinaryUrl(Url)
Dim Http
	Set Http = Server.CreateObject("Microsoft.XMLHTTP")
	Http.open "GET",Url,False
	Http.Send()
	GetBinaryUrl = Http.ResponseBody
	Set Http=Nothing
End Function

Function SaveUrlIn(Url)
Dim LocalPath
	Set Stream = Server.CreateObject("ADODB.Stream")
	Stream.Type=1
	Stream.Open()
	Stream.Write GetBinaryUrl(Url)
	Url = Replace(Url,"/","\")
	LocalPath = Server.MapPath("/dir/nomefile.ext") 
	Stream.SaveToFile LocalPath,2
	Stream.Close()
	Set Stream = Nothing
End Function

SaveUrlIn "http://www.villalba1.org/img/contatto.gif"

ma non funziona, mi da errore alla riga

Http.open "GET",Url,False

Tipo di errore:
msxml4.dll (0x80070057)
Parametro non corretto.
Se qualcuno sa aiutarmi....
Grazie

[barney09]

ma in locale vuol dire sul server, o sul PC di chi naviga il sito???

[ErgoSum]

sul server su cui risiede la pagina asp

[barney09]

Puoi provare, ma non l'ho mai fatto, a leggere il contenuto del file immagine con XMLHTTP e vedere se ti fa una lettura di tipo binario. In tal caso dopo averlo letto non ti resta che scriverlo in un file con il medesimo nome.

Il server è tuo o sei in hosting?

[ErgoSum]

il server è mio, e il codice che ho riportato dovrebbe fare proprio quello che dici ma non lo fa, senza nemmeno provare a fare la richiesta, e' come se ci fosse un errore di sintassi

[Roby_72]

Prova con il più recente:
Set Http = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")

Roby

[barney09]

se il server è tuo puoi pensare di installare WGET ed eseguirlo da ASP.

WGET è fatto apposta per questo tipo di operazioni.


In alternativa prova a usare l'oggetto Server.XMLHTTP anzichè Microsoft.XMLHTTP

[barney09]

per WGET il codice è questo:

<%
	link = "http://utenti.html.it/common/img/logo_forum.gif"
	Set Shell = new cShell
	Response.Write("Execute"& Shell.Execute("C:\wget\wget.exe --output-document=/inetpub/www.tuosito.com/file/nomefile.txt " & link) & "
")
	'testo = Shell.Output
	Set Shell = Nothing
%>

questa è la classe CSHELL

<%
Class cShell

Public WScript
Public Output
Public Error

Private Sub Class_Initialize()
	Set WScript = Server.CreateObject("WScript.Shell")
End Sub

Public Function Execute(commandLine)
	Dim oExec
	on error resume next
	Set oExec = WScript.Exec(commandLine)
	If Err.number <> 0 then
		Response.Write("<p style='font-family:verdana;font-size:11px'>Shell Error
"& Err.Description & "
CommandLine : " & commandLine)
		Response.End
	end if
	on error goto 0
	Error = False
	Output = oExec.StdOut.ReadAll()
	if Output="" then
		Output = oExec.StdErr.ReadAll()
		Error = True
	End If
	Execute = Error
End Function

Private Sub Class_Terminate()
	Set WScript = nothing
End Sub

End Class
%>

Devi anche dare i permessi di esecuzione di WGET all'utente IUSR_nomemacchina
e i permessi di scrittura dove intendi scrivere il file di output.

[ErgoSum]

Volevo continuare con l'altra strada, anche con MSXML2.ServerXMLHTTP.6.0 l'errore rimane lo stesso, cambia solo il nome della dll

msxml6.dll (0x80070057)
Parametro non corretto.

[barney09]

è installato il componente MSXML?