Appunti informatici ....: Asp salvare in un file di testo .txt

Oggi mi sono dilettato per ragioni di esigenza a creare con l'aiuto di forum questi 3 script in asp che consentono la realizzazione di una pagina input che salva i dati in un txt dal quale vengono richiamati nella pagina leggi

Codice scrivi.asp
-----------------------------------------------

Legge Record

<% Dim fsoMyFile Dim tsTextStream Dim sTesto dim percorso percorso =Server.MapPath("/public/finale.txt") 'Creazione dell'istanza FSO. Set fsoMyFile = CreateObject("Scripting.FileSystemObject") 'Apertura del file, in lettura dati (1). Set tsTextStream = fsoMyFile.OpenTextFile(percorso, 1) sTesto = tsTextStream.ReadAll 'Chiude il file. tsTextStream.Close %> <applet code="yavs.class" width="265" height="150"> <param name="MSGTEXT" value="http://www.residencecanestrelli.it/public/finale.txt"></param> <param name="BGCOLOR" value="#FFFFFF"></param> <param name="FGCOLOR" value="#000099"></param> <param name="HREFCOLOR" value="#0000FF"></param> <param name="LINKCOLOR" value="#CC0000"></param> <param name="FONTNAME" value="Verdana"></param> <param name="FONTSIZE" value="12"></param> <param name="SPEED" value="30"></param> </applet> <form action="ìì"> '<textarea name="sTesto" rows="5" cols="40"><%= sTesto%> '

Salva Records

<% Dim fsoMyFilePeriodo Dim fsoMyFilefinale Dim fsoMyFiletesto Dim tsTextStreamPeriodo Dim tsTextStreamtesto Dim tsTextStreamfinale Dim sPeriodo Dim sTesto Dim sfinale sPeriodo=request.form("sPeriodo") sTesto = request.form("sTesto") 'Creazione dell'istanza FSO. Set fsoMyFileTesto = CreateObject("Scripting.FileSystemObject") Set tsTextStreamtesto = fsoMyFileTesto.CreateTextFile(Server.MapPath("/public/testo.txt"), True) Set fsoMyFilePeriodo = CreateObject("Scripting.FileSystemObject") Set tsTextStreamPeriodo = fsoMyFilePeriodo.CreateTextFile(Server.MapPath("/public/Periodo.txt"), True) Set fsoMyFilefinale = CreateObject("Scripting.FileSystemObject") Set tsTextStreamfinale = fsoMyFilefinale.CreateTextFile(Server.MapPath("/public/finale.txt"), True) tsTextStreamPeriodo.close tsTextStreamTesto.Close tsTextStreamfinale.Close 'Apertura del file, in aggiunta dati (8), se non esiste lo crea (True). Set tsTextStreamTesto = fsoMyFileTesto.OpenTextFile(Server.MapPath("/public/testo.txt"), 8, True) Set tsTextStreamPeriodo = fsoMyFilePeriodo.OpenTextFile(Server.MapPath("/public/periodo.txt"), 8, True) Set tsTextStreamfinale = fsoMyFilefinale.OpenTextFile(Server.MapPath("/public/finale.txt"), 8, True) 'Scrive una riga. if sTesto=""then tsTextstreamtesto.write(" ") Else tsTextstreamtesto.Write (sTesto) end if if sPeriodo=""then tsTextstreamPeriodo.Write (" ") Else tsTextstreamPeriodo.Write (sPeriodo) End if tsTextstreamfinale.Write ("<html>") tsTextstreamfinale.Write ("<body>") tsTextstreamfinale.Write ("<center>Residence Canestrelli News<center> ") tsTextstreamfinale.Write ("<center>LAST MINUTES</center> ") tsTextstreamfinale.Write ("<center>Periodo:</center> ") tsTextstreamfinale.Write ("<center>"&(speriodo)&"</center> ") tsTextstreamfinale.Write ("<center>"&(stesto)&"</center> ") tsTextstreamfinale.Write ("</body></html>") 'Chiude il file. tsTextStreamfinale.Close tsTextStreamtesto.Close tsTextStreamPeriodo.Close %> <form action="legge.asp" method="post"> <input type="submit" value="leggi correzzione" name="leggi"> </form>

Appunti informatici ....

venerdì, agosto 24, 2007

Asp salvare in un file di testo .txt

0 Commento:

Windows Vista

Ultimi Articoli