数据库备份问题

[calmcat]

就是一个网站后台有个数据库备份功能,这个源码是有.

有没办法做到,在我们手工备份的时候,每备份一次就生成一个备份文件(最好是以日期时间来区分),不要求覆盖

另外问一下就是用asp代码能实现自动备份吗?

[lianzy]

access及sql都是可以自动可以备份的

[ttkkyy]

当然可以每被分一个就生成一个文件(你有源码,备份的时候应该可以控制文件名)

asp可以备份数据库，我没做过
csdn或网上应该有，我看到过

[lianzy]

y=year(now)
m=month(now)
d=day(now)
hh=hour(now)
mm=minute(now)
ss=second(now)
bak_time=y

bak_time=year(now()) & month(now()) & day(now()) & hour(now()) & minute(now()) & second(now()) & ".mdb"

set fso_bak=server.CreateObject("scripting.filesystemobject")
if not fso_bak.FolderExists(server.MapPath("../DB/bak")) then fso.CreateFolder(server.MapPath("../DB/bak"))
fso_bak.CopyFile server.MapPath("../DB/MyShop.mdb"),server.MapPath("../DB/bak/"& bak_time)
set fso_bak=nothing
if err.number<>0 then
Response.Write err.Description
err.Clear
else
Response.Write "<script language=javascript>alert(""Database Backup Successful!"");window.location.href=""bak_db.asp""</script>"
end if
Response.End

[calmcat]

现在备份可以了.恢复的时候出现个问题,请大家帮忙一下.
恢复代码:
Dbpath=request.form("Dbpath")
backpath=request.form("backpath")
if dbpath="" then
response.write "请输入您要恢复成的数据库全名"
else
Dbpath=server.mappath(Dbpath)
end if
backpath=server.mappath(backpath)

Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
fso.copyfile Dbpath,Backpath
response.write "成功恢复数据！"
else
response.write "备份目录下并无您的备份文件！"
end if
===
dbpath是备份的文件,现在我用<input name=DBpath type="FILE" size="30">浏览硬盘选择一个备份文件来恢复.但mappath不支持绝对路径,dbpath只能是相对路径.
现在我想用绝对路径,有什么办法可以解决?
谢谢!!!

[calmcat]

自己顶一下

[huhanshan013]

说得直接点！
就是把CAAESS拷贝到其他地方去！

[calmcat]

都没人帮忙一下?

[wzhiyuan]

friendly up

[longsnow]

<%


dim bak_file,act

bak_file = trim(request.form("bak_file"))
act = lcase(request.form("act"))
response.Write(act)
if act = "backup" then
on error resume next
set dmosvr=server.CreateObject("SQLDMO.SQLServer")
dmosvr.connect sqlserver,sqlname, sqlpassword

if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)
mdevname="Backup_"&sqlname&"_"&databasename
set dmodev=server.CreateObject("SQLDMO.BackupDevice")
dmodev.name=mdevname
dmodev.type=2
dmodev.PhysicalLocation=bak_file
dmosvr.BackupDevices.Add dmodev

if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

set dmobak=server.CreateObject("SQLDMO.Backup")
dmobak.database=databasename
dmobak.devices=mdevname
dmobak.sqlbackup dmosvr
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

dmosvr.backupdevices(mdevname).remove
set dmobak=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing

else if act = "restore" then
bak_file=trim(request("bak_file"))
Set dmosrv=Server.CreateObject("SQLDMO.SQLServer")
dmosrv.Connect sqlserver,sqlname, sqlpassword
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)
mdevname="Restore_"&sqlname&"_"&databasename
dmosvr.backupdevices(mdevname).remove
err.clear

set dmodev=server.CreateObject("SQLDMO.BackupDevice")
dmodev.name=mdevname
dmodev.type=2
dmodev.PhysicalLocation=bak_file
dmosvr.BackupDevices.Add dmodev
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)
set dmores=server.CreateObject("SQLDMO.Restore")
dmores.database=databasename
dmores.devices=mdevname
dmores.sqlrestore dmosvr
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

set dmores=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing

end if
end if
'if (act <> "backup") and (act<> "restore") then
' Response.write "<font color=red>没有选择操作</font>"
'end if

%>

实现备份和恢复，但是恢复时必须暂停SQL SERVER

[longsnow]

可以直接输入路径和文件名，FORM的代码
<form name="form1" method="post" >
<SCRIPT LANGUAGE="JavaScript">

function onBack()
{
document.forms[0].action ="./right.asp";
document.forms[0].submit();
}
function CheckForm()
{

}
</SCRIPT>
<%
response.Expires=-1
response.AddHeader "Pragma","no-cache"
response.AddHeader "cache-control","no-store"
strType=session("usertype")
if (strType = "" ) then
response.redirect "index.asp"
end if

dim bak_file,act

bak_file = trim(request.form("bak_file"))
act = lcase(request.form("act"))
response.Write(act)
if act = "backup" then
on error resume next
set dmosvr=server.CreateObject("SQLDMO.SQLServer")
dmosvr.connect sqlserver,sqlname, sqlpassword

if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)
mdevname="Backup_"&sqlname&"_"&databasename
set dmodev=server.CreateObject("SQLDMO.BackupDevice")
dmodev.name=mdevname
dmodev.type=2
dmodev.PhysicalLocation=bak_file
dmosvr.BackupDevices.Add dmodev

if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

set dmobak=server.CreateObject("SQLDMO.Backup")
dmobak.database=databasename
dmobak.devices=mdevname
dmobak.sqlbackup dmosvr
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

dmosvr.backupdevices(mdevname).remove
set dmobak=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing

else if act = "restore" then
bak_file=trim(request("bak_file"))
Set dmosrv=Server.CreateObject("SQLDMO.SQLServer")
dmosrv.Connect sqlserver,sqlname, sqlpassword
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)
mdevname="Restore_"&sqlname&"_"&databasename
dmosvr.backupdevices(mdevname).remove
err.clear

set dmodev=server.CreateObject("SQLDMO.BackupDevice")
dmodev.name=mdevname
dmodev.type=2
dmodev.PhysicalLocation=bak_file
dmosvr.BackupDevices.Add dmodev
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)
set dmores=server.CreateObject("SQLDMO.Restore")
dmores.database=databasename
dmores.devices=mdevname
dmores.sqlrestore dmosvr
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

set dmores=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing

end if
end if
'if (act <> "backup") and (act<> "restore") then
' Response.write "<font color=red>没有选择操作</font>"
'end if

%>

<table width="100%" border="0">
<tr>
<td><font color="#FF0000">选择操作:
<INPUT NAME="act" TYPE="radio" id="act_backup" value="backup" checked>
<label for=act_backup>备份</label>
<INPUT TYPE="radio" NAME="act" id="act_restore" value="restore">
<label for=act_restore>恢复</strong></label>
<strong><font color="#000000">(恢复时请先关闭SQL SERVER)</font></strong></font></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><font color="#FF0000">数据库：OA</font></td>
</tr>
<tr>
<td><font color="#FF0000">文件路径:</font>
<INPUT TYPE="text" NAME="bak_file" value="c:\OA.bak">
<strong>(备份或恢复的文件路径)</strong></td>
</tr>
<tr>
<td><div align="center">
<input name="submit" type="submit" value="确定">
</div></td>
</tr>
</table>
<br>



</form>

[calmcat]

我的是access,我的意思是说在恢复的那一部分,那个相对路径能不能替换成绝对路径呢

[longsnow]

<INPUT TYPE="text" NAME="bak_file" value="c:\OA.bak">
只是默认值为c:\OA.bak，你自己写你要的绝对路径后按确定按钮就可以执行恢复了啊

[calmcat]

关键是备份文件不是一个,都是按日期备份的很多个啊.所以才要进行选择