Freunde, die ASP verwenden, können den folgenden Code verwenden, um den Sicherungs- und Wiederherstellungsvorgang der MSSQL-Datenbank <form method=post name=myform action=?action=backupdatabase> zu implementieren
Aktion auswählen:
<input type=radio name=act id=act_backupvalue=backup>
<label for=act_backup>Sicherung</label>
<input type=radio name=act id=act_restore value=restore>
<label for=act_restore>Wiederherstellen</label>
<br>
Datenbankname:
<Eingabetyp=Textname=Datenbankname-Wert=<%=Anfrage(Datenbankname)%>>
<br>
Dateipfad:
<Eingabetyp=Textname=bak_file value=c:/$1.bak>
(Dateipfad für Sicherung oder Wiederherstellung)<br>
<Eingabetyp=Submit-Wert=OK id=Submit1 Name=Submit1>
</form>
<%
„Sicherung und Wiederherstellung der SQL-Server-Datenbank!“
wenn request(action)=backupdatabase dann
dim sqlserver,sqlname,sqlpassword,sqllogintimeout,databasename,bak_file,act
'************************************************** * **************************
sqlserver=127.0.0.1
sqlname=sa
sqlpassword =111
sqllogintimeout=15
Datenbankname = trim(request(databasename))
bak_file = trim(request(bak_file))
bak_file = replace(bak_file,$1,databasename)
act = lcase(request(act))
'************************************************** * **************************
wenn Datenbankname = dann
„response.write“-Eingabedatenbankname
anders
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.action = 0
bak.initialize = 1
'bak.replace = true
bak.files=bak_file
bak.sqlbackup srv
Wenn Fehlernummer > 0, dann
Response.write err.number&<font color=red><br>
Response.write err.description&</font>
Ende wenn
Response.write <font color=green>Sicherung erfolgreich!</font>
Ende wenn
wenn act=restore dann
„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 der vorhandenen Datenbank erzwingen
Wenn Fehlernummer > 0, dann
Response.write err.number&<font color=red><br>
Response.write err.description&</font>
Ende wenn
rest.sqlrestore srv
Response.write <font color=green>Erfolgreich wiederhergestellt!</font>
anders
Response.write <font color=red>Kein Vorgang ausgewählt</font>
Ende wenn
Ende wenn
Ende wenn
%>