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