在ASP后台管理中实现SQL数据库的备份和还原

20003lover 2005-04-20 08:42:52
小弟做了一个ASP的系统,后台管理的数据库备份与还原不知道怎样写代码
有那位高手提供一下
...全文
166 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
whishthush 2005-05-18
  • 打赏
  • 举报
回复
恩。是可以的,又很多这样的购物网站后台都实现了这个功能。
tigerhu76 2005-05-18
  • 打赏
  • 举报
回复
mark
youhao 2005-05-18
  • 打赏
  • 举报
回复
恢复参考:
<% response.expires=-1 %>
<HTML>
<HEAD>
<TITLE>数据恢复...</TITLE>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<link type="text/css" rel="stylesheet" href="../style.css">
<script language="javascript">
function lk(){
var a="success"
window.returnValue=a
window.close()
}
</script>
</HEAD>
<body bgcolor="#D4D0C8" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" scroll="no" style="border:none" onselectstart="return false" onContextMenu="return false">
<!--#include file="../inc/db.asp"-->
<!--#include file="bakpath.asp"-->
<% on error resume next
If Session("sbmc")<>"" then
sbmc=Session("sbmc")
end if

bfkzm=".bak"
hffile=bfpath&sbmc&bfkzm

dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file
'sip = "localhost" 'sql服务器
'uid = "sa" '用户名
'pwd = "123456789" '密码
sqlLoginTimeout = 15 '登陆超时
databasename = "test" '数据库名
bak_file = hffile

Set srv=Server.CreateObject("SQLDMO.SQLServer")
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sip,uid, pwd
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
rest.SQLRestore srv

if err.number<>0 then
errn=err.number
errd=err.description %>
<script language="javascript">
alert('数据恢复失败!\n<%=errn%>\n<%=errd%>');
window.close();
</script>
<% else %>

<script language="javascript">
alert('恭喜:\n数据恢复成功!');
lk();
</script>
<%
end if
Set rest=Nothing
Set srv=Nothing
Session("sbmc")="" %>
</body>
</html>

youhao 2005-05-18
  • 打赏
  • 举报
回复
备份参考:
<% response.expires=-1 %>
<HTML>
<HEAD>
<TITLE>数据备份...</TITLE>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<link type="text/css" rel="stylesheet" href="../style.css">
<script language="javascript">
function lk(){
var a="success"
window.returnValue=a
window.close()
}
</script>
</HEAD>
<body bgcolor="#D4D0C8" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" scroll="no" style="border:none" onselectstart="return false" onContextMenu="return false">
<!--#include file="../inc/bakconn.asp"-->
<!--#include file="../inc/db.asp"-->
<!--#include file="bakpath.asp"-->
<% n=year(date)
y=month(date)
if len(y)-1=0 then
y="0"&y
end if
r=day(date)
if len(r)-1=0 then
r="0"&r
end if
str1=n&y&r
sql="Select bakname from databak where bakname like '"&str1&"%'"
Set rs=Server.CreateObject("Adodb.Recordset")
rs.open sql,conn,3,2
If Not rs.eof then
i=rs.recordcount
str2=i+1
if len(str2)-1=0 then
str2="0"&str2
end if
else
str2="01"
end if
rs.close
Set rs=Nothing
'bfpath="f:\data_bak\"
bfsjmc=str1&str2
bfkzm=".bak"
bffile=bfpath&bfsjmc&bfkzm

dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file
'sip = "localhost" 'sql服务器
'uid = "sa" '用户名
'pwd = "123456789" '密码
sqlLoginTimeout = 15 '登陆超时
databasename = "test" '数据库名
bak_file = bffile

Set srv=Server.CreateObject("SQLDMO.SQLServer")
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sip,uid, pwd
Set bak = Server.CreateObject("SQLDMO.Backup")
bak.Database=databasename
bak.Devices=Files
bak.Files=bak_file
bak.SQLBackup srv
if err.number>0 then
errn=err.number
errd=err.description %>
<script language="javascript">
alert('备份数据失败!\n<%=errn%>\n<%=errd%>');
window.close();
</script>
<% else
conn.execute("Insert into databak(bakname) VALUES ('"&bfsjmc&"')") %>

<script language="javascript">
alert('数据备份成功!');
lk();
</script>
<%
end if
Set bak=Nothing
Set srv=Nothing
conn.close
Set conn=Nothing %>
</body>
</html>

sfply 2005-04-21
  • 打赏
  • 举报
回复
找到方法了
http://dev.csdn.net/article/62/article/67/article/67/67846.shtm
lshuy2001 2005-04-21
  • 打赏
  • 举报
回复
最好不要这么干,风险太大!
还是你自己看着恢复吧,不是一个简单的复制概念!
sunshift 2005-04-21
  • 打赏
  • 举报
回复
用SQL存储过程可以;
http://community.csdn.net/Expert/topic/3782/3782815.xml?temp=.4968683


---------------------------- 原创SQL备份数据库 ----------------------------
-- FileName SQL_Backup.sql
-- Power by Love_Computer...
-- Email: love_computer@163.com
-- Date: 2005-02-06
-- http://www.cnwlw.com

DECLARE @DataBase Nvarchar(100)
DECLARE @DataPath Nvarchar(100)
DECLARE @FileName Nvarchar(100)
DECLARE @BackupFileName Nvarchar(100)
DECLARE @DataDescription Nvarchar(200)
DECLARE @DataMediaName Nvarchar(50)
DECLARE @DataMediaDescription Nvarchar(200)
DECLARE @OkInfo Nvarchar(300)

SET @DataBase = 'cnwlw' -----数据库
SET @DataPath = 'D:\' -----路径
SET @FileName = 'SQL_Backup' -----文件名
SET @BackupFileName = @DataPath + @FileName
SET @BackupFileName = @DataPath + 'SQL_' + -----实时备份自动产生文件名,格式[SQL_20050206_16_28]
RTRIM(CONVERT(CHAR(10),GETDATE(),112)) + '_' +
RTRIM(DATEPART(HOUR,GETDATE())) + '_' +
LTRIM(DATEPART(MINUTE,GETDATE()))
SET @DataDescription = 'SQL语句产生的备份,备份时间:' + CONVERT(CHAR(19),GETDATE(),121) --描述
SET @DataMediaName = 'Love_Computer Backup' ---媒体
SET @DataMediaDescription = 'Power by Love_Computer... Email: love_computer@163.com' --媒体描述
SET @OkInfo = '数据库 ' + @DataBase + ' 成功备份至 ' + @BackupFileName

-----希望大家告诉我其中的错误 谢谢!!!-----
-----Email: love_computer@163.com -----------

BACKUP DATABASE @DataBase TO DISK = @BackupFileName
WITH NOINIT , NOUNLOAD , NOSKIP , STATS = 10 , NOFORMAT ,
NAME = @DataBase , DESCRIPTION = @DataDescription ,
MEDIANAME = @DataMediaName , MEDIADESCRIPTION = @DataMediaDescription

PRINT @OkInfo
------------------- End ---------------------
sharing 2005-04-20
  • 打赏
  • 举报
回复
收了
  • 打赏
  • 举报
回复
SQLDMO.Backup,这个是asp的一种常用方法的

在wrox的asp高级编程中有写,大家可以看看的
showfray 2005-04-20
  • 打赏
  • 举报
回复
<body bgcolor="#D4D0C8">

<form method="post" name="myform" action="?action=backupdatabase">
 <p>    选择操作:<INPUT TYPE="radio" NAME="act" id="act_backup"value="backup"><label for=act_backup>备份</label>
<INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>恢复</label>
<br>
<br>    数据库名:<INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>">
<br>
<br>    文件路径:<INPUT TYPE="text" NAME="bak_file" value="c:\$1.bak">(备份或恢复的文件路径)<br>
<br>
             
<input type="submit" value="确定" id=submit1 name=submit1>
</p>
</form>
<%
'SQL Server 数据库的备份与恢复!
if request("action")="backupdatabase" Then
dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act
sqlserver = "localhost"
sqlname = "sa" '***** 这里要改为你的服务器的设置
sqlpassword =""
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.Action = 0
bak.Initialize = 1
'bak.Replace = True
bak.Files=bak_file
bak.SQLBackup srv
if err.number>0 then
response.write err.number&"<font color=red><br>"
response.write err.description&"</font>"
end if
Response.write "<font color=green>备份成功!</font>"
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&"<font color=red><br>"
response.write err.description&"</font>"
end if
rest.SQLRestore srv
Response.write "<font color=green>恢复成功!</font>"
else
Response.write "<font color=red>没有选择操作</font>"
end if
end if
end if
%>
jzywh 2005-04-20
  • 打赏
  • 举报
回复
把这个

D:\Microsoft SQL Server\MSSQL\Data

设成 web 目录 再fso
sfply 2005-04-20
  • 打赏
  • 举报
回复
ACCESS就简单了FSO
SQLSERVER就算了吧,没可能的

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧