Modifica di un file

Modificare il file: \filemanager\EDIT.ASP

ï»¿<%@ Language=VBScript%>
<%option explicit%>
<%Server.ScriptTimeout = 600%>
<%
Response.Buffer = True
Response.Expires = 0
%>


<%

Dim dir, curr_dir, action, file, fso

Set fso = Server.CreateObject("Scripting.FileSystemObject")

dir = Request.QueryString("dir")
file = Request.QueryString("file")
curr_dir = root_folder & dir

if InStr(1, dir, "..") <> 0 then
	Response.Write "Nome della cartella non valido !"
	Response.End
end if

action=Request.QueryString("action")

If action = "save" Then
		Call DoSave
		Response.Redirect "sfmanager.asp?dir=" & Server.URLEncode(dir)
Else
		Call ShowEditForm
End If

Set fso = Nothing

Sub ShowEditForm
	Dim strContent, txt, sel_text, sel_html
	
	Set txt = fso.OpenTextFile(curr_dir & "\" & file, 1)
	strContent = txt.ReadAll
	txt.Close
	Set txt = Nothing

Response.Write "<title>Modifica di un file</title>" & vbCrLf

Response.Write "Modificare il file: <i>" & dir & "\" & file & "</i><br>"
	Response.Write "<form method=post action=""edit.asp?action=save&dir=" & dir & "&file=" & file & """>"
	Response.Write "<textarea name='content' style='width: 700px;' rows=20 cols=70>" & HTML_Encode(strContent) & "</textarea><br>"
	Response.Write "<input type=submit value='Save !'>"
	Response.Write "</form>"
	Response.Write "[<a href=""sfmanager.asp?dir=" & Server.URLEncode(dir) & """>ÃÃ Ã§Ã Ã¤</a>]" 
End Sub

Sub DoSave()

Dim txt, strContent
strContent = Request.Form("content")

Set txt = fso.OpenTextFile(curr_dir & "\" & file, 2)
txt.Write strContent
txt.Close
Set txt = Nothing

End Sub

[Íàçàä]