[原创]ACCESS自动保留10天备份

最新推荐文章于 2025-02-07 17:31:35 发布

原创最新推荐文章于 2025-02-07 17:31:35 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#access #function #date #each #web

ASP 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个使用ASP脚本自动备份Microsoft Access数据库的方法。通过创建一个脚本文件，可以实现定期将Access数据库文件备份到指定文件夹，并按日期进行命名以方便管理。此脚本还包含了删除超过指定天数备份的功能。

SET fso = Server.CreateObject("Scripting.FileSystemObject")
DataBaseFile = "web_dbuiwefgjksdfwiuetyjshf.mdb"
If fso.FileExists(Server.Mappath(DataBaseFile)) Then
' Power by Love_Computer...
' Create by 2005-11-26
' Modify by 2005-12-10
' love_computer@163.com
' http://www.56390.com/
BackupFolder = "Backup_Data__"
BackupDay = 10
BackupFile = GetRanNum() & ".backup"
FullFolder = Server.MapPath(BackupFolder)
FullFile = Server.MapPath(BackupFolder & "/" & BackupFile)
If fso.FolderExists(FullFolder) = False Then fso.CreateFolder(FullFolder)
If fso.FileExists(FullFile) = False Then
  fso.CopyFile(Server.Mappath(DataBaseFile)),(FullFile)
  SET fso_FileList = fso.GetFolder(FullFolder)
  For Each x in fso_FileList.Files
   FileDate = Left(x.Name,4) & "-" & Mid(x.Name,5,2) & "-" & Mid(x.Name,7,2)
   If DateDiff("d",FileDate,Date()) > BackupDay Then
    fso.DeleteFile FullFolder & "/" & x.Name,True
   End If
  Next
End If
End If
Function GetRanNum()
Dim strNow,strYear,strMonth,strDate,strHour,strMinute,strSecond,ranNum,zNum
strNow = Now()
strYear = Year(strNow)
strMonth = Month(strNow)
If strMonth < 10 Then strMonth = "0" & strMonth
strDate = Day(strNow)
If strDate < 10 Then strDate = "0" & strDate
strHour = Hour(strNow)
If strHour < 10 Then strHour = "0" & strHour
strMinute = Minute(strNow)
If strMinute < 10 Then strMinute = "0" & strMinute
strSecond = Second(strNow)
If strSecond < 10 Then strSecond = "0" & strSecond
GetRanNum = strYear & strMonth & strDate & strHour & strMinute & strSecond
' Power by Love_Computer...
' Create by 2005-11-28
' love_computer@163.com
' http://www.56390.com/
ranNum = ""
For i = 1 to 10
  Randomize
  zNum = Cint(9*Rnd)
  zNum = zNum + 48
  ranNum = ranNum & Chr(zNum)
Next
GetRanNum = GetRanNum & "_" & ranNum
End Function