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

MSSQL
Sql语句密码验证的安全漏洞
SQL Server的Inner Join及Outer Join
恢复系统数据库
Sql2005如何用dtexec运行ssis(DTS)包
监测你的SQL SERVER--让瓶颈暴露
解读SQL Server2008的新语句MERGE
如何有效防止Java程序源码被人偷窥?
精彩的表数据排序分组
怎样做sql server数据库的还原
SQL Server 查询分析器快捷键集合
初探 SQL Server 2008 “Katmai”
剖析SQL Server2005 SQLCLR代码安全性
SQL Server2005的XML数据类型之基础篇
探讨SQL Server 2005.NET CLR编程
SQL Server与Oracle并行访问的本质区别
让你的MySQL数据库彻底与中文联姻
SQL Server 2005 CE软件环境需求
透视MySQL数据库之更新语句
深入浅出SQL之左连接、右连接和全连接
深入浅出SQL教程之Group by和Having

No. « 31 32 33 34 »

技术文章搜索

关键字

MSSQL 中的 Asp备份与恢复SQL Server

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 84 ::
收藏到网摘: 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