Copy codeThe Code is as follows: <form method = "post" name = "myform" action = "? Action = backupdatabase ">
Select Operation: <input type = "radio" NAME = "act" id = "act_backup" value = "backup"> <label for = act_backup> backup </label>
<Input type = "radio" NAME = "act" id = "act_restore" value = "restore"> <label for = act_restore> restore </label>
<Br> Database NAME: <input type = "text" NAME = "databasename" value = "<% = request (" databasename ") %>">
<Br> file path: <input type = "text" NAME = "bak_file" value = "c: \ $ 1.bak"> (backup or recovery file path) <br>
<Input type = "submit" value = "OK" id = submit1 name = submit1>
</Form>
<%
'SQL Server database backup and recovery!
If request ("action") = "backupdatabase" Then
Dim sqlserver, sqlname, sqlpassword, sqlLoginTimeout, databasename, bak_file, act
Sqlserver = "localhost"
Sqlname = "sa"
Sqlpassword = "password"
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> Backup successful! </Font>"
Elseif act = "restore" then
'Recovery must be performed when the database is not used!
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> recovery successful! </Font>"
Else
Response. write "<font color = red> no operation selected </font>"
End if
End if
End if
%>
