Dim objSQLServer
Dim objRestore
Set objSQLServer = Server.CreateObject("SQLDMO.SQLServer")
objSQLServer.Connect dbserver,dbuser,dbpass
Set objRestore = Server.CreateObject("SQLDMO.Restore")
objRestore.Database = dbdatabase
objRestore.Files = dbpath + dbfile
On Error Resume Next
objRestore.SQLRestore(objSQLServer)
if Err<>0 then
strErr = Err.Description
response.write "<br><br><div align=center>"&strErr&"</div><br><br>"
else
response.write "<br><br><div align=center>数据库恢复成功!</div><br><br>"
end if
Dim objSQLServer
Dim objBackup
Set objSQLServer = Server.CreateObject("SQLDMO.SQLServer")
objSQLServer.Connect [dbserver],[dbuser],[dbpass]
Set objBackup = Server.CreateObject("SQLDMO.Backup")
objBackup.Database = [dbdatabase]
objBackup.Files = [dbpath] + [dbfile]
objBackup.MediaDescription = "Back of feeling"
On Error Resume Next
objBackup.SQLBackup(objSQLServer)
if Err<>0 then
strErr = Err.Description
response.write "<br><br><div align=center>"&strErr&"</div><br><br>"
else
response.write "<br><br><div align=center>数据库备份成功!请勿重复备份!</div><br><br>"
end if
查询分析器执行(以news为例子):
CREATE procedure BackupDatabase (@device varchar(1)) WITH ENCRYPTION
as
begin
--压缩数据库
DBCC shrinkdatabase (news, 0)
--
DECLARE @filename varchar(100)
set @filename=@device + ':\news.bak'
--删除旧的文件
if EXISTS(select * from master.dbo.[sysdevices] where name='news_backup')
begin
EXEC sp_dropdevice 'news_backup','DELFILE'
end
--建立新的备份文件
EXEC sp_addumpdevice 'disk', 'news_backup',@filename
--开始备份
BACKUP DATABASE news TO news_backup WITH init
end
GO
给你代码。记住,测试成功给满分,否则一分不要。
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
%>
sql = "backup database CallCenter to disk='backuptext111.dat'"'备份
sql = "RESTORE database CallCenter from disk='backuptext111.dat'"'回复
set cnn=server.CreateObject ("adodb.connection")
cnn.Open "provider=sqloledb.1;data source=zsh;Uid=sa;Pwd="
cnn.Execute sql
列:保存到“c:\back"
sql = "backup database CallCenter to disk='c:\back.dat'"
set cnn=server.CreateObject ("adodb.connection")
cnn.Open "provider=sqloledb.1;data source=zsh;Uid=sa;Pwd="'这里用的是我的数据库连接,你用时写自己的。
cnn.Execute sql
备份数据库,并创建数据库的复本
BACKUP DATABASE CallCenter
TO DISK = 'c:\CallCenter.bak'
RESTORE FILELISTONLY
FROM DISK = 'c:\CallCenter.bak'
RESTORE DATABASE TestDB1
FROM DISK = 'c:\CallCenter.bak'
WITH MOVE 'CallCenter_Data' TO 'c:\test\CallCenter_Data.mdf',
MOVE 'CallCenter_log' TO 'c:\test\CallCenter_log.ldf'