通过web方式能对sqlserver 2000进行数据备份吗?

flylyke 2003-10-18 01:15:36
通过web方式能对sqlserver 2000进行数据备份吗?

在页面中点击一个“备份”按钮,实现对制定数据库的数据备份
...全文
41 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
chinahuman 2003-10-19
  • 打赏
  • 举报
回复
备份的源码如下:
<%@ Language=VBScript %>
<%
if request.form("post")=1 then
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.write("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:sqlbk_err.asp?err="&err.number)

set dmobak=server.CreateObject("SQLDMO.Backup")
dmobak.database=mdb
dmobak.devices=mdevname
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<body>

<p align="center"><strong>开始备份数据库:<%=mdb%></strong></p>
<%
dmobak.sqlbackup dmosvr
if err.number>0 then Response.write("err="&err.number)

dmosvr.backupdevices(mdevname).remove
set dmobak=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing
%>
<p align="center"><strong>数据库: '<%=mdb%>' 备份成功!</strong></p>
</BODY>
</HTML>
<%response.end
end if%>
<TABLE>
<FORM METHOD=POST ACTION="">
<input type=hidden value="1" name="post">
<TR>
<TD>服务器地址:</TD>
<TD><INPUT TYPE="text" NAME="txtsvr"></TD>
</TR>
<TR>
<TD>用户名:</TD>
<TD><INPUT TYPE="text" NAME="txtuid"></TD>
</TR>
<TR>
<TD>密码:</TD>
<TD><INPUT TYPE="password" NAME="txtpwd"></TD>
</TR>
<TR>
<TD>数据库:</TD>
<TD><INPUT TYPE="text" NAME="txtdb"></TD>
</TR>
<TR>
<TD>备份文件存放地址:</TD>
<TD><INPUT TYPE="text" NAME="txtto"></TD>
</TR>
<TR>
<TD colspan=2 align=center><INPUT TYPE="submit" value="备份数据库"></TD>
</TR>

</FORM></TABLE>
zhouguoyao 2003-10-19
  • 打赏
  • 举报
回复
<%@ Language=VBScript %>
<%
if request.form("post")=1 then
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.write("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:sqlbk_err.asp?err="&err.number)

set dmobak=server.CreateObject("SQLDMO.Backup")
dmobak.database=mdb
dmobak.devices=mdevname
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<body>

<p align="center"><strong>开始备份数据库:<%=mdb%></strong></p>
<%
dmobak.sqlbackup dmosvr
if err.number>0 then Response.write("err="&err.number)

dmosvr.backupdevices(mdevname).remove
set dmobak=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing
%>
<p align="center"><strong>数据库: '<%=mdb%>' 备份成功!</strong></p>
</BODY>
</HTML>
<%response.end
end if%>
<TABLE>
<FORM METHOD=POST ACTION="">
<input type=hidden value="1" name="post">
<TR>
<TD>服务器地址:</TD>
<TD><INPUT TYPE="text" NAME="txtsvr"></TD>
</TR>
<TR>
<TD>用户名:</TD>
<TD><INPUT TYPE="text" NAME="txtuid"></TD>
</TR>
<TR>
<TD>密码:</TD>
<TD><INPUT TYPE="password" NAME="txtpwd"></TD>
</TR>
<TR>
<TD>数据库:</TD>
<TD><INPUT TYPE="text" NAME="txtdb"></TD>
</TR>
<TR>
<TD>备份文件存放地址:</TD>
<TD><INPUT TYPE="text" NAME="txtto"></TD>
</TR>
<TR>
<TD colspan=2 align=center><INPUT TYPE="submit" value="备份数据库"></TD>
</TR>

</FORM></TABLE>
makay 2003-10-19
  • 打赏
  • 举报
回复
gz
liuruhong 2003-10-18
  • 打赏
  • 举报
回复
看看sql server的联机帮助 backup database操作就知道了
ydr2002 2003-10-18
  • 打赏
  • 举报
回复
通过调用SQL SERVER的扩展存储过程,可以实现
longshenwang 2003-10-18
  • 打赏
  • 举报
回复
第一个顶.................UP

87,901

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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