<body>
<Formmethode = post name = myForm>
<%If action = wiederherstellen, dann%> <Eingabetyp = HIDDEN NAME = Action Value = Wiederherstellung> Bereiten Sie sich auf die Wiederherstellung der Datenbank vor. Wesen Wesen
<%Elseif action = backup, dann%> <Eingabetyp = HIDDEN NAME = Action Value = Backup> Erstellen Sie eine Sicherungsdatenbank. Wesen Wesen <%Sonst%>
Operation auswählen:
<Eingabe type = radio name = die action id = act_backup value = backup> <label für = act_backup> backup </label>
<Eingabe type = radio name = die action id = act_restore value = restore> <label für = act_restore> resoce </label> <%Ende if%>
<br> Datenbankname: <Eingabe type = Textname = Datenbankname value = 50Forum>
<br> Dateiweg
<Eingabe type = value = OK>
</form>
<%
Die Sicherung und Wiederherstellung von SQL Server -Datenbank!
'http://www.tfxy.com
Dim SQLServer, SQLName, SQLPassword, SQLlogintimeout, Datenbankname, Bak_file, ACT, ACT
SQLServer = Localhost 'SQL Server
SQLNAME = SA 'Benutzername
SQLPassword = SA 'Passwort
sqllogintimeout = 15 'Klumpenzeitüberschreitung
DatabaseName = TRIM (Request (Datenbankname))
bak_file = trim (request (bak_file))
bak_file = server.mappath (backup/& bak_file)
ACT = Lase (Anfrage (Aktion))
Wenn Datenbankname = dann
response.write input database name
anders
if act = backup then
Setzen Sie srv = server.createObject (SQLDMO.SQLSERVER)
srv.logintimeout = sqllogintimeout
Srv.Connect SQLServer, SQLName, SQLPassword
Setzen Sie bak = server.createObject (SQLDMO.Backup)
bak.database = Datenbankname
Bak.Devices = Dateien
bak.files = bak_file
Bak.Action = 0
bak.Initialize = 1
'Bak.replacedatabase = true
bak.sqlbackup srv
wenn err.number> 0 dann
response.write err.number & <font color = rot> <br>
Response.write ericr.descripting & </font>
Ende wenn
Antwort.Write <font color = green> backup ist erfolgreich!
srv.disconnect
Setzen Sie srv = nichts
Bak einstellen = nichts
elseif act = wiederherstellen
„Wenn Sie die Wiederherstellung verwenden, verwenden Sie die Datenbank nicht!
Setzen Sie srv = server.createObject (SQLDMO.SQLSERVER)
srv.logintimeout = sqllogintimeout
Srv.Connect SQLServer, SQLName, SQLPassword
Setzen Sie rest = server.createObject (SQLDMO.Restore)
Rest.action = 0 'Volldeutsche Wiederherstellung
rest.database = DatabaseName
Rest.Devices = Dateien
rest.Files = bak_file
rest.ReplaceDatabase = True 'Force restore over existing database
if err.number>0 then
response.write err.number&<font color=red><br>
Response.write ericr.descripting & </font>
Ende wenn
rest.sqlrestore srv
Response.write <font color=green>恢复成功!</font>
srv.disconnect
Setzen Sie srv = nichts
REST SET = Nichts
anders
Response.write <font color = rot> Keine Auswahlbetrieb </font>
Ende wenn
Ende wenn
%>
</Body>
</Html>