<%
' Fruibile - L'elemento CMS Open Source che mancava
' Copyright (C) 2002-2006 Roberto Scano
'
' Licensed under the terms of the GNU Lesser General Public License:
' http://www.opensource.org/licenses/lgpl-license.php
'
' For further information visit:
' http://www.fruibile.it/
'
' File Author:
' Roberto Scano (mail@robertoscano.info)
%>
<%
'' This code is absolute freeware. you can do with it as you please.
'' There are no restrictions what so ever, but the code is AS IS, no warrenty or liabilty
'' Please leave these commentlines intact
'' Netherlands, February 2004
'' M.Blokdijk
'' maarten@blokdijk.com
'' V 1.0
%>
<%
'controllo sicurezza --------------
if Session("WEBGODLogin") <> "W3C_VALIDATOR" then
If session("argomenti")<> 1 Then
response.Redirect "/backoffice/noentry.asp"
end if
end if
'----------------------------------
'Prevent your website from cross website attacks ---------
refererUrl = Cstr(Request.ServerVariables("HTTP_REFERER"))
serverName = Cstr(Request.ServerVariables("SERVER_NAME"))
refererName = mid(refererUrl,8,len(serverName))
if refererName <> serverName then
response.Redirect "/backoffice/noentry.asp"
response.end
end if
'---------------------------------------------------------
%>
<%
if trim(request("action")) = "" then
percorso = " " & DICLanguage(269)
else
percorso = " " & DICLanguage(269) & ""
Select case trim(request("action"))
Case "editfile"
percorso = percorso & " / " & DICLanguage(104)
Case "savefile"
percorso = percorso & " / " & DICLanguage(383)
Case "viewfolder"
percorso = percorso & " / " & DICLanguage(387)
Case "newfile"
percorso = percorso & " / " & DICLanguage(128)
Case "newfolder"
percorso = percorso & " / " & DICLanguage(270)
Case "deletefile"
percorso = percorso & " / " & DICLanguage(384)
Case "deletefolder"
percorso = percorso & " / " & DICLanguage(385)
Case "CreateNewFolder"
percorso = percorso & " / " & DICLanguage(270)
Case "UploadFiles"
percorso = percorso & " / " & DICLanguage(271)
Case "RenameFolder"
percorso = percorso & " / " & DICLanguage(292)
Case "RenameFile"
percorso = percorso & " / " & DICLanguage(295)
end select
end if
%>
<%
Ffile=request.querystring("fileoptions")
if Ffile="" then Ffile=request.cookies("fileoptions")
if Ffile="" then
response.cookies("fileoptions")="max"
else
response.cookies("fileoptions")=Ffile
end if
Ffile=request.cookies("fileoptions")
Ffolder=request.querystring("folderoptions")
if Ffolder="" then Ffolder=request.cookies("folderoptions")
if Ffolder="" then
response.cookies("folderoptions")="max"
else
response.cookies("folderoptions")=Ffolder
end if
Ffolder=request.cookies("folderoptions")
%>