数据库备份问题？？？

jueduiweiyi 2003-11-06 08:44:58

代码是我从网上下载下来的，但是我有很多地方不明白的，还请大家指点一下：
backup.asp
***************************
<%
dim msvr,muid,mpwd,mdb,mto
msvr=Request.Form("servername")
muid=Request.Form("Administrators")
mpwd=Request.Form("Password")
mdb=Request.Form("Database")
mto=Request.Form("Backup To")
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
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<body background="../../Images/dot.gif">

<p><strong>Backuping, wait please...</strong></p>
<%
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
%>
<p><strong>Database "<%=mdb%>" backup successed!</strong></p>
</BODY>
</HTML>
它总共提供了3个页面给我，有个页面是静态的，也就是上面代码那个得到数据的静态页面，还有一个是错误显示页面。
我看了一下上面的代码，有些不理解，比如，我的这个数据库可以是任意位置的吗，大小有没有限制了，好像它只能备份SQL数据库，备份access的，怎么样实现了？

...全文

33 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

jueduiweiyi 2003-11-06

打赏
举报

那SQL呢？？？

zykj_2000 2003-11-06

打赏
举报

access直接用FSO拷贝一个不就OK了

jueduiweiyi 2003-11-06

打赏
举报

我把另外两页代码页帖出来：
backupindex.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据备份</title>
<style type="text/css">

</style>
</head>

<body>
<form action="backup.asp" method="post" name="form">
<table width="484" height="155" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center" valign="middle">
<td width="84">servername</td>
<td width="400"><input name="servername" type="text" id="servername"></td>
</tr>
<tr align="center" valign="middle">
<td>Administrators</td>
<td><input type="text" name="administrator"></td>
</tr>
<tr align="center" valign="middle">
<td>Password</td>
<td><input name="Password" type="password" id="Password"></td>
</tr>
<tr align="center" valign="middle">
<td>Database</td>
<td><input type="file" name="Database" style="width:400" class="tx1" value=""> </td>
</tr>
<tr align="center" valign="middle">
<td>Backup To</td>
<td><input type="text" name="Backup To" style="width:400" class="tx1" value=""></td>
</tr>
<tr align="center">
<td colspan="2"><input name="submit" type="submit" class="border1" value="开始备份"></td>
</tr>
</table>
</form>
</body>
</html>
******************************************
backuperr.asp

<%@ Language=VBScript %>
<%
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
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>

</SCRIPT>
<title></title>
</HEAD>
<body class="bg_frame_up">
<p align=center><font color=#006666><%=errstr%></font></p>
<p align=center><input id=btnret name=btnret type=button value=Return style="font-family: Arial; font-size: 9pt"></p>
</BODY>
</HTML>

junsunchen 2003-11-06