<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Select Case Request.QueryString("actn") Case "verifica" login = "admin" pwd = "admin" Session("login") = False If Request.Form("log") <> "" And Request.Form("pwd") <> "" Then If Request.Form("log") = login Then If Request.Form("pwd") = pwd Then Session("login") = True Response.Redirect("news.asp") End If End If End If Case "login" %>


Login

Username  
Password  

<% Case "" If Not Session("login") = True Then Response.Redirect("news.asp?actn=login") End If ilfile=server.mappath("news.txt") Set file = CreateObject("Scripting.FileSystemObject") Set ilfile = file.OpenTextFile(ilfile, 1, False) counter=0 testo = "" do while not ilfile.AtEndOfStream counter=counter+1 illine=ilfile.readline testo = testo&illine&chr(13) loop ilfile.Close set ilfile=nothing set file=nothing %>


Testo


Fine.

 

<% Case "read" ilfile=server.mappath("news.txt") Set file = CreateObject("Scripting.FileSystemObject") Set ilfile = file.OpenTextFile(ilfile, 1, False) counter=0 testo = "" do while not ilfile.AtEndOfStream counter=counter+1 illine=ilfile.readline testo = testo&illine&chr(13) loop response.write "testo="&testo ilfile.Close set ilfile=nothing set file=nothing Case "write" Dim objFSO, objTextFile 'Creazione dell'istanza FileSystem Set objFSO = CreateObject("Scripting.FileSystemObject") 'Apertura del file di testo 'Utilizzare, a seconda della necessità, una delle due righe di codice 'Set objTextFile = objFSO.CreateTextFile("C:\InetPub\prova\freeasp.txt") Set objTextFile = objFSO.CreateTextFile(Server.MapPath("news.txt")) 'Scrivo la prima riga di codice objTextFile.WriteLine Request.Form("testo") 'Chiudo il file e i vari oggetti/istanze objTextFile.Close Set objTextFile = Nothing Set objFSO = Nothing Response.Redirect("news.asp") End Select %>