ESCRITURA DE ARCHIVOS

Veamos un pequeño ejemplo como guardar texto en un archivo, necesitaremos un área de texto un botón de enviar y un archivo de texto que lo llamaremos archivo.txt

Código para guardar el texto:

1 <form name="form1" method="post" action="fso1.asp">
2 <table width="98%" border="0" cellspacing="1">
3 <tr>
4 <td><textarea name="textofso" cols="70" rows="5">Escriba aquí el texto</textarea></td>
5 </tr>
6 <tr>
7 <td><input type="submit" name="Submit" value="GUARDAR"></td>
8 </tr>
9 </table>
10 </form>
11 <%
12 dim textoa
13 textoa = request.form("textofso")
14 Set ObjetoFSO = Server.Createobject("Scripting.FileSystemObject")
15 Set MiEscritura = ObjetoFSO.OpenTextFile(Server.MapPath("archivo.txt"), 2)
16 MiEscritura.Writeline textoa
17 MiEscritura.Close
18 Set Miescritura = Nothing
19 Set ObjetoFSO = Nothing
20 %>

De la línea 1 a la 10 es el formulario. Al pulsar el botón guardar se ejecutará el archivo fso1.asp. En la línea 15 utilizamos una constante 2 en este caso es de escritura si queremos que añada texto que no escriba sobre el que ya tenemos tendremos que poner 8.
En la línea 16 se encuentra el método de escritura WriteLine permite añadir una línea de texto a un fichero añadiendo al final un salto de línea.

Código para leer el texto que hemos guardado en el archivo:

<%

Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")
Set MiEscritura = ObjetoFSO.OpenTextFile(Server.MapPath("archivo.txt"), 1)
response.write MiEscritura.ReadAll
MiEscritura.Close
Set MiEscritura = Nothing
Set ObjetoFSO = Nothing

%>

En la línea 2 hemos utilizado la constante 1 que es de lectura.
La línea 3 podemos utilizar el método Read que permite leer un número determinado de carácteres, ReadLine, permite leer una línea y ReadAll permite leer la totalidad del archivo, es el método que hemos utilizado.