通过web方式能对sqlserver 2000进行数据备份吗? 通过调用SQL SERVER的扩展存储过程,可以实现 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 看看sql server的联机帮助 backup database操作就知道了 备份的源码如下:<%@ Language=VBScript %><%if request.form("post")=1 thendim msvr,muid,mpwd,mdb,mtomsvr=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 nextset dmosvr=server.CreateObject("SQLDMO.SQLServer")dmosvr.connect msvr,muid,mpwdif err.number>0 then Response.write("err="&err.number)mdevname="Backup_"&muid&"_"&mdbset dmodev=server.CreateObject("SQLDMO.BackupDevice")dmodev.name=mdevnamedmodev.type=2dmodev.PhysicalLocation=mtodmosvr.BackupDevices.Add dmodevif err.number>0 then Response.Redirect("http:sqlbk_err.asp?err="&err.number)set dmobak=server.CreateObject("SQLDMO.Backup")dmobak.database=mdbdmobak.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 dmosvrif err.number>0 then Response.write("err="&err.number)dmosvr.backupdevices(mdevname).removeset dmobak=nothingset dmodev=nothingdmosvr.disconnectset 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> <%@ Language=VBScript %><%if request.form("post")=1 thendim msvr,muid,mpwd,mdb,mtomsvr=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 nextset dmosvr=server.CreateObject("SQLDMO.SQLServer")dmosvr.connect msvr,muid,mpwdif err.number>0 then Response.write("err="&err.number)mdevname="Backup_"&muid&"_"&mdbset dmodev=server.CreateObject("SQLDMO.BackupDevice")dmodev.name=mdevnamedmodev.type=2dmodev.PhysicalLocation=mtodmosvr.BackupDevices.Add dmodevif err.number>0 then Response.Redirect("http:sqlbk_err.asp?err="&err.number)set dmobak=server.CreateObject("SQLDMO.Backup")dmobak.database=mdbdmobak.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 dmosvrif err.number>0 then Response.write("err="&err.number)dmosvr.backupdevices(mdevname).removeset dmobak=nothingset dmodev=nothingdmosvr.disconnectset 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> [求教]jqplot 画柱图时大幅偏离原有位置 jquery取值修改值 JS跨页传值问题, 上传图片 并且可以缩放 可以裁减,用什么jquery插件 一个简单的调用javascript函数问题 再来一道题 一个网页互动问题 图片点一下,换一张图片,再点一下又换回来,自己写了一个,觉得不好 iframe问题? 提交表单时,判断某个按钮是否按下。 点击按钮如何进入指定页面? 颜色可不可以用十进制表示?
<%@ 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>
<%
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>