Lorenzo Pascucci
a- a+

Leggere e modificare i file

Per continuare lo script della scorsa settimana, ovvero quello per visualizzare i files di una directory, questa settimana aggiungeremo una importante opzione per aprire i file testuali, html e asp, modificarli e salvarli.

Realizzeremo una semplice pagina chiamata modifica.asp che avrà una text area e un bottone che permetta di salvare il file, quindi una pagina molto semplice.

Modifica.asp

<html>
<head>
<title>File Manager - Modifica File</title>
</head>
<body>
<form action="modifica1.asp" method="POST">
<%
strPath = Server.Mappath(Request.QueryString("file"))

      Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")

      Set objApriFile = objFileSy.OpenTextFile(strPath, 1)
%>
<textarea rows="10" cols="26" name="codice">
<%
Do While Not objApriFile.AdEndofStream

        Response.Write objApriFile.ReadLine

      Loop
%>
</textarea>
<%
objApriFile.close

      Set objApriFile = Nothing

      Set objFileSy = Nothing
%>
<input type="hidden" name="file" 
value="<%=Request.QueryString("file")%>">
<input type="submit" value="Modifica" name="send">
</form>
</body>
</html>

Modifica1.asp

<%
strPath = Server.Mappath(Request.Form("file"))

      Set objFileSy = Server.CreateObject("Scripting.FileSystemObject")

      Set objApriFile = objFileSy.OpenTextFile(strPath, ForWriting)

      objApriFile.Write(Request.Form("codice"))

      objApriFile.close

      Set objApriFile = Nothing

      Set objFileSy = Nothing
%>
<html>
<head>
<title>File Manager - File Modificato</title>
</head>
<body>
File Modificato Correttamente - Chiudere questa finestra
</body>
</html>

Quindi lo script precedente (clicca qui per vederlo) va modificato così:

Dopo la riga:

    'Visualizza la data dell'ultima modifica 
response.write ("<td>" & objFile.DatelastModified & "</td></tr>")


Aggiungiamo la seguente riga, ma attenzione dobbiamo togliere dal codice sopra <tr> (dentro il Response.Write):

    'Visualizza la data dell'ultima modifica
response.write ("<td><a href="modifica.asp?file=<%=directory%>/<%=objFile.Name%>"> Modifica</a></td></tr>")




Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Francesco
Hai dubbi su questo articolo?