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


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")  

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3137.html