mysql 备份恢复 asp_ASP中的数据库备份与恢复

方法一：

文件1：BackupDB.asp

Database --> Backup

Server Name:
Administrators:
Password:
Database:

(Server Path)

文件2：BackupDBSave.asp

dim msvr,muid,mpwd,mdb,mto

msvr=Request.Form("txtsvr")

muid=Request.Form("txtuid")

mpwd=Request.Form("txtpwd")

mdb=Request.Form("txtdb")

mto=Request.Form("txtto")

if mpwd="" then mpwd="''"

on error resume next

set dmosvr=server.CreateObject("SQLDMO.SQLServer")

dmosvr.connect msvr,muid,mpwd

if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

mdevname="Backup_"&muid&"_"&mdb

set dmodev=server.CreateObject("SQLDMO.BackupDevice")

dmodev.name=mdevname

dmodev.type=2

dmodev.PhysicalLocation=mto

dmosvr.BackupDevices.Add dmodev

if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

set dmobak=server.CreateObject("SQLDMO.Backup")

dmobak.database=mdb

dmobak.devices=mdevname

%>

Backuping, wait please...

dmobak.sqlbackup dmosvr

if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

dmosvr.backupdevices(mdevname).remove

set dmobak=nothing

set dmodev=nothing

dmosvr.disconnect

set dmosvr=nothing

%>

Database '' backup successed!

文件3：BackupErr.asp

dim errno,errstr

errno=Request.QueryString("err")

errstr=""

select case cstr(errno)

case "18456"

errstr="administrators or password error!"

case "20482"

errstr="server name error or server cannot connect!"

case "911"

errstr="database not found!"

case "15026"

errstr="server path not found!"

case "3201"

errstr="server path not found!"

case "3254"

errstr="restore from file lawlessness!"

case else

errstr="unknown error! retry later please!"

end select

%>

方法二：

1、ASP中怎么实现SQL数据库备份、恢复！

答：asp在线备份sql server数据库：

1、备份

SQL="backup database 数据库名 to disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'"

set cnn=Server.createobject("adodb.connection")

cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd="

cnn.execute SQL

on error resume next

if err<>0 then

response.write "错误："&err.Descripting

else

response.write "数据备份成功！"

end if

%>

2、恢复

SQL="Restore database 数据库名 from disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'"

set cnn=Server.createobject("adodb.connection")

cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd="

cnn.execute SQL

on error resume next

if err<>0 then

response.write "错误："&err.Descripting

else

response.write "数据恢复成功！"

end if

%>