文件: 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〉

文件：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〉