狠狠色噜噜狠狠狠色综合,国精产品一二三区精华液,95国产在线

form method="post" name="myform" action="?action=backupdatabase">
  選擇操作：
  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="確定" id=submit1 name=submit1>
/form>
%
'sql server 數據庫的備份與恢復!
if request("action")="backupdatabase" then
dim sqlserver,sqlname,sqlpassword,sqllogintimeout,databasename,bak_file,act
'**************************************************************************
sqlserver = "127.0.0.1"
sqlname = "sa "
sqlpassword ="111"
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.action   = 0
   bak.initialize   = 1
   'bak.replace        = true
   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>"
  end if

  if 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
end if
%>

標簽：錫林郭勒盟江門新余儋州廣元七臺河雅安宣城

巨人網絡通訊聲明：本文標題《非常好用的asp備份,還原SQL數據庫的代碼》，本文關鍵詞非常好,用的,asp,備份,還原,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。