非常好用的asp備份,還原SQL數據庫的代碼
2024-05-04 10:57:27
供稿：網友
<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>"
