用Asp備份與恢復(fù)SQL Server 數(shù)據(jù)庫

更新時間：2006年08月16日 00:00:00 作者：

一個用asp備份與恢復(fù)SQL Server數(shù)據(jù)庫的例子代碼，希望對一些朋友有用。(注意：數(shù)據(jù)庫使用中可能無法恢復(fù))

<HTML> 
<HEAD>
<TITLE>SQL Server 數(shù)據(jù)庫的備份與恢復(fù)</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>恢復(fù)</label> 

<br>數(shù)據(jù)庫名：<INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>"> 

<br>文件路徑：<INPUT TYPE="text" NAME="bak_file" value="c:\$1.bak">(備份或恢復(fù)的文件路徑)<br> 

<input type="submit" value="確定"> 

</form> 

<% 

'SQL Server 數(shù)據(jù)庫的備份與恢復(fù)! 

'海娃 

'http://www.51windows.Net 

dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act 

sqlserver = "localhost" 'sql服務(wù)器 

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 

  '恢復(fù)時要在沒有使用數(shù)據(jù)庫時進行！ 

  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>恢復(fù)成功!</font>" 

 else 

  Response.write "<font color=red>沒有選擇操作</font>" 

 end if 

end if 

%> 

</BODY> 

</HTML>