[asp] ftp van server naar localhost

[Verwijderd]

hallo

ik zit met volgend probleem, ik heb een site draaien op mijn localhost (iis - asp) en ook op een server. nu zou ik graag foto's vanop die remote server plaatsen in een specifieke map op mijn localhost. dit zonder "opslaan als" te moeten gebruiken.
ik heb verschillende scripts gevonden, maar daarvoor moest je script op de remote server staan en zo'n verstand heb ik er niet van om deze zo aan te passen.

http://www.issociate.de/b...help..._ftp_with_asp.html

heeft iemand tips of nog een nuttige link om dit mogelijk te maken?

[raptorix]

Sjezus, ben jij familie van P.Kouwes?

Modbreak:

Post dan niks.....

[ Voor 34% gewijzigd door Creepy op 18-04-2005 16:23 ]

[Verwijderd]

raptorix schreef op maandag 18 april 2005 @ 16:08:
Sjezus, ben jij familie van P.Kouwes?

euhm neen

[Flard]

offtopic:
Haaahaha... LOL...

je zou ook eens kunnen kijken naar XMLHTTP, al moet ik zeggen dat ik je niet helemaal goed begrijp...

Je hebt ergens een plaatje op een remote server.
Is dat een HTTP of FTP server?

En dat wil je naar je eigen server downloaden?

[raptorix]

Oki, probeer beetje op je interpunctie te letten, niet dat ik daar zo een held in ben, maar ik lees nu 5 keer je post en snap het nog maar half wat je wilt.

[Verwijderd]

Flard schreef op maandag 18 april 2005 @ 16:11:

offtopic:
Haaahaha... LOL...

je zou ook eens kunnen kijken naar XMLHTTP, al moet ik zeggen dat ik je niet helemaal goed begrijp...

Je hebt ergens een plaatje op een remote server.
Is dat een HTTP of FTP server?

En dat wil je naar je eigen server downloaden?

het zijn inderdaad foto's op mijn remote server(denk FTP want ik upload toch via ftp). in principe heb ik remote als lokaal dezelfde site draaien. nu moet ik de lokale kunnen updaten, de db kan ik overzetten nu enkel de foto's nog

[ Voor 5% gewijzigd door Verwijderd op 18-04-2005 16:14 ]

[raptorix]

code:

Public Sub SaveRemoteFile(From, ToPath)
    Dim oXmlHttp
    Set oXmlHttp = CreateObject("Msxml2.XmlHttp.4.0")
    oXmlHttp.Open "GET", From, False
    oXmlHttp.Send
    If oXmlHttp.Status = 200 Then
        Dim oStream
        Set oStream = CreateObject("Adodb.Stream")
        oStream.Type = 1
        oStream.Open
        oStream.Write oXmlHttp.responseBody
        oStream.SaveToFile ToPath
        oStream.Close
    Else
        Err.Raise vbObjectError + 1, "SaveRemoteFile", oXmlHttp.statusText
    End If
    Set oXmlHttp = nothing
End Sub

Zoiets moet je wel op weg kunnen helpen lijkt het me.

[Verwijderd]

raptorix schreef op maandag 18 april 2005 @ 16:14:

code:

Public Sub SaveRemoteFile(From, ToPath)
    Dim oXmlHttp
    Set oXmlHttp = CreateObject("Msxml2.XmlHttp.4.0")
    oXmlHttp.Open "GET", From, False
    oXmlHttp.Send
    If oXmlHttp.Status = 200 Then
        Dim oStream
        Set oStream = CreateObject("Adodb.Stream")
        oStream.Type = 1
        oStream.Open
        oStream.Write oXmlHttp.responseBody
        oStream.SaveToFile ToPath
        oStream.Close
    Else
        Err.Raise vbObjectError + 1, "SaveRemoteFile", oXmlHttp.statusText
    End If
    Set oXmlHttp = nothing
End Sub

Zoiets moet je wel op weg kunnen helpen lijkt het me.

mercieks!! ik ga het proberen...

[raptorix]

Dit heb ik gepaste uit een een vbs'je wat ik gebruikte om fotos van een site te trekken.
Je kan dit ook eventueel serverside doen, moet je even her en der kleine wijziging maken.

[Creepy]

Ok.

Zie aub P&W FAQ - Scriptrequests. Je vraagt nu om scripts of het aanpassen van scripts van anderen, wat we hier liever niet zien.

We gaan er hier vanuit dat je eertst zelf aan de slag gaat om je probleem op te lossen. Mocht dat niet lukken post dan hier wat je allemaal al hebt geprobreerd en wat daar niet mee lukte, eventueel met de relevante broncode. Let erop dat we hier geen support doen voor scripts/producten van derden. Zie ook P&W FAQ - De "quickstart"

[ Voor 207% gewijzigd door Creepy op 18-04-2005 16:23 ]