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

2024-05-04 11:03:04

字體：大中小

來源：轉載

供稿：網友

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