当前位置: 首页 > 图文教程 > 数据库 > MSSQL > Asp备份与恢复SQL Server

MSSQL
MS-sql 2005拒绝了对对象 ''xxx'' (数据库 ''xxx'',架构 ''dbo'')的 SELECT 权限的解决方法
MSSQL 2005 LOG备份webshell的方法
快速将珊瑚虫IP数据库转MS SQL2005的图文教程
sql2005 远程连接问题解决方法
SQLServer 2005 列所有存储过程的语句
SQL Server 2005 模板参数使用说明
Sql Server 2005 默认端口修改方法
SQL Sever 2005 Express 安装失败解决办法
sql2005 根据指定字段排序编号
监视SQLServer数据库镜像[图文]
sqlserver2008 拆分字符串
字符串聚合函数(去除重复值)
SQL Server 2005 同步复制技术
SqlServer2005 链接服务器用法
SQL2008中 阻止保存要求重新创建表的更改 的解决方法
sql rollup用法 小计汇总
SQLServer 2008 Merge语句的OUTPUT功能
SQLServer 2008 新增T-SQL 简写语法
SQL Server 2005“备份集中的数据库备份与现有的数据库不同”解决方法
SQL2005 学习笔记 公用表表达式(CTE)

MSSQL 中的 Asp备份与恢复SQL Server


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-30   浏览: 68 ::
收藏到网摘: n/a

<HTML>
<HEAD>
<TITLE>数据库操作</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>

<BODY>
<form method="post" name=myform>
<%if action="restore" then%><INPUT TYPE="hidden" name="action" value="restore">准备恢复数据库。。。
<%elseif action="backup" then%><INPUT TYPE="hidden" name="action" value="backup">准备备份数据库。。。<%else%>
选择操作:
<INPUT TYPE="radio" name="action" id="act_backup"  value="backup"><label for=act_backup>备份</label> 
<INPUT TYPE="radio" name="action" id="act_restore" value="restore"><label for=act_restore>恢复</label><%end if%>
<br>数据库名:<INPUT TYPE="text" name="databasename" value="50forum">
<br>文件路径:<INPUT TYPE="text" name="bak_file" value="http://blog.im286.com/50forum.bak">(备份或恢复的文件路径)<br>
<input type="submit" value="确定">
</form>
<%
'SQL Server 数据库的备份与恢复!
'海娃
'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 = Server.MapPath("backup/"&bak_file)
act = lcase(request("action"))

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.Action    = 0
  bak.Initialize   = 1
  'bak.ReplaceDatabase  = True
  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>"
  srv.disconnect
  Set srv = nothing
  Set bak = nothing
 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>&q