ASP script der kan hente automatisk ud fra en xml fil

Hvad er det du gerne vil?

Skal du ud fra det viste XML eksempel kunne hente selve billedfilen ned og gemme den, eller hvad?

Jeg skal have hentet alle billedfilerne ned i en mappe så jeg kan bruge dem på kundes site. Så gennemlæse filen og hente hver enkelt fil i en folder.

Den mappe, er det en lokal mappe, eller er det på din server.

Udfordringen ligger lidt i, at der nok ikke er så mange tilbage der roder med ASP, men nok er skiftet til .NET

Der er nemlig mig bekendt ikke en feature i ASP der kan trigge på, om der er kommet en fil i en mappe - så step et ville være at lave den funktion

Dernæst skal XML filen hentes, dette kan gøres ved hjælp af CreateObject("Microsoft.XMLDOM"), der med ServerHTTPRequest kan hente filen.

Her efter skal den så læses ind i et object (DOM) der så gennemløber alle de types der er image.

Next step er så at iterere over disse elementer, og så hente hvert billede med, hvilket kunne være lidt ala dette:
[code]
Set xmlHTTP    = Server.CreateObject("MSXML2.ServerXMLHTTP")
       
        xmlHTTP.Open "GET", imageURL, False
        xmlHTTP.Send
       
        vStatus        = xmlHTTP.status
        vStatusTxt    = xmlHTTP.statusText
       
        If vStatus = "200" Or vStatusTxt = "OK" Then
       
            Set adoStream    = Server.CreateObject("ADODB.Stream")
            adoStream.Mode    = 3 ' Read/Write
            adoStream.Open
            adoStream.Type    = 1 'adTypeBinary
            adoStream.Write    xmlHTTP.responseBody
            m_sFileName        = sFileName
            m_bResult        = True
            End If
           
            m_sFilePath = sFilePath & m_sFileName

            adoStream.Position = 0
            adoStream.SaveToFile m_sFilePath, 2 'adSaveCreateOverWrite
            adoStream.Close
            Set adoStream = Nothing       
       
        Else
       
            m_bResult = False
            m_sResultTxt = "Error: <br />Status: " & vStatus & "<br />" _
                            & "Text: " & vStatusTxt
       
        End If
       
        Set xmlHTTP = Nothing

[/code]

Så det er noget med at hente filerne med ServerXMLHTTP og så gemme dem på diske med ADODB.Stream

Men igen, så afhænger dette af, om hvor vidt der er rettigheder til dette på serveren.

Hvis du derimod blot skal suge filerne ned lokalt, så vil du måske have mere hjælp med at få nogen til at hjælpe dig med at flikke en lille app sammen, hvis du spørger i .NET grupperne.