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

MSSQL
获取MSSQL数据字典的SQL语句
Microsoft Search 服务无法启动 解决办法.
找出所有非xml索引并重新整理的sql
SQL Server提示"选定的用户拥有对象,所以无法除去该用户”
SQL Server"错误 21002: [SQL-DMO]用户 * 已经存在问题解决
删除重复记录,并且剩下一条
select * from sp_who的解决方案
Sql语句与存储过程查询数据的性能测试实现代码
MSSQL 游标使用 心得
SQL 时间类型的模糊查询
mssql 指定字段编号sql语句
sql server中的decimal或者numeric的精度问题
sql 数据库还原图文教程
存储过程解密(破解函数,过程,触发器,视图.仅限于SQLSERVER2000)
MSSQL SERVER中的BETWEEN AND的使用
SQL Server约束增强的两点建议
SQL Server 更改DB的Collation
Oracle 10g各个帐号的访问权限、登录路径、监控状态命令查询等等
SQL Server的复制功能
sql 普通行列转换

MSSQL 中的 Asp备份与恢复SQL Server


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