Die ASP-Online-Sicherung und -Wiederherstellung der SQL-Server-Datenbank ist eine vorübergehende Lösung für Freunde, die keine Remote-SQL-Server-Remoteverbindung oder keinen Paket-Download bereitstellen. Sie ist möglicherweise nicht effektiv für große Datenmengen. ASP-Online-Backup-SQL-Server-Datenbank:
1. Sichern Sie den SQL Server
Kopieren Sie den Codecode wie folgt:
<%
SQL=Datenbanknamen auf Festplatte sichern='&Server.MapPath(backup)&/&backuptext.dat&'
set cnn=Server.createobject(adodb.connection)
cnn.open drivers={SQL Server};Server=Servername;uid=sa;pwd=
cnn.execute SQL
Bei Fehler als nächstes fortfahren
wenn err<>0 dann
Response.wrITe Fehler:&err.Descripting
anders
Response.wrITe Datensicherung erfolgreich!
Ende wenn
%>
2. Stellen Sie den SQL Server wieder her
Kopieren Sie den Codecode wie folgt:
<%
SQL=Datenbank Datenbankname von Festplatte wiederherstellen='&Server.MapPath(backup)&/&backuptext.dat&'
set cnn=Server.createobject(adodb.connection)
cnn.open drivers={SQL Server};Server=Servername;uid=sa;pwd=
cnn.execute SQL
Bei Fehler als nächstes fortfahren
wenn err<>0 dann
Response.wrITe Fehler:&err.Descripting
anders
Response.wrITe Datenwiederherstellung erfolgreich!
Ende wenn
%>
Das ACCESS-Prinzip ist dasselbe
Kopieren Sie den Codecode wie folgt:
<%
'****************************************
Funktion CopyTo(ByVal cFile,ByVal toFile)
cFile=Server.MapPath(cFile) 'Die zu sichernde Datei
toFile=Server.MapPath(toFile) 'Sicherungsdatei
Dim cFso,vgl
set cFso=Server.CreateObject(Scripting.FileSystemObject)
cFso.fileexists(cFile)
cFso.Copyfile cFile,toFile
Endfunktion
'**************************************************
'ASP implementiert Sicherungs- und Wiederherstellungsoperationen für ACCESS-Datenbanken
„Diese Seite ist databackup.asp.“
dbpath,bkfolder,bkdbname,fso,fso1 dimmen
rufe main() auf
rufe main2() auf
Verbindung schließen
setze conn=nichts
sub main()
wenn request(action)=Backup dann
Rufen Sie backupdata() auf
anders
%>
<table cellspaced=1 cellpadding=1 align=center width=90%>
<tr>
<th height=25 >
<B>Datenbanksicherung</B>
</th>
</tr>
<form method=post action=databackup.asp?action=Backup>
<tr>
<td height=100 style=line-height:150%>
Aktueller Datenbankpfad (relativer Pfad):
<Eingabetyp=Textgröße=15 Name=DB-Pfadwert=../mdb/database.mdb><BR>
Verzeichnis der Sicherungsdatenbank (relativer Pfad):
<input type=text size=15 name=bkfolder value=../Databackup> Wenn das Verzeichnis nicht existiert, erstellt das Programm es automatisch<BR>
Name der Sicherungsdatenbank (Namen eingeben):
<input type=text size=15 name=bkDBname value=database.mdb> Wenn das Sicherungsverzeichnis dies hat
Die Datei wird überschrieben, wenn sie nicht existiert, wird sie automatisch erstellt<BR>
<input type=submIT value=Backup data><hr align=center width=90% color=#999999></td>
</tr>
</form>
</table>
<%
Ende wenn
Ende sub
sub main2()
if request(action)=Restore dann
Dbpath=request.form(Dbpath)
backpath=request.form(backpath)
wenn dbpath= dann
Response.wrITe Bitte geben Sie den vollständigen Namen der Datenbank ein, in der Sie wiederherstellen möchten
anders
Dbpath=server.mappath(Dbpath)
Ende wenn
backpath=server.mappath(backpath)
Response.wrITe Backpath
Setze Fso=server.createobject(scripting.filesystemobject)
wenn fso.fileexists(dbpath) dann
fso.copyfile Dbpath,Backpath
Response.wrITe <font color=red>Daten erfolgreich wiederhergestellt! </font>
anders
Response.wrITe <font color=red>Es gibt keine Backup-Datei für Sie im Backup-Verzeichnis! </font>
Ende wenn
anders
%>
<table align=center cellspaced=1 cellpadding=1 width=90%>
<tr>
<th height=25 >
<B>Datenbank wiederherstellen</B>
</th>
</tr>
<form method=post action=databackup.asp?action=Restore>
<tr>
<td height=100>
Pfad der Sicherungsdatenbank (relativ):
<input type=text size=30 name=DBpath value=../Databackup/database.mdb> <BR>
Aktueller Datenbankpfad (relativ):
<Eingabetyp=Textgröße=30 Name=Rückpfadwert=../mdb/database.mdb><BR>
<Eingabetyp=submIT-Wert=Daten wiederherstellen> <hr width=90% align=center color=#999999>
<font color=#666666>·Hinweis: Alle Pfade sind relative Pfade</font></td>
</tr>
</form>
</table>
<%
Ende wenn
Ende sub
sub-backupdata()
Dbpath=request.form(Dbpath)
Dbpath=server.mappath(Dbpath)
bkfolder=request.form(bkfolder)
bkdbname=request.form(bkdbname)
Setze Fso=server.createobject(scripting.filesystemobject)
wenn fso.fileexists(dbpath) dann
Wenn CheckDir(bkfolder) = True, dann
fso.copyfile dbpath,bkfolder& //& bkdbname
anders
MakeNewsDir BK-Ordner
fso.copyfile dbpath,bkfolder& //& bkdbname
Ende wenn
Response.wrITe <font color=red>Die Datenbanksicherung war erfolgreich. Der von Ihnen gesicherte Datenbankpfad ist &bkfolder& //& bkdbname+</font>
Anders
Response.wrITe <font color=red>Die Datei, die Sie sichern müssen, wurde nicht gefunden. </font>
Ende wenn
Ende sub
'-----------------Überprüfen Sie, ob ein bestimmtes Verzeichnis existiert------------------
Funktion CheckDir(FolderPath)
Ordnerpfad=Server.MapPath(.)&//&Ordnerpfad
Setze fso1 = CreateObject(Scripting.FileSystemObject)
Wenn fso1.FolderExists(FolderPath), dann
'existieren
CheckDir = True
Anders
'existiert nicht
CheckDir = False
Ende wenn
Setze fso1 = nichts
Funktion beenden
'-------------Verzeichnis basierend auf dem angegebenen Namen erstellen---------
Funktion MakeNewsDir(Ordnername)
schwach f
Setze fso1 = CreateObject(Scripting.FileSystemObject)
Setze f = fso1.CreateFolder(Ordnername)
MakeNewsDir = True
Setze fso1 = nichts
Funktion beenden
%>