没有合适的资源?快使用搜索试试~ 我知道了~
摘要: 本文提供了一种使用asp php脚本来实现网站文件备份的思路,可以实现指定文件的按天备份。 个人网站往往在虚拟主机上,对主机的控制权限很小,因此不能使用诸如任务计划来实现定时备份,我们需要换一种思路来实现相似的自动备份。 我们可以利用用户对网站的访问来实现对指定文件的按天备份。 基本思路是:用户访问网站 → 读取最后备份日期、读取当前日期然后比较,如果这两个日期不一致则调用备份程序来实现对指定文件的备份,备份完成后再写入新的日期标记,这时候用户再访问网站,日期已经是最新的了,就会跳过备份程序继而执行其他程序。 分析这个思路:备份程序会在每天的第一个用户访问网站的时候启动,便可
资源推荐
资源详情
资源评论
关于网站文件自动备份程序的一点思考关于网站文件自动备份程序的一点思考
摘要:
本文提供了一种使用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)
资源评论
weixin_38708105
- 粉丝: 9
- 资源: 866
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功