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

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