Modifica di un file

Modificare il file: \filemanager\UPLOAD.ASP

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


<%
' Carica file

Dim dir, curr_dir, action
dir = Request.QueryString("dir")
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 = "upload" Then
		Call DoUpload(curr_dir & "\")
		Response.Redirect "sfmanager.asp?dir=" & Server.URLEncode(dir)
Else
		Call ShowUploadForm
End If

Sub ShowUploadForm
	Dim j
	Response.Write "<title>Carica files</title>"
	Response.Write "Carico il file nella cartella: <i>" & dir & "</i><br>"
	Response.Write "<form enctype='multipart/form-data' method=post action=""upload.asp?action=upload&dir=" & dir & """>"
	For j = 1 to 5
		Response.Write "<input type='file' name='f"& j & "' size=40><br>"
	Next
	Response.Write "<input type=submit value='Upload!'>"
	Response.Write "</form>"
	Response.Write "[<a href='javascript: history.back();'>Indietro</a>]" 
End Sub

Sub DoUpload(directory)

Dim objUpload

Set objUpload = New FreeASPUpload
objUpload.Save(directory)

End Sub

[Íàçàä]