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

摘要： 
本文提供了一种使用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/ 这样就比较安全。如果没有这样的权限，那么就必须保证，需要备份的文件本身就是安全的。