ASP - Using ASP database backupASP,database | Programing Reference For .Net,Java,C

Using ASP database backup

Document 1: BackupDB.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 ( " '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>

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

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

Bookmark it: These icons link to social bookmarking sites where readers can share and discover new web pages.