Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 14
  1. #1

    [VBSCRIPT] estrarre dati da pagina XML

    Salve a tutti,
    tramite questo codice recupero in maniera perfetta dei dati da una pagina xml che si trova in locale.

    codice:
    <%
    Dim objXmlDom
    Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
        objXmlDom.async = False
        objXmlDom.load server.mappath("prova2.xml")
    
    
    Dim nome
    Set nome = objXmlDom.getElementsByTagName("ResultSet/Consignment/SenderDetails/SendAccNo")
    
    
    Dim i
    i = 0
    For i = 0 To nome.length - 1
        Response.Write nome(i).Text
    Next
    
    
    Set nome = Nothing
    Set cognome = Nothing
    Set objXmlDom = Nothing
    %>
    Se provo a recuperare gli stessi dati, da un file xml caricato su un sito diverso (non è un problema di permessi, perché mi connetto tranquillamente), viene visualizzata pagina bianca. Il codice che uso è questo:

    codice:
    <%
    Dim objXmlDom
    Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
        objXmlDom.async = False
        objXmlDom.load("https://www.sito.it/pagina.xml")
    
    
    Dim nome
    Set nome = objXmlDom.getElementsByTagName("ResultSet/Consignment/SenderDetails/SendAccNo")
    
    
    Dim i
    i = 0
    For i = 0 To nome.length - 1
        Response.Write nome(i).Text
    Next
    
    
    Set nome = Nothing
    Set cognome = Nothing
    Set objXmlDom = Nothing
    %>
    Idee? Grazie

  2. #2
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,095
    prova così
    codice:
    Dim objXmlDom
    Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
            objXmlDom.setProperty "ServerHTTPRequest", true 
            objXmlDom.async = False
            objXmlDom.load (OrigineDati)

  3. #3
    Quote Originariamente inviata da Vincent.Zeno Visualizza il messaggio
    prova così
    codice:
    Dim objXmlDom
    Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
            objXmlDom.setProperty "ServerHTTPRequest", true 
            objXmlDom.async = False
            objXmlDom.load (OrigineDati)
    Grazie per la risposta.
    Ho provato ma rimane la pagina bianca

  4. #4
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,095
    nel percorso e nel nome dei campi, la corrispondenza tra minuscole e maiuscole?

  5. #5
    Quote Originariamente inviata da Vincent.Zeno Visualizza il messaggio
    nel percorso e nel nome dei campi, la corrispondenza tra minuscole e maiuscole?
    Si, ho fatto proprio copia e incolla.
    Se hai 2 minuti liberi e voglia, posso inviarti in privato il link xml di riferimento?
    Non lo pubblico qui perché è legato ad un servizio di logistica e sono inclusi dati riservati (che rendono facilmente accessibili).

  6. #6
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,095
    ok, aspetto pvt

  7. #7

  8. #8
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,095
    ricevuto ed elaborato, funziona.
    prova a fare un refresh della pagina con ctrl+F5

    ricorda che serve
    codice:
    objXmlDom.setProperty "ServerHTTPRequest", true

  9. #9
    Aggiornato, svuotato cache e riavviato anche il pc ma nulla
    Questo è il codice (ovviamente l'indirizzo web è quello che ti ho girato).

    codice:
    <%
    Dim objXmlDom
    Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
    objXmlDom.setProperty "ServerHTTPRequest", true 
        objXmlDom.async = False
        objXmlDom.load("https://www.sito.it")
    
    
    Dim nome
    Set nome = objXmlDom.getElementsByTagName("ResultSet/Consignment/SenderDetails/SendAccNo")
    
    
    Dim i
    i = 0
    For i = 0 To nome.length - 1
        Response.Write nome(i).Text
    Next
    
    
    
    
    Set nome = Nothing
    Set cognome = Nothing
    Set objXmlDom = Nothing
    %>

  10. #10
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,095
    in quello che ha scritto farei solo due correzioni, che sono comunque cose marginali
    toglierei "Set cognome = Nothing" che non usi
    e metterei l'indirizzo del file xml come variabile (vedi mio esempio)

    ma non trovo difetti nel codice


    stampi in una pagina più complessa o in una pagina vuota da altri elementi?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2021 vBulletin Solutions, Inc. All rights reserved.