|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Manutenzione%>
<%=Testo_Introduzione_Manutenzione%>
<%=Testo_DimensioniDB%>
<%
Conn.Close
Set Conn = Nothing
Dim Azione, FileDaCancellare, FSO
Azione = ""& Testo_Link_Compatta &" "
FileDaCancellare = Request.Querystring("file")
If Request.QueryString("azione") = "cancella" AND Len(FileDaCancellare) > 0 Then
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Server.MapPath(Path_DirScrittura & FileDaCancellare)) Then
FSO.DeleteFile(Server.MapPath(Path_DirScrittura & FileDaCancellare))
End If
Set FSO= Nothing
End If
If Request.QueryString("azione") = "si" Then
Dim filBk, strDb, strBk, strConnDb, strConnBk
filBk = Year(Now()) & Right("0" & Month(Now()), 2) & Right("0" & Day(Now()), 2) & ".mdb"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Server.MapPath(Path_DirScrittura & filBk)) Then
FSO.DeleteFile(Server.MapPath(Path_DirScrittura & filBk))
End If
strDb = Server.MapPath(Path_DirScrittura & Nome_Database)
strBk = Server.MapPath(Path_DirScrittura & filBk)
FSO.MoveFile strDb, strBk
Set FSO= Nothing
strConnDb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDb
strConnBk = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strBk
Dim oJRO : Set oJRO = Server.CreateObject("JRO.JetEngine")
oJRO.CompactDatabase strConnBk, strConnDb
Set oJRO = Nothing
Azione = ""& Testo_Conferma_Compattazione &""& Testo_Conferma_BackupDatabase &" " & filBk & ". "
End If
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile(Server.MapPath(Path_DirScrittura & Nome_Database))
Response.Write "" & Int(file.Size / 1024) & " KB " & Azione
Set File = Nothing
%>
<%=Testo_Spiegazione_Compattazione%>
|
<%=Testo_NomeFile_TabellaDBBackup%>
|
<%=Testo_KbFile_TabellaDBBackup%>
|
|
<%
Set fldr = fso.GetFolder(Server.MapPath(Path_DirScrittura))
For Each file In fldr.Files
If Lcase(Right(file.Name,3)) = "mdb" AND file.Name <> Nome_Database Then
%>
| <%=file.Name%> |
<%=Int(file.Size / 1024)%> |
<%=Testo_LinkCancella%> |
<%
End If
Next
Set file = Nothing
Set fldr = Nothing
Set FSO = Nothing
%>
<%=Testo_LinkChiudi%>
|