关于网站文件自动备份程序的一点思考_应用技巧

摘要: 
本文提供了一种使用asp php脚本来实现网站文件备份的思路,可以实现指定文件的按天备份。 
个人网站往往在虚拟主机上,对主机的控制权限很小,因此不能使用诸如任务计划来实现定时备份,我们需要换一种思路来实现相似的自动备份。 
我们可以利用用户对网站的访问来实现对指定文件的按天备份。 
基本思路是:用户访问网站 → 读取最后备份日期、读取当前日期然后比较,如果这两个日期不一致则调用备份程序来实现对指定文件的备份,备份完成后再写入新的日期标记,这时候用户再访问网站,日期已经是最新的了,就会跳过备份程序继而执行其他程序。 
分析这个思路:备份程序会在每天的第一个用户访问网站的时候启动,便可以达到按天备份的效果,然而如果这天没有用户访问则不会备份,这个并无多大关系,因为如果没有用户访问网站,则网站内容不会发生很大改变。因此可以忽略这个情况。 
需要注意的是,可能存在两个人同时访问网站,而同时启动备份程序的情况,便可能会对备份内容造成覆盖,对此我们可以在程序中添加判断语句,如果文件已经存在则不去覆盖它。 
如果是要备份的两个文件的文件名也相同则也会造成覆盖,我们假定文件是全不相同的。 
还有一个比较重要的问题是,在备份程序中必须采用的时期格式是    4位数年和2位数月、日,不足位数必须补零。  例如:2006-05-31只有这样才能实现日期大小的比较,在asp中我们可以用一个小程序来实现,在php中已经有这样的日期格式了。 
下面详细说明程序的构造,以asp为例。 
===bak_set.asp=== 

复制代码 代码如下:

Dim root_dir  
root_dir = "/"  
Dim bak_set  
Set bak_set = Server.createobject("Scripting.Dictionary")  
bak_set.Add "last_bak" , "2006-05-30"  
bak_set.Add "file_list" , "data.mdb|system.mdb"  
bak_set.Add "file_path" , "database/|database/"  
bak_set.Add "bak_dir" , "backup/"  
bak_set.Add "bak_date" , "2006-05-27|2006-05-28|2006-05-29|2006-05-30"  
bak_set.Add "perfix" , "@"  
bak_set.Add "date_out" , "2"  
以上是备份设置文件,root_dir 是网站主目录的路径,是网站的一个全局设置,剩下的是备份设置,我们需要知道:要备份的文件名、路径,备份在什么地方,备份保留几天,备份文件的文件名前缀,两个经常变化的设置是最后备份日期和备份过的日期的列表。在全部的路径设置中都需要用“/”结束 
Iso标准日期函数:  

复制代码 代码如下:

Function IsoDate(str_date)     Dim temp  
    If IsDate(str_date) Then  
        temp = Year(str_date)&"-"& Right("0"&Month(str_date),2) & "-"& Right("0" & Day(str_date),2)  
    Else  
        temp = str_date  
    End If  
    IsoDate=temp  
End Function 
 
备份函数的思路: 
先将备份设置读取出到函数中的变量中,并且得到网站的服务器路径  
检查备份主文件夹(例如:backup/)是否存在,当前备份文件夹(例如:backup/2006-05-30/)是否存在,然后将需要备份的文件保存到当前备份文件夹;  
计算出备份文件的保存期,读取以前的备份日期列表,然后两者相比较,如果日期小于保存期则将备份文件删除,如果不需要删除则将日期转存到新变量中。  
生成新的备份设置并将之写入原设置文件。  
具体程序如下: 

复制代码 代码如下:

'==================================  
' Function: 文件定时备份程序backup files  
' Need var: root_dir , bak_set , isodate()  
' Need file bak_set.asp  
' return : true / false  
'==================================  
Function bak_start()  
    '1  
    Dim perfix  
        perfix = bak_set("perfix")  
    Dim files  
        files = split(bak_set("file_list"),"|")  
    Dim paths  
        paths = split(bak_set("file_path"),"|")  
    Dim now_date  
        now_date = isodate(date)  
        'response.Write(now_date)  
    Dim sev_root   
        sev_root = Server.MapPath(root_dir)  
    Dim bak_root  
        bak_root = sev_root & "\" & bak_set("bak_dir")  
    Dim bak_dir  
        bak_dir = bak_root & "\" & now_date & "\"  
    '2 create backup  
    Dim fso  
    Set fso = Server.createobject("Scripting.FileSystemObject")  
    If Not fso.FolderExists(bak_root) Then fso.CreateFolder(bak_root)  
    If Not fso.FolderExists(bak_dir) Then fso.CreateFolder(bak_dir)  
    'response.Write(bak_dir)  
    If  Ubound(files) > Ubound(paths) Then  
        bak_start = false   
        Exit Function  
    End If   
    Dim i  
        'On Error Resume Next  
    For i = 0 To Ubound(files)  
            'response.Write(sev_root & "\" & paths(i) & files(i))  
        If fso.FileExists( sev_root & "\" & paths(i) & files(i) ) And Not fso.FileExists(bak_dir & perfix & files(i)) Then   
            fso.CopyFile sev_root & "\" & paths(i) & files(i) , bak_dir & perfix & files(i)  
        End If  
    Next  
    '3 Delete out of date backup  
    Dim date_out  
    date_out = isodate( date - Abs(bak_set("date_out")) )  
    'response.Write(date_out)  
    Dim dates  
    Dim bak_date  
    bak_date = ""  
    dates = split(bak_set("bak_date"),"|")  
    For i = 0 To Ubound(dates)  
        If dates(i) < date_out Then  
            'On Error Resume Next  
            If fso.FolderExists(bak_root & "\" & dates(i)) Then fso.DeleteFolder bak_root & "\" & dates(i)  
        Else  
            bak_date = bak_date & dates(i) & "|"  
        End If  
    Next  
    bak_date = bak_date & now_date  
    bak_set("bak_date") = bak_date  
    '4 update settings  
    Dim f  
    Set f = fso.OpenTextFile(Server.MapPath("bak_set.asp"),2,true)'2 写  
    Dim temp ,keys  
    temp = "<%" &vbCrlf & _  
    "Dim root_dir"&vbCrlf & _  
    "root_dir = """& root_dir &"""" &vbCrlf & _   
    "Dim bak_set" &vbCrlf & _  
    "Set bak_set = Server.createobject(""Scripting.Dictionary"")"&vbCrlf  
    keys = bak_set.Keys  
    For i = 0 to Ubound(keys)  
        temp = temp & "bak_set.Add """&keys(i)&""" , """ & bak_set(keys(i)) & """" & vbCrlf  
    Next  
    temp = temp & "%" & ">"  
    f.write temp  
    f.Close  
    Set fso = Nothing  
    Set f = Nothing  
    bak_start = true  
End Function   
最后,也是最重要的,那就是安全问题,如果备份的文件能被浏览器打开,那后果可能是很严重的!所以应当谨慎选取备份文件夹,如果服务器允许访问网站的外部目录,那么应当把备份的路径也指定到网站外部,例如:网站根目录解析到了 XXX/htdoc/ 而你对此也有读写权限 xxx/ 那么就可以将备份文件加指定到 xxx/backup/ 这样就比较安全。如果没有这样的权限,那么就必须保证,需要备份的文件本身就是安全的。 

时间: 2024-10-09 18:29:37

关于网站文件自动备份程序的一点思考_应用技巧的相关文章

关于网站文件自动备份程序的一点思考

摘要:  本文提供了一种使用asp php脚本来实现网站文件备份的思路,可以实现指定文件的按天备份.  个人网站往往在虚拟主机上,对主机的控制权限很小,因此不能使用诸如任务计划来实现定时备份,我们需要换一种思路来实现相似的自动备份.  我们可以利用用户对网站的访问来实现对指定文件的按天备份.  基本思路是:用户访问网站 → 读取最后备份日期.读取当前日期然后比较,如果这两个日期不一致则调用备份程序来实现对指定文件的备份,备份完成后再写入新的日期标记,这时候用户再访问网站,日期已经是最新的了,就会

网站数据自动备份方法_服务器其它

近来由于国家打击,所以各地难免会出现封机房.断网的情况,针对这种情况,站长们最需要的就是能及时备份自己的数据,本文是根据作者自己多年的维护经验,来和大家分享下网站数据自动备份的一些经验. 目前站长们大多使用的网站程序无外乎ASP\asp.net\php\jsp 数据库的话,大多是access\sqlserver\mysql 我们分2种情况来说明下. 对于win服务器下的自动数据备份,网站文件,自然是比较好备份的,那么如果数据库也可以自动备份,那就基本实现完美自动备份. 如果你有独立服务器,那么这

11g中关于控制文件自动备份的改进

在之前做一个测试演示的时候,使用的是11gR2的库,在说rman的备份配置的时候有一个功能时控制文件的自动备份, CONFIGURE CONTROLFILE AUTOBACKUP ON/OFF; 然后自己简单介绍了下,说controlfile autobackup功能还是蛮实用的,一般还是建议开启.之前自己在10g的环境中也测试过,印象中数据库级的一些操作,比如创建表空间,删除数据文件等等,都会重新生成对应的控制文件,然而在演示的时候,竟然还是掉了链子. 我们创建了一个表空间,没有自动备份控制文

win7数据库/文件自动备份(转载)

自己创建自动备份程序的优点: 1.完全自己定制,可以根据自己的需要建立各类自动处理程序: 2.运用操作系统原生服务程序,最大化利用系统资源,减少第三方程序资源消耗: 3.自己创建程序,无任何第三方辅助,杜绝服务器受病毒入侵风险: 4.运用操作系统功能,减少软件采购成本.   一.自动备份批处理程序 打开记事本程序,输入(可直接复制粘贴)以下代码:   备份数据库批处理代码: @echo off echo 备份78oa数据库 :start net stop 78oa_mdbserver xcopy

FileGee轻松搞定文件自动备份

文件备份是日常文件管理的基本任务,完全借助手工的操作,不仅浪费时间,还会影响文件备份的效率.有没有一款文件自动备份软件?如何选择合适的文件自动备份软件?是文件管理人员值得深思的问题. 在日益增多的海量信息中,文件备份显得尤为重要,如果备份出错,会为以后的数据恢复带来不便.在每天繁多的文件中,我们不能完全保证手动备份不 会出现错误.文件自动备份,可有效的降低出错的可能.只要你对其进行设置,它就会自动执行,而不会出现遗忘备份的现象.什么样的文件自动备份软件,对q其 做什么样的设置才能做到文件备份的零

FileGee帮你U盘文件自动备份?

  利用FileGee实现U盘文件自动备份具体步骤: 首先,需要建立一个任务,当然这个任务的源目录或者目标目录中至少有一个是在移动存储设备上的.然后,把这个任务设置成实时执行. 任务建立后,可以在任务列表中看到这个任务.当移动存储设备插在电脑上时,任务前方的图标为,表示当前任务可以正常执行. 当移动存储设备未插上电脑,盘符不可用的情况下,任务前方的图标为,这时候任务不会自动执行,直到移动存储设备插上后才会自动执行. 插上时,任务也会触发执行.我们还需要考虑一种情况,盘符虽然一样,但可能是不同的移

服务器文件自动备份到另一个服务器上

问题描述 服务器文件自动备份到另一个服务器上 各位大神帮忙求解,前段时间我的一台服务器上的东西糟到而已删除, 现在想进行每天定时自动备份到另一台服务器上,以免悲剧再次发生, 自动备份的资料保留5天后自动删除,怎么做?非常感谢! 解决方案 httpclient从一个服务器传送文件到另一个服务器服务器文件自动备份工具另一个用libevent实现的echo服务器 解决方案二: 通过rsync等来在服务器之间备份同步http://www.cnblogs.com/itech/archive/2009/08

FileGee文件自动备份软件,文件万无一失

大家都知道,文件自动备份是保护电脑内资料安全的一个重要手段,http://www.aliyun.com/zixun/aggregation/19352.html">FileGee个人文件同步备份系统绝对是您在文件备份方面的好帮手,FileGee有着强劲的文件自动备份效果,满足用户的各种文件自动备份需求,现在跟我一起来了解FileGee的备份设置功能吧! FileGee风信网下载地址:http://www.ithov.com/soft/21854.shtml FileGee官方下载地址:ht

[20171116]11GR2控制文件自动备份.txt

20171116]11GR2控制文件自动备份.txt SYS@book> @ &r/ver1 PORT_STRING                    VERSION        BANNER ------------------------------ -------------- -------------------------------------------------------------------------------- x86_64/Linux 2.4.xx