<%@ language=vbscript %>
<html>
<head>
<meta name=vi60_defaultclientscript content=vbscript>
<meta name="generator" content="microsoft frontpage 4.0">
<script id=clienteventhandlersvbs language=vbscript>
<!--
sub btnbak_onclick
if frmbak.txtsvr.value="" then
window.alert("server name is empty!")
frmbak.txtsvr.focus
exit sub
end if
if frmbak.txtuid.value="" then
window.alert("administrators is empty!")
frmbak.txtuid.focus
exit sub
end if
if frmbak.txtdb.value="" then
window.alert("database is empty!")
frmbak.txtdb.focus
exit sub
end if
if frmbak.txtto.value="" then
window.alert("backup to is empty!")
frmbak.txtto.focus
exit sub
end if
frmbak.submit
end sub
-->
</script>
<link rel="stylesheet" href="../../sheets/b2bstyle.css">
</head>
<form action="backupdbsave.asp" method="post" id=frmbak name=frmbak>
<body class="bg_frame_up">
<p class=heading> database --> backup</p>
<p align=center>
<div align="center">
<center>
<table width="60%" cellpadding=1 cellspacing=1 border=0 align=center>
<tr>
<td class=td_mand_fn align="center" height="35" width="40%">server name:</td>
<td class=td_mand_f height="35" width="59%">
<input id=txtsvr name=txtsvr size="20" style="font-family: arial; font-size: 9pt"></td>
</tr>
<tr>
<td class=td_mand_fn align="center" height="35" width="40%">administrators:</td>
<td class=td_mand_f height="35" width="59%">
<input id=txtuid name=txtuid size="20" style="font-family: arial; font-size: 9pt"></td>
</tr>
<tr>
<td class=td_mand_fn align="center" height="35" width="40%">password:</td>
<td class=td_mand_f height="35" width="59%">
<input id=txtpwd name=txtpwd type=password style="font-family: arial; font-size: 9pt"></td>
</tr>
<tr>
<td class=td_mand_fn align="center" height="35" width="40%">database:</td>
<td class=td_mand_f height="35" width="59%">
<p align="left">
<input id=txtdb name=txtdb size="20" style="font-family: arial; font-size: 9pt"></p>
</td>
</tr>
<td class=td_mand_fn align="center" height="35" width="40%">backup to:<br>
<u>(server path)</u></td>
<td class=td_mand_f height="35" width="59%">
<input id=txtto name=txtto style="font-family: arial; font-size: 9pt"></td>
</tr>
</table>
</center> </div>
<p align=center><input id=btnbak name=btnbak type=button value="start backup" style="font-family: arial; font-size: 9pt"></p>
</body>
</form>
</html>
文件2：backupdbsave.asp
<%@ language=vbscript %>
<%
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.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：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>
<!--
sub btnret_onclick
history.back
end sub
-->
</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>
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
