您所在位置：主题：[讨论]一个与备份数据类似的问题
七夜飘雪
[专家分：500] 发布于 2007-08-13 11:09:00
想用个很简单的方法去实现ACCESS数据库备份：
<html>
<head>
</head>
<body>
<%
response.Buffer=true
'sub button1_onClick() 想用触发这个事件来备份控制
set fso=server.CreateObject("scripting.filesystemObject")
if fso.FileExists(server.MapPath("bak/bak.mdb")) then
fso.deletefile(server.MapPath("bak/bak.mdb"))
end if
if fso.FileExists(server.MapPath("database/test.mdb")) then
fso.copyfile server.MapPath("database/test.mdb"),server.MapPath("bak/bak1.mdb")
response.Write("<script language='javascript'>slert('备份成功');</script>")
response.End()
else
response.Write("<script language='javascript'>slert('备份失败');</script>")
end if
'end sub
%>
<input type=botton name="button1" id="botton1" value="开始备份">
</body>
</html>
用上一个SUB就不行了
而不用SUB 时就提示缺少对象，但是这个时候，已经把数据库拷贝过来了 ，
不知道什么原因
<html>
<head>
</head>
<body>
<%
response.Buffer=true
'sub button1_onClick() 想用触发这个事件来备份控制
set fso=server.CreateObject("scripting.filesystemObject")
if fso.FileExists(server.MapPath("bak/bak.mdb")) then
fso.deletefile(server.MapPath("bak/bak.mdb"))
end if
if fso.FileExists(server.MapPath("database/test.mdb")) then
fso.copyfile server.MapPath("database/test.mdb"),server.MapPath("bak/bak1.mdb")
response.Write("<script language='javascript'>slert('备份成功');</script>")
response.End()
else
response.Write("<script language='javascript'>slert('备份失败');</script>")
end if
'end sub
%>
<input type=botton name="button1" id="botton1" value="开始备份">
</body>
</html>
用上一个SUB就不行了
而不用SUB 时就提示缺少对象，但是这个时候，已经把数据库拷贝过来了 ，
不知道什么原因
