<body>
<Formulaire méthode = post name = myform>
<% Si Action = Restore alors%> <Type de saisie = Nom caché = Action Value = Restore> Préparez-vous à restaurer la base de données. Essence Essence
<% Elseif Action = Backup alors%> <Type de saisie = Nom caché = Action Value = Backup> Préparez une base de données de sauvegarde. Essence Essence <% Else%>
Sélectionnez l'opération:
<Input type = radio name = the Action id = act_backup value = backup> <étiquette pour = act_backup> sauvegarde </ label>
<Input type = radio name = the Action id = act_restore value = restore> <étiquette pour = act_restore> recouvre </ labe> <% end if%>
<br> Nom de la base de données: <Type d'entrée = Nom de texte = Databasename Value = 50Forum>
<br> Chemin de fichier: <entrée type = Nom de texte = BAK_FILE VALEUR = 50FORUM.BAK> (Chemin de fichier de sauvegarde ou de récupération) <br>
<Type d'entrée = soumettre Value = OK>
</ form>
<%
'SQL Server Database Sauvegarde et récupération!
'http://www.tfxy.com
DIM SQLSERVER, SQLNAME, SQLPASSWORD, SQLLOGINTIMEOUT, DATABASENAME, BAK_FILE, ACT, ACT
SQLServer = SQL Server de LocalHost
Nom d'utilisateur sqlname = sa '
mot de passe sqlpassword = sa '
sqllogintimeout = 15 'délai d'expiration
databasename = trim (request (databasename))
BAK_FILE = TRIM (demande (BAK_FILE))
bak_file = server.mappath (Backup / & bak_file)
Acte = lCase (demande (action))
Si databasename = alors
Nom de la base de données d'entrée de réponse.
autre
Si l'action = sauvegarde alors
SET SRV = Server.CreateObject (SQLDMO.SQLSERVER)
srv.logintimeout = sqllogintimeout
srv.connect sqlserver, sqlname, sqlpassword
Set bak = server.createObject (sqldmo.backup)
bak.database = databasename
bak.devices = fichiers
bak.files = bak_file
Bak.action = 0
bak.Initialize = 1
'Bak.replaceDatabase = true
bak.sqlbackup srv
Si err.number> 0 alors
réponse.write err.number & <font color = red> <br>
Response.Write Ericr.Descripting & </font>
terminer si
Response.Write <Font Color = Green> Backup réussit! </font>
srv.disconnect
Définir srv = rien
Set Bak = rien
elseif acte = restaurer alors
«Lorsque la récupération, n'utilisez pas la base de données!
SET SRV = Server.CreateObject (SQLDMO.SQLSERVER)
srv.logintimeout = sqllogintimeout
srv.connect sqlserver, sqlname, sqlpassword
Set rest = server.createObject (sqldmo.Restore)
Rest.action = 0 'restauration de base de données complète
rest.database = databasename
Rest.devices = fichiers
Rest.files = bak_file
Rest.ReplaceDatabase = True 'Force Restore sur la base de données existante
Si err.number> 0 alors
réponse.write err.number & <font color = red> <br>
Response.Write Ericr.Descripting & </font>
terminer si
rest.sqlrestore srv
Response.Write <Font Color = Green> Restore!
srv.disconnect
Définir srv = rien
Set rest = rien
autre
Response.Write <Font Color = Red> Pas de choix Opération </font>
terminer si
terminer si
%>
</docy>
</html>