Hola!!
Pueba este codigo:
Código PHP:
<%@LANGUAGE="VBScript"%>
<HTML>
<BODY>
<%nombreFichero=Server.MapPath("fichero.txt")
'crea una instancia de un objeto FileSystemObject
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
'se comprueba el botón que se ha pulsado
If Request.Form("actualizar")<>"" Then
'se obtiene el nuevo texto y se divide en un array de líneas
lineas=Split(Request.Form("texto"),vbCrLf)
Set objTextStream=objFSO.OpenTextFile(nombreFichero,ForWriting)
'se escribe el nuevo texto eliminado el existente
For i=0 To UBound(lineas)
objTextStream.WriteLine lineas(i)
Next
objTextStream.Close
ElseIf Len(Request.Form("anyadir")) Then
lineas=Split(Request.Form("texto"),vbCrLf)
Set objTextStream = objFSO.OpenTextFile(nombreFichero,ForAppending,False)
For i=0 To UBound(lineas)
objTextStream.WriteLine lineas(i)
Next
objTextStream.Close
End If
If Len(Request.Form("borrar")) Then
'se borra el contenido del fichero
Set objTextStream=objFSO.OpenTextFile(nombreFichero,ForWriting)
objTextStream.Close
End If
%>
<FORM ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>" METHOD="POST">
Los contenidos del fichero <B><%=nombreFichero%></B> son:<P>
<TEXTAREA NAME="texto" ROWS="10" COLS="50">
<%
'abrimos el fichero para mostrarlo en el área de texto
si no existe se crea vacío
If Not objFSO.FileExists(nombreFichero) Then
objFSO.CreateTextFile(nombreFichero)
End if
Set objTextStream=objFSO.OpenTextFile(nombreFichero,ForReading,True)
While Not objTextStream.AtEndOfStream
Response.Write objTextStream.ReadLine&vbCrLf
Wend
objTextStream.Close%></TEXTAREA><br>
<INPUT TYPE="SUBMIT" NAME="actualizar" VALUE="Actualizar">
<INPUT TYPE="SUBMIT" NAME="anyadir" VALUE="Añadir">
<INPUT TYPE="SUBMIT" NAME="borrar" VALUE="Borrar">
</FORM>
</BODY>
</HTML>
Espero te sirva
Saludos
Rickoe
17/01/2003, 11:26
