An example code used to back up and restore an SQL Server database using asp, hoping to be useful to some friends. (Note: the database may not be recovered during use)
Copy codeThe Code is as follows: <HTML>
<HEAD>
<TITLE> SQL Server database backup and recovery </TITLE>
<Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
</HEAD>
<BODY>
<Form method = "post" name = myform>
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">
</Form>
<%
'SQL Server database backup and recovery!
'Eva
'Http: // www.51windows. Net
Dim sqlserver, sqlname, sqlpassword, sqlLoginTimeout, databasename, bak_file, act
Sqlserver = "localhost" 'SQL Server
Sqlname = "sa" 'User Name
Sqlpassword = "sa" 'Password
SqlLoginTimeout = 15' login timeout
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. 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
%>
</BODY>
</HTML>