Tutorials to .com

Tutorials to .com » Asp » Database » ASP code to restore database

ASP code to restore database

Print View , by: iSee ,Total views: 22 ,Word Count: 995 ,Date: Mon, 25 May 2009 Time: 6:12 AM

Document 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>

Document 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>


ASP Database Related Articles


Can't Find What You're Looking For?


Rating: 0.0

Comments

No comments posted.