海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
将下面的代码单独保存一个文件，在需要的地方包含进去，然后使用call backupdata()即可自动备份数据库了，记得要修改一下数据库的路径，备份的文件夹也可以根据自己的需要自行修改。至于自动定时备份，其实也是很简单的，你可以在你的数据库的链接代码加入验证程序：

<%
If hour(now())=23 and Minute(Now())=30 then
call backupdata()
End if
%>
这样就可以在每天的23:30分自动备份网站的数据了，当然，还有其它的方法，比如在管理员退出系统的时候自动备份数据，因为管理员登陆以后一般都是有新的文章添加等等，这样也是不错的备份的思路，如果你有什么好的建议，欢迎交流！

管理退出时，自动备用也是很简单的，因为一般退出都验证一个action，比如action=logout，我们可以加一下代码，比如，验证登陆的时候用的是session("user")="admin",我们退出的时候也可以这样验证：
<%
If request("action")=logout

  If session("user")=admin then
  call backupdata()
  End if
........

End if
%>

===========================================
以下是自动备份数据库的代码，你也可以下载附件的代码直接修改即可
===========================================

<%
Function CheckDir(FolderPath)
    dim fso1
    folderpath=Server.MapPath(".")&"\"&folderpath
    Set fso1 = Server.CreateObject("Scripting.FileSystemObject")
    If fso1.FolderExists(FolderPath) then
        CheckDir = True
    Else
        CheckDir = False
    End if
    Set fso1 = nothing
End Function

Function MakeNewsDir(foldername)
    dim fso1,f
    Set fso1 = Server.CreateObject("Scripting.FileSystemObject")
    Set f = fso1.CreateFolder(foldername)
    MakeNewsDir = True
    Set fso1 = nothing
End Function

sub BackupData()
    Dim dbpath,bkfolder,bkdbname,fso
    Dim DateYear,DateMonth,DateDay,DateHour,DateMinute,DateSecond
    dbpath=server.mappath("data/data.mdb")   '数据库路径，自己修改
    bkfolder="databack"   '备份数据库的文件夹
    DateYear=Year(Now())
    DateMonth=Month(Now())
    DateDay=Day(Now())
    DateHour=Hour(Now())
    DateMinute=Minute(Now())
    DateSecond=Second(Now())
    If Len(DateMonth)<2 Then DateMonth="0"&DateMonth
    If Len(DateDay)<2 Then DateDay="0"&DateDay
    If Len(DateHour)<2 Then DateHour="0"&DateHour
    If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
    If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
    bkdbname=DateYear&DateMonth&DateDay&DateHour&DateMinute&DateSecond
    Set Fso=server.createobject("scripting.filesystemobject")
    If fso.fileexists(dbpath) then     '备份文件的名字，于日期命名
       If CheckDir(bkfolder) = True Then    '文件夹存在则开始备份
    fso.copyfile dbpath,bkfolder& "\"& bkdbname &".asp"
       else
     MakeNewsDir bkfolder  '文件夹不存在，自动创建，再进行备份
     fso.copyfile dbpath,bkfolder& "\"& bkdbname &".asp"
       End if
    End if
end sub
%>


点击下载数据库自动备份程序

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!