Visualizzazione dei risultati da 1 a 5 su 5
  1. #1
    Utente di HTML.it
    Registrato dal
    Aug 2007
    Messaggi
    464

    Creare e salvare file XML su server!

    Ciao a tutti, avrei bisogno di creare da db access un file xml e salvarlo automaticamente sul server.

    Con il codice di cui sotto mi crea correttamente il file ma non riesco a salvarlo.
    Potete darmi cortesemente una dritta?


    codice:
    <%
    session("referer")= session("pagina")
    session("pagina")= "http://"&request.ServerVariables("HTTP_HOST")&request.ServerVariables("PATH_INFO")&"?"&request.QueryString()
    Dim Conn
    Dim strConnect
    
    Set Conn = Server.CreateObject("ADODB.Connection")
    StrConnect = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & server.mappath("/mdb-database/db.mdb") & ";Persist Security Info = False" 
    
    Conn.open StrConnect
    
    
    
    
    sql="select id, Pulsanti from Tabella"
    set rs=Conn.Execute(sql)
    
    
    
    
    
    response.write("<?xml version='1.0' encoding='ISO-8859-1'?>")
    response.write("<STATO>")
    while (not rs.EOF)
    response.write("<PAESE>")
    response.write("<id>" & rs("id") & "</id>")
    response.write("<Pulsanti>" & rs("Pulsanti") & "</Pulsanti>")
    response.write("</PAESE>")
    rs.MoveNext()
    wend
    
    rs.close()
    conn.close()
    response.write("</STATO>")
    %>
    Thanks

    Per poter salvare dovrei usare questo metodo ....


    codice:
    <%
    text="<note>"
    text=text & "<to>Tove</to>"
    text=text & "<from>Jani</from>"
    text=text & "<heading>Reminder</heading>"
    text=text & "<body>Don't forget me this weekend!</body>"
    text=text & "</note>"
    
    set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
    xmlDoc.async="false"
    xmlDoc.loadXML(text)
    
    xmlDoc.Save("test.xml")
    %>

  2. #2
    Puoi usare Scripting.FileSystemObject

  3. #3
    Utente di HTML.it
    Registrato dal
    Aug 2007
    Messaggi
    464
    Ciao e grazie per l'indicazione.
    Dici che dovrei usare il metodo "CreateTextFile" ?
    Quindi una cosa tipo sotto?


    codice:
    dim fs, newfile
    
    ' Creo una istanza dell'oggetto FileSystemObject
    set fs = Server.CreateObject("Scripting.FileSystemObject")
    
    ' Creo un nuovo file di testo
    set newfile = fs.CreateTextFile("c:\nuovofile.txt")
    
    ' Ci scrivo dentro
    newfile.WriteLine("Ciao Mondo!")
    
    ' Chiudo
    newfile.close
    
    ' Faccio pulizia
    set newfile = nothing
    set fs = nothing

  4. #4
    Esattamente.
    L'estensione puoi anche modificarla in .xml, non deve essere necessariamente .txt.
    La cartella in cui salvi il file deve avere i permessi di scrittura.

  5. #5
    Utente di HTML.it
    Registrato dal
    Aug 2007
    Messaggi
    464
    si grazie, queste le avevo pensate ma non riesco tanto a pensare il resto e cioè:
    questo codice andrebbe aggiunto dopo il primo file che ho postato cioè quello che crea la connessione ad db e che estrae i dati richiesti ?
    non riesco a capire come integrarli!
    un piccolo esempio?

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 © 2025 vBulletin Solutions, Inc. All rights reserved.