Restore
Database Name: >>>>>>>>
File Path: (Backup or Recovered File Path)
<%
Backup and recovery of the 'SQL Server database!
if Request ("Action") = "BackupDatabase" the
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 = "" ""
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 = filesbak.action = 0
BAK.INITIALIZE = 1
'Bak.Replace = TRUE
Bak.files = BAK_FILE
Bak.sqlbackup SRV
IF err.number> 0 THEN
Response.write Err.Number & " "
Response.write Err.Description & ""
END IF
Response.write " backup success! "
Elseif Act = "restore" THEN
'When you recover, you should do it when you use the database!
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
REST.SQLRESTORE SRV
Response.write " Restore success! "
Response.write " No choice operation "
%>
