Sichern und Wiederherstellen der SQL Server-Datenbank mit Asp

Autor：Eve Cole Aktualisierungszeit：2009-06-23 16:38:17

51windows (Originalwerk)

ist ein Beispielcode zum Sichern und Wiederherstellen einer SQL Server-Datenbank mit asp. Ich hoffe, dass er für einige Freunde nützlich sein wird. (Hinweis: Die Datenbank kann während der Verwendung möglicherweise nicht wiederhergestellt werden)

<HTML> <HEAD> <TITLE>Sicherung und Wiederherstellung der SQL Server-Datenbank</TITLE> <meta http-equiv="Content-Type" content="text/html; charset= gb2312"> </HEAD> <BODY> <form method="post" name=myform> Vorgang auswählen: <INPUT TYPE="radio" NAME="act" id="act_backup" value="backup">< label for =act_backup>Backup</label> <INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>Restore</label> <br>Datenbankname: <INPUT TYPE="text" NAME="databasename" value="<%=request("databasename")%>"> <br>Dateipfad: <INPUT TYPE="text" NAME="bak_file" value="c : $1.bak">(Pfad der Sicherungs- oder Wiederherstellungsdatei)<br> <input type="submit" value="OK"> </form> <% 'Sicherung und Wiederherstellung der SQL Server-Datenbank! 'Haiwa'http: / /www.51windows.Net dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act sqlserver = "localhost" 'sql server sqlname = "sa" 'Benutzername sqlpassword = "sa" 'Passwort sqlLoginTimeout = 15 'Login-Timeout Datenbankname = trim(request("databasename")) bak_file = trim(request("bak_file")) bak_file = replacement(bak_file,"$1",databasename) act = lcase(request("act")) if Databasename = "" then Antwort .write "Eingabedatenbankname", sonst wenn act = "backup", dann Set srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Set bak = Server.CreateObject( "SQLDMO .Backup") bak.Database=Datenbankname bak.Devices=Dateien bak.Files=bak_file bak.SQLBackup srv if err.number>0 then Response.write err.number&"<font color=red><br>" Antwort .write err.description&"</font>" end if Response.write "<font color=green>Backup erfolgreich!</font>" elseif act = "restore" then 'Die Wiederherstellung sollte durchgeführt werden, wenn die Datenbank nicht verwendet wird! Set srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Set rest=Server.CreateObject("SQLDMO.Restore") rest.Action=0 ' vollständige Datenbankwiederherstellung rest. Database=Datenbankname rest.Devices=Dateien rest.Files=bak_file rest.ReplaceDatabase=True 'Wiederherstellung über vorhandene Datenbank erzwingen, wenn err.number>0, dann Antwort.write err.number&"<font color=red><br>" Antwort. write err.description&"</font>" end if rest.SQLRestore srv Response.write "<font color=green>Erfolgreich wiederhergestellt!</font>" else Response.write "<font color=red>Kein Vorgang ausgewählt</ Schriftart color=red> Schriftart>" end if end if %> </BODY> </HTML>