您的位置:首页精文荟萃软件资讯 → Asp备份与恢复SQLServer数据库

Asp备份与恢复SQLServer数据库

时间:2004/10/7 18:36:00来源:本站整理作者:蓝点我要评论(0)


            
             
              
             
            

               
               

            



            <HTML>
  <HEAD>
  <TITLE>SQL Server 数据库的备份与恢复</TITLE>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  </HEAD>
  <BODY>
  <form method="post" name=myform>
  选择操作:<INPUT TYPE="radio" NAME="act" id="act_backup" value="backup"><label for=act_backup>备份</label> 
  <INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>恢复</label>
  <br>数据库名:<INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>">
  <br>文件路径:<INPUT TYPE="text" NAME="bak_file" value="c:\$1.bak">(备份或恢复的文件路径)<br>
  <input type="submit" value="确定">
  </form>
  <%
  'SQL Server 数据库的备份与恢复!
  '海娃@2004-4-2
  'http://www.51windows.Net
  dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act
  sqlserver = "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&"<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>

相关阅读 Mac访问Windows共享文件夹Windows 7正版系统验证方法windows 8.1系统版本号查看方法Windows 8.1系统电话激活时无法输入微软返回代码解决方法Windows 8如何调整屏幕分辨率windows8.1磁盘占用100%解决方法Mac双系统如何删除Boot Camp安装的Windows分区Apple教你如何在Mac 上运行 Windows

文章评论
发表评论

热门文章 360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3

最新文章 微信3.6.0测试版更新了微信支付漏洞会造成哪 360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本