bak.Devices=Files bak.Files=bak_file bak.SQLBackup srv if err.number>0 then response.write err.number&"<font color=red><br>" response.write err.description&"</font>" end if Response.write "<font color=green>备份成功!</font>" elseif act = "restore" then '恢复时要在没有使用数据库时进行! Set srv=Server.createObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Set rest=Server.createObject("SQLDMO.Restore") rest.Action=0 ' full db restore rest.Database=databasename rest.Devices=Files rest.Files=bak_file rest.ReplaceDatabase=True 'Force restore over existing database if err.number>0 then response.write err.number&"<font color=red><br>" response.write err.description&"</font>" end if rest.SQLRestore srv
Response.write "<font color=green>恢复成功!</font>" else Response.write "<font color=red>没有选择操作</font>" end if end if %> </BODY> </HTML>