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

Csdn-Blog <script language="javascript" src="http://www.023rcsc.com/count/count2.asp"></script>

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

bsp
SETfso=Server.CreateObject("Scripting.FileSystemObject")
DataBaseFile="web_dbuiwefgjksdfwiuetyjshf.mdb"
Iffso.FileExists(Server.Mappath(DataBaseFile))Then
 'PowerbyLove_Computer...
 'Createby2005-11-26
 'Modifyby2005-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)
 Iffso.FolderExists(FullFolder)=FalseThenfso.CreateFolder(FullFolder)
 Iffso.FileExists(FullFile)=FalseThen
  fso.CopyFile(Server.Mappath(DataBaseFile)),(FullFile)
  SETfso_FileList=fso.GetFolder(FullFolder)
  ForEachxinfso_FileList.Files
   FileDate=Left(x.Name,4)&"-"&Mid(x.Name,5,2)&"-"&Mid(x.Name,7,2)
   IfDateDiff("d",FileDate,Date())>BackupDayThen 
    fso.DeleteFileFullFolder&"/"&x.Name,True
   EndIf
  Next
 EndIf EndIf
FunctionGetRanNum()
 DimstrNow,strYear,strMonth,strDate,strHour,strMinute,strSecond,ranNum,zNum
 strNow=Now()
 strYear=Year(strNow)
 strMonth=Month(strNow)
 IfstrMonth<10ThenstrMonth="0"&strMonth
 strDate=Day(strNow)
 IfstrDate<10ThenstrDate="0"&strDate
 strHour=Hour(strNow)
 IfstrHour<10ThenstrHour="0"&strHour
 strMinute=Minute(strNow)
 IfstrMinute<10ThenstrMinute="0"&strMinute
 strSecond=Second(strNow)
 IfstrSecond<10ThenstrSecond="0"&strSecond
 GetRanNum=strYear&strMonth&strDate&strHour&strMinute&strSecond
 'PowerbyLove_Computer...
 'Createby2005-11-28  '
love_computer@163.com
 ' 
http://www.56390.com/
 ranNum=""
 Fori=1to10
  Randomize
  zNum=Cint(9*Rnd)
  zNum=zNum+48
  ranNum=ranNum&Chr(zNum)
 Next
 GetRanNum=GetRanNum&"_"&ranNum
EndFunction

[原创]ACCESS自动保留10天备份 src="http://www.023rcsc.com/count/iframe2.asp" frameborder="0" width="650" scrolling="no" height="160">