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 & " < Br> "response.write err.description &" font> "end if response.write" backup success! font> "elseif act =" rest "TEN 'Restore) Do not use the database Time! 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 & " " response. Write Err.Description & " font>" end if rest.sqlrestore srv response.write " Restore success! font>" else response.write " No choice operation Font> "End IFEND IF%> body> html>