非常好使的asp备份 还原SQL数据库的代码

非常好使的asp备份 还原SQL数据库的代码：

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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!