IDC资讯中心
文件4：restoredb.asp
<%@ 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("restore from is empty!")
frmbak.txtto.focus
exit sub
end if
frmbak.submit
end sub
–>
</script>
</head>
<form action="restoredbsave.asp" method="post" id=frmbak name=frmbak>
<body class="bg_frame_up">
<link rel="stylesheet" href="../../sheets/b2bstyle.css">
<p class=heading> database –> restore</p>
<p align=center>
<div align="center">
<center>
<table width="60%" height="71" 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">
<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">
<input id=txtuid name=txtuid 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">
<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">
<input id=txtdb name=txtdb style="font-family: arial; font-size: 9pt"></td>
</tr>
<tr>
<td class=td_mand_fn align="center" height="35" width="40%">restore
from:<br>
<u>(server path)</u></td>
<td class=td_mand_f height="35">
<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 restore" style="font-family: arial; font-size: 9pt"></p>
</body>
</form>
</html>
文件5：restoredbsave.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="restore_"&muid&"_"&mdb
dmosvr.backupdevices(mdevname).remove
err.clear
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 dmores=server.createobject("sqldmo.restore")
dmores.database=mdb
dmores.devices=mdevname
%>
<html>
<head>
<meta name="generator" content="microsoft visual studio 6.0">
</head>
<body class="bg_frame_up">
<p><strong>restoring, wait please…</strong></p>
<%
dmores.sqlrestore dmosvr
if err.number>0 then response.redirect("http:backuperr.asp?err="&err.number)
set dmores=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing
%>
<p><strong>database <%=mdb%> restore successed!</strong></p>
</body>
</html>
