asp mysql备份,用Asp备份与恢复SQL Server 数据库

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

复制代码 代码如下:

SQLServer数据库的备份与恢复

选择操作：备份

恢复

数据库名：">

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

'SQLServer数据库的备份与恢复!

'海娃

'http://www.51windows.Net

dimsqlserver,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"))

ifdatabasename=""then

response.write"inputdatabasename"

else

ifact="backup"then

Setsrv=Server.CreateObject("SQLDMO.SQLServer")

srv.LoginTimeout=sqlLoginTimeout

srv.Connectsqlserver,sqlname,sqlpassword

Setbak=Server.CreateObject("SQLDMO.Backup")

bak.Database=databasename

bak.Devices=Files

bak.Files=bak_file

bak.SQLBackupsrv

iferr.number>0then

response.writeerr.number&"
"

response.writeerr.description&""

endif

Response.write"备份成功!"

elseifact="restore"then

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

Setsrv=Server.CreateObject("SQLDMO.SQLServer")

srv.LoginTimeout=sqlLoginTimeout

srv.Connectsqlserver,sqlname,sqlpassword

Setrest=Server.CreateObject("SQLDMO.Restore")

rest.Action=0'fulldbrestore

rest.Database=databasename

rest.Devices=Files

rest.Files=bak_file

rest.ReplaceDatabase=True'Forcerestoreoverexistingdatabase

iferr.number>0then

response.writeerr.number&"
"

response.writeerr.description&""

endif

rest.SQLRestoresrv

Response.write"恢复成功!"

else

Response.write"没有选择操作"

endif

endif

%>