加入收藏 | 设为首页 | 会员中心 | 我要投稿 核心网 (https://www.hxwgxz.com/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 站长百科 > 正文

Asp备份与恢复SQLServer数据库

发布时间:2018-08-27 15:04:16 所属栏目:站长百科 来源:站长网
导读:<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>  

(编辑:核心网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读