<% 'sql server 数据库的备份与恢复! if request("action")="backupdatabase" then dim sqlserver,sqlname,sqlpassword,sqllogintimeout,databasename,bak_file,act '************************************************************************** sqlserver = "127.0.0.1" sqlname = "sa " sqlpassword ="111" sqllogintimeout = 15 databasename = trim(request("databasename")) bak_file = trim(request("bak_file")) bak_file = replace(bak_file,"$1",databasename) act = lcase(request("act")) '************************************************************************** if databasename = "" then response.write "input database name" else if act = "backup" then set srv=server.createobject("sqldmo.sqlserver") srv.logintimeout = sqllogintimeout srv.connect sqlserver,sqlname, sqlpassword set bak = server.createobject("sqldmo.backup") bak.database=databasename bak.devices=files bak.action = 0 bak.initialize = 1 'bak.replace = true bak.files=bak_file bak.sqlbackup srv if err.number>0 then response.write err.number&" " response.write err.description&"" end if response.write "备份成功!" end if
if 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&" " response.write err.description&"" end if rest.sqlrestore srv response.write "恢复成功!" else response.write "没有选择操作" end if end if end if %>