用Asp备份与恢复SQL Server 数据库

165 阅读 0 评论 109 点赞

我是靠谱客的博主热心小土豆，最近开发中收集的这篇文章主要介绍用Asp备份与恢复SQL Server 数据库，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

一个用asp备份与恢复SQL Server数据库的例子代码，希望对一些朋友有用。(注意：数据库使用中可能无法恢复)

复制代码代码如下:

<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 数据库的备份与恢复! 

'海娃 

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