asp备份mysql_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

%>

◎进入论坛网络编程版块参加讨论