Visualizzazione dei risultati da 1 a 6 su 6

Discussione: File di testo vuoto

  1. #1
    Utente di HTML.it
    Registrato dal
    Feb 2003
    Messaggi
    245

    File di testo vuoto

    Ciao a tutti,
    premetto che è la prima volta che scrivo qualcosa in ASP, e sono abbastanza alle cozze ormai...Devo scrivere del testo in un file .txt che ha già del contenuto, quindi lo devo sovrascrivere.

    Ho scritto questo pezzo di codice:

    If salva <> "" then
    text = request.form("text")
    Set fs = CreateObject("Scripting.FileSystemObject")
    set file = fs.OpenTextFile(Server.MapPath(request.form("textf ile")), 2, true)
    file.Write(text)
    file.close
    Set file = Nothing
    Set fs = Nothing
    End If

    Il codice sembra funzionare, faccio dei test per sovrsacriverli, ed il vecchio contenuto viene effettivamente cancellato...ma se apro il file il nuovo contenuto non c'e', è completamente bianco!

    Qualcuno mi può aiutare?

    Grazie!
    L.

  2. #2
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Per scrive sul file:

    codice:
    Set file = fs.OpenTextFile(Server.MapPath(request.form("textfile")), 8)
    Roby

  3. #3
    Utente di HTML.it
    Registrato dal
    Feb 2003
    Messaggi
    245
    Ciao Roby,
    grazie ma all'inizio ho settatto delle costanti per le varie azioni.
    Meglio se scrivo tutto lo script. Eccolo:

    <% ' Costanti per I/O mode
    Const ForReading = 1
    Const ForWriting = 2
    Const ForAppending = 8

    Dim objFSO, objOpenedFile, textfile
    Dim blnConferma, blnSalva, szAction, conferma, salva, text

    objFSO = Request.Form("objFSO")
    objOpenedFile = Request.Form("objOpenedFile")
    textfile = Request.Form("textfile")
    conferma = Request.Form("conferma")
    salva = Request.Form("salva")
    text = Request.Form("text")

    blnConferma = False
    blnSalva = False

    'Conferma = OpenFile and Read
    If conferma <> "" then
    blnConferma = True
    set objFSO = CreateObject("Scripting.FileSystemObject")
    set objOpenedFile = objFSO.OpenTextFile(Server.MapPath(request.form("t extfile")), 1)
    End If

    'Salva = Open file and Write
    If salva <> "" then
    blnConferma = True
    text = Request.Form("text")
    set objFSO = CreateObject("Scripting.FileSystemObject")
    set objOpenedFile = objFSO.OpenTextFile(Server.MapPath(request.form("t extfile")), 2)
    objOpenedFile.Write (text)
    objOpenedFile.close()

    End If
    %>

    Il testo si apre in una textarea, dove l'utente può scrivere il nuovo testo, e al click sul salva viene sovrascritto il file...ma rimane vuoto!


  4. #4
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    E allora usa le costanti.
    Se poi rimetti i numeri a che serve?

    Roby

  5. #5
    Utente di HTML.it
    Registrato dal
    Feb 2003
    Messaggi
    245
    OK, risolto!

  6. #6
    Codice a rischio defacement

    Basta che ci siano i diritti di scrittura sulla root
    e un utente scrivendo nel campo textfile /default.asp
    ti sovrascrive la homepage magari con una pagina
    creata a posta per leggerti tutte le pagine del sito
    e poi il database, cancellarti e modificarti a piacimento
    tutto quello che gli pare

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.