Asp代码 - Sql数据库备份与还原

以下是备份代码：
Dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,BackUpPathFile,dbpath,sqlstr
sqlserver = "<服务器名称>"                           '-- example:haha   
sqlname = "<数据库用户名>"                         '-- example:haha   
sqlpassword = "<用户密码>"                        '-- example:haha  
sqlLoginTimeout = <设置登录超时时间[分]>          '-- example:15
databasename = "<所要备份的数据库名字>"   '-- example:datas
BackUpPathFile = <备份文件名称>                  '-- example:datas09
dbpath = <存放路径>                                     '-- example:bak/

'-- 执行备份
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 = server.mappath(dbpath)
bak.SQLBackup srv

以下是还原代码：
Dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,sqlstr,dbpath
sqlserver = "<服务器名称>"                        '-- example:haha   
sqlname = "<数据库用户名>"                      '-- example:haha 
sqlpassword = "<用户密码>"                     '-- example:haha
sqlLoginTimeout = <登录超时时间[分]>             '-- example:15
databasename = "<数据库名称>"              '-- example:datas
dbpath = "<还原文件存放位置>"                  '-- example:bak/datas09

 '-- 执行
 Set srv=Server.CreateObject("SQLDMO.SQLServer")   
 srv.LoginTimeout = sqlLoginTimeout   
 srv.Connect sqlserver,sqlname,sqlpassword   
     
 Set rest=Server.CreateObject("SQLDMO.Restore")   
 rest.Action=0  
 rest.Database = databasename   
 rest.Devices = Files   
 rest.Files = server.mappath(dbpath)   
 rest.ReplaceDatabase = True