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