设为首页 - 加入收藏 镇江站长网 (http://www.52zhenjiang.com)- 国内知名站长资讯bet36在线注册_bet36最新在线投注_bet36在线备用,提供最新最全的站长资讯,创业经验,bet36在线注册_bet36最新在线投注_bet36在线备用建设等!
热搜: 项目 基于 高通 社交应用
当前位置: 首页 > 营销 > 电子商务 > 正文

Asp备份与恢复SQLServer数据库

发布时间:2018-08-30 12:46 所属栏目:[电子商务] 来源:站长网
导读:<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=

<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>  

【免责声明】本站内容转载自互联网,其相关言论仅代表作者个人观点绝非权威,不代表本站立场。如您发现内容存在版权问题,请提交相关链接至邮箱:bqsm@foxmail.com,我们将及时予以处理。

网友评论
推荐文章