<%
' Backup files
Dim FSO, FSOFolder, FileItem
Dim BackupFileList, SelectedFile, Action
Dim TempFileFolder, TempFile, TempFileName, TempFileDateTime, TempFileDate, TempFileTime, TempFileTitle
SelectedFile = trim(request("SelectedFile"))
Action = trim(request("Action"))
if Action <> "" and SelectedFile <> "" then
select case lcase(Action)
case "view"
' Create temp file
Response.Clear
Response.ContentType = "text/html"
Response.AddHeader "Content-Disposition", "filename=" & SelectedFile & ";"
Response.Write(ReadFile(EditorReadWritePath & "_backup\" & SelectedFile))
response.End()
case "delete"
' Delete
if ReportFileStatus(EditorReadWritePath & "_backup\" & SelectedFile) then DeleteAFile(EditorReadWritePath & "_backup\" & SelectedFile)
case "rollback"
' Rollback to previous version
TempFile = SelectedFile
TempFile = split(TempFile,"@")
TempFileFolder = trim(TempFile(0))
TempFileName = trim(TempFile(1))
if TempFileFolder <> "" then TempFileFolder = TempFileFolder & "\"
Call WriteToFile(ReadFile(EditorReadWritePath & "_backup\" & SelectedFile), EditorRootFolderPath & TempFileFolder & TempFileName, true)
if err.number <> 0 then
response.Write "" & vbcrlf
err.clear
else
response.Write "" & vbcrlf
end if
end select
end if
'Display a list of files
set FSO = CreateObject("Scripting.FileSystemObject")
set FSOFolder = FSO.GetFolder(EditorReadWritePath & "_backup")
BackupFileList = ""
for each FileItem in FSOFolder.Files
TempFile = FileItem.Name
TempFile = split(TempFile,"@")
TempFileFolder = trim(TempFile(0))
TempFileName = TempFile(1)
TempFileDateTime = TempFile(2)
if TempFileFolder <> "" then TempFileFolder = TempFileFolder & "\"
' Format Date
TempFileDateTime = replace(TempFileDateTime,".htm","")
TempFileDate = mid(TempFileDateTime,1,8)
TempFileDate = mid(TempFileDate,1,2) & "/" & mid(TempFileDate,3,2)& "/" & mid(TempFileDate,5,4)
TempFileDate = FormatDateTime(TempFileDate, vbLongDate)
' Format Time
TempFileTime = mid(TempFileDateTime,10,len(TempFileDateTime))
TempFileTime = mid(TempFileTime,1,2) & ":" & mid(TempFileTime,3,2)& ":" & mid(TempFileTime,5,4)
TempFileTime = FormatDateTime(TempFileTime, vbLongTime)
TempFileDateTime = TempFileDate & " " & TempFileTime
' Format Title
TempFileTitle = replace(TempFileName,".asp", "")
TempFileTitle = replace(TempFileTitle,"_", " ")
TempFileTitle = TitleCase(TempFileTitle)
if TempFileTitle = "Index" then TempFileTitle = "Home Page"
TempFileTitle = TempFileFolder & TempFileTitle
if TempFileName <> "" then
BackupFileList = BackupFileList & "- " & _
TempFileTitle & " | " & TempFileDateTime & " - " & _
"View / " & _
"Delete / " & _
"Rollback " & _
"
" & vbCrLf
end if
next
BackupFileList = BackupFileList & "
"
if BackupFileList = "" then BackupFileList = "No backups have been made"
%>
Backup of Website Pages<%=BackupFileList%>