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

【字体设置：大 中 小】
利用FSO功能自动备用网站的数据库，很多人认为是做不到的，其实，是那些站长研究的不够深入而已，真正研究起来也不是那么得复杂，今天，兄弟就给大家一段简单实现的代码，在需要的地方调用即可。
<%
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
               dbpath=server.mappath("data/data.mdb")'数据库路径，自己修改
    bkfolder="databack" ‘备份数据库的文件夹
    bkdbname=date()
    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
%>
以上的代码已经很完整了，有自动检测文件夹是否存在，自动创建文件夹等功能了，在需要的地方，比如在退出系统的时候，调用即可<%call backupdata()%>,当然，即可包含上面的代码，个人建议将上面的代码保存为一个文件，比如：autobackup.asp。另外，文件的名字你可以根据自己的需要修改，很多上传文件都有根据时间自动命名的功能，你也可以仿照一下。

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