一聚教程网:一个值得你收藏的教程网站

热门教程

用SQL备份和恢复SQL SERVER数据库

时间:2022-06-30 10:20:17 编辑:袖梨 来源:一聚教程网

>SQL Server 数据库</a>的备份与恢复
选择操作: 
数据库名:">
文件路径:(备份或恢复的文件路径)
<%'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%>

热门栏目