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

通过调用SQL SERVER的扩展存储过程，可以实现

解决方案 »

  1.   

    看看sql server的联机帮助 backup database操作就知道了
      

  2.   

    备份的源码如下：
    <%@ 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,mpwdif 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 dmodevif 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>
      

  3.   

    <%@ 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,mpwdif 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 dmodevif 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>