script apertura/modifica file di testo

[gatgab]

ho trovato questo script per aprire e visualizzare un file di testo in una TEXTAREA; è possibile apportare delle modifiche al file e quindi salvarlo.
il tutto funziona con file di piccole dimensioni, ma siccome lo uso su file dai 5 KB in su mi restituisce il seguente errore:
"Request-URI Too Large"

penso di aver individuato il problema nel metodo "GET" del FORM usato nel file.
ho provato a sostituire "GET" con "POST"; l'errore adesso è nell'istruzione:
"Set Leggi=Fso.OpenTextFile(Percorso & Nome_File)"

non sono così esperto per cui non so se sia possibile una soluzione.

grazie per l'attenzione

<%' Reperimento parametri
Percorso = Trim(Lcase(Request.QueryString("percorso")))
Nome_File = Trim(Lcase(Request.QueryString("file")))
Azione = LCase(Request.QueryString("azione"))

Set Fso = CreateObject("Scripting.FileSystemObject")

' Verifica se è stato premuto il tasto di memorizzazione
If Azione = "" then
   Set Leggi = Fso.OpenTextFile(Percorso & Nome_File)%>

   <FORM METHOD=GET ACTION="visualizza.asp">
   <TEXTAREA NAME="edit_file" ROWS=15 COLS=68><%=Leggi.ReadAll%></TEXTAREA>
   <INPUT TYPE=SUBMIT NAME="azione" VALUE="Memorizza">
   <INPUT TYPE=HIDDEN NAME="percorso" VALUE="<%=Percorso%>">
   <INPUT TYPE=HIDDEN NAME="file" VALUE="<%=Nome_File%>">
   </FORM>

<%Else

   Set Scrivi = Fso.CreateTextFile(Percorso & Nome_File, True)
   Scrivi.Write (Request.QueryString("edit_file")) %>

   <FONT  SIZE=2>Il file è stato correttamente modificato.</FONT>

<%End If%>

Visualizza contenuto directory

[optime]

Originariamente inviato da gatgab
l'errore adesso è nell'istruzione:
"Set Leggi=Fso.OpenTextFile(Percorso & Nome_File)"

quale errore?

[willybit]

se adesso usi un post, recuperi i dati con Request.Form? O usi ancora Request.QueryString?

[gatgab]

Originariamente inviato da optime
quale errore?

adesso sono al lavoro, lo metto nel pomeriggio (mi ero scordato)

@willybit: si ho cambiato con request.form

[gatgab]

ecco l'errore:
Errore di run-time di Microsoft VBScript (0x800A0005)
Chiamata di routine o argomento non validi

la riga incriminata questa:
Set Leggi=Fso.OpenTextFile(Percorso & Nome_File)


@willybit: ho ricontrollato quello che mi hai detto; lo script viene chiamato da un'altra pagina per cui i valori vengono prelevati tramite request.querystring mentre quanto la pagina si chiama da sola ho usato request.form così:

	if Azione="" then
		Percorso=Trim(Lcase(Request.Querystring("percorso")))
		Nome_File=Trim(Lcase(Request.Querystring("file")))
		Azione=Lcase(Request.Querystring("azione"))
	else
		Percorso=Trim(Lcase(Request.Form("percorso")))
		Nome_File=Trim(Lcase(Request.Form("file")))
		Azione=Lcase(Request.Form("azione"))
	end if

ma da lo stesso errore.

[optime]

prima di

Set Leggi=Fso.OpenTextFile(Percorso & Nome_File)

metti

Response.Write "maGGico file...: " & Percorso & Nome_File & "
"
Response.Flush

e controlla il nome del file

[gatgab]

effettivamente il nome del file non c'era e quindi non entrava nelle condizioni degli if, ho trovato un paio di errori, di seguito lo script corretto (in rosso)

	'Reperimento parametri
	Azione=Lcase(Request.Form("azione")) (fuori dall'istruzione if)
	if Azione="" then
		Percorso=Trim(Lcase(Request.Querystring("percorso")))
		Nome_File=Trim(Lcase(Request.Querystring("file")))
	else
		Percorso=Trim(Lcase(Request.Form("percorso")))
		Nome_File=Trim(Lcase(Request.Form("file")))
	end if%>

	<FONT SIZE=2>
	File visualizzato: <%=Nome_File%>

	Percorso: <%=Percorso%></FONT>


	<%Set Fso=CreateObject("Scripting.FileSystemObject")
	'Verifica se è stato premuto il tasto di memorizzazione
	if Azione="" then
		Set Leggi=Fso.OpenTextFile(Percorso & Nome_File)%>

		<FORM METHOD="post" ACTION="35_er_visualizza.asp">
		<TEXTAREA NAME="edit_file" ROWS=25 COLS=105><%=Leggi.ReadAll%></TEXTAREA>

		<INPUT TYPE="SUBMIT" NAME="azione" VALUE="Memorizza">
		<INPUT TYPE="HIDDEN" NAME="percorso" VALUE="<%=Percorso%>">
		<INPUT TYPE="HIDDEN" NAME="file" VALUE="<%=Nome_File%>">
		</FORM>
	<%else
		Set Scrivi=Fso.CreateTextFile(Percorso & Nome_File, True)
		Scrivi.Write (Request.Form("edit_file"))%> (mi ero scordato di cambiare questo request)
		

<FONT SIZE=2>Il file è stato correttamente modificato.</FONT>

	<%end if%>

grazie per il prezioso aiuto

[optime]

optime!