asp备份mysql_非常好用的asp备份,还原SQL数据库的代码

选择操作：

备份

恢复

数据库名：

">

文件路径：

(备份或恢复的文件路径)

'sql server 数据库的备份与恢复!

if request("action")="backupdatabase" then

dim sqlserver,sqlname,sqlpassword,sqllogintimeout,databasename,bak_file,act

'**************************************************************************

sqlserver = "127.0.0.1"

sqlname = "sa "

sqlpassword ="111"

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&"
"

response.write err.description&""

end if

response.write "备份成功!"

end if

if act="restore" then

'恢复时要在没有使用数据库时进行！

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&""

end if

rest.sqlrestore srv

response.write "恢复成功!"

else

response.write "没有选择操作"

end if

end if

end if

%>