Asp备份与恢复SQL Server数据库

导读：
一个用asp备份与恢复SQL Server数据库的例子代码，希望对一些朋友有用。(注意：数据库使用中可能无法恢复)


SQL Server 数据库的备份与恢复




选择操作：备份　
恢复

数据库名：">

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

<%

'SQL Server 数据库的备份与恢复!

'海娃@2004-4-2

'http://www.51windows.Net

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

sqlserver = "localhost" 'sql服务器

sqlname = "sa" '用户名

sqlpassword = "sa" '密码

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.Files=bak_file

bak.SQLBackup srv

if err.number>0 then

response.write err.number&"
"

response.write err.description&""

end if

Response.write "备份成功!"

elseif 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

%>



本文转自
http://www.blueidea.com/tech/program/2004/1792.asp