Leggere e modificare i file

Per continuare lo script della scorsa settimana, ovveroquello per visualizzare i files di una directory, questasettimana aggiungeremo una importante opzione per aprire ifile testuali, html e asp, modificarli e salvarli.

Realizzeremo una semplice pagina chiamata modifica.asp cheavrà una text area e un bottone che permetta disalvare 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.ReadLineLoop%></textarea><%objApriFile.closeSet objApriFile = NothingSet 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.closeSet objApriFile = NothingSet 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 quiper 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 toglieredal codice sopra <tr> (dentro il Response.Write):

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