最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
用SQL备份和恢复SQL SERVER数据库
时间:2022-06-30 10:20:17 编辑:袖梨 来源:一聚教程网
>SQL Server 数据库的备份与恢复 <%'SQL Server 数据库的备份与恢复!'海娃'http://www.51windows.Netdim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,actsqlserver = "localhost" 'sql服务器sqlname = "sa" '用户名sqlpassword = "sa" '密码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.Files=bak_file bak.SQLBackup srv if err.number>0 then response.write err.number&"
" response.write err.description&"" end if Response.write "备份成功!" 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&"
" response.write err.description&"" end if rest.SQLRestore srv Response.write "恢复成功!" else Response.write "没有选择操作" end ifend if%>
" response.write err.description&"" end if Response.write "备份成功!" 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&"
" response.write err.description&"" end if rest.SQLRestore srv Response.write "恢复成功!" else Response.write "没有选择操作" end ifend if%>