文章导航PC6首页软件下载单机游戏安卓资源苹果资源

pc软件新闻网络操作系统办公工具编程服务器软件评测

安卓新闻资讯应用教程刷机教程安卓游戏攻略tv资讯深度阅读综合安卓评测

苹果ios资讯苹果手机越狱备份教程美化教程ios软件教程mac教程

单机游戏角色扮演即时战略动作射击棋牌游戏体育竞技模拟经营其它游戏游戏工具

网游cf活动dnf活动lol周免英雄lol礼包

手游最新动态手游评测手游活动新游预告手游问答

您的位置:首页精文荟萃软件资讯 → 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随身Wifi 4G版什么怎样提高origin下载速百度收购PPS已敲定!3

最新文章 伊森卡特的消失通关流千牛怎么设置自动回复 增加新功能,S版Moto G喜获Android 4.4.4更鸡肋?谷歌Play Music发布更新版本千牛怎么设置自动回复​千牛云盘怎么用

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方office2013安装教程图解:手把手教你安装与同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载VeryCD镜像网站逐个数,电驴资料库全集利用PHP程序设定防止MySQL注入或HTML表单滥web服务器和应用服务器的区别安卓android 系统支持什么视频格式