<%
Dim fs, sAction, sFile, sPath, sFolder, sFileType, scriptname, dbfile, ReadStream, WriteStream, WriteFile, fileobject, filecollection, file, startpath, lineid, bgcolor, bgcolor_on, bgcolor_off, foldercollection, folder, errornum, errorcode
' Reset our errorcode values
errornum = 0
errorcode = ""
scriptname=Request.ServerVariables("Script_Name")
sAction = Request.Querystring("action")
sFileType = Request.Querystring("filetype")
If Request.Querystring("path") = "" Then
''setting the base path or rootfolder
''*****************************************************
sPath ="/site/imagens/projetos"''the root folder for this sytem.
''*****************************************************
''setting the base path or rootfolder
Else
sPath = Request.Querystring("path")
If InStr(sPath,"../") Then
errornum = errornum+1
errorcode = errorcode & "
Uso invalido de ""../"". Voce so pode editar pastas de sua propriedade."
End If
End If
If sPath="/" Then
If Request.Querystring("file") = "" Then
sFile = sPath & Request.Form("file")
Else
sFile = sPath & Request.Querystring("file")
End If
If Request.Querystring("folder") = "" Then
sFolder = sPath & Request.Form("folder")
Else
sFolder = sPath & Request.Querystring("folder")
End If
Else
If Request.Querystring("file") = "" Then
sFile = sPath & "/" & Request.Form("file")
Else
sFile = sPath & "/" & Request.Querystring("file")
End If
If Request.Querystring("folder") = "" Then
sFolder = sPath & "/" & Request.Form("folder")
Else
sFolder = sPath & "/" & Request.Querystring("folder")
End If
End If
session("foldername")=spath
' Make sure that no errors have occurred and no illegal actions have been taken before doing our stuff...
If errornum < 1 Then
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Select Case sAction
Case "editfile"
Select Case sFileType
Case "htm", "asp", "txt", "inc", "html", "shtml", "shtm", "js", "css"
EditFile
Case "mdb", "dat"
EditDb
Case else
FileTypeUnsupported
End Select
Case "savefile"
SaveFile
Case "viewfolder"
Showlist
Case "newfile"
CreateFile
Case "newfolder"
CreateFolder
Case "deletefile"
DeleteFile
Case "deletefolder"
DeleteFolder
Case "CreateNewFolder"
CreateNewFolder
Case "UploadFiles"
UploadFiles
Case "RenameFolder"
RenameFolder
Case "RenameFile"
RenameFile
Case Else
Showlist
End Select
Set fs = Nothing
Else
DisplayErrors
End If
%>
