用Asp備份與恢復SQL Server 數據庫

2020-07-27 13:31:27

字體：大中小

來源：轉載

供稿：網友

一個用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>