<html>
<%
submt=request.form("submt")
if submt<>"" then
txta=request.form("txta")
'txta=replace(txta,"'","\'")
'txta=replace(txta,vbcrlf,"\n\n")
writeFile
'refresh della pagina
response.Write("<meta http-equiv=refresh content=0>")
msg="Informazione inserita con successo"
end if
%>
<%
sub readFile()
ilfile=server.mappath("prova.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
counter=0
do while not ilfile.AtEndOfStream
counter=counter+1
illine=ilfile.readline
response.write illine & "
"
loop
ilfile.Close
set ilfile=nothing
set file=nothing
end sub
%>
<%
sub writeFile
Dim objFSO, objTextFile
'Creazione dell'istanza FileSystem
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Apertura del file di testo
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("/public/informazioni.txt"))
'Scrivo la prima riga di codice
objTextFile.WriteLine txta
'Chiudo il file e i vari oggetti/istanze
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
end sub
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>modifica informazioni</title>
</head>
<body>
<table width=50% border=0 align="center">
<tr>
<td valign=middle ALIGN=CENTER>
<font face=verdana size=2>
MODIFICA INFORMAZIONI
</font>
</td>
</tr>
</table>
<table width=60% border=0 align="center">
<tr>
<td>
<font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Testo</font></td>
</tr>
<tr>
<td>
<form action=inserimento.asp method=post>
<font face=verdana size=2>
<textarea name=txta cols=70 rows=8>
</textarea>
</font></p>
<p align="center">
<input type=submit value="invia modifica" name=submt>
</p>
</form>
</td>
</tr>
</table>
<p align="center">
<%=msg%>
</p>
<p align="center">
<input type=button value=Esci onclick="window.location='index.asp'">
</p>
</body>
</html>
Rispondi quotando
