Les amis qui utilisent ASP peuvent utiliser le code suivant pour implémenter l'opération de sauvegarde et de restauration de la base de données mssql <form method=post name=myform action=?action=backupdatabase>
Sélectionnez l'action :
<input type=radio name=act id=act_backupvalue=backup>
<label for=act_backup>Sauvegarde</label>
<input type=radio name=act id=act_restore value=restore>
<label for=act_restore>Restaurer</label>
<br>
Nom de la base de données :
<input type=text name=databasename value=<%=request(databasename)%>>
<br>
Chemin du fichier :
<input type=text name=bak_file value=c:/$1.bak>
(Chemin du fichier pour la sauvegarde ou la restauration)<br>
<input type=submit value=OK id=submit1 name=submit1>
</form>
<%
'Sauvegarde et récupération de la base de données du serveur SQL !
si request(action)=backupdatabase alors
dim sqlserver,sqlname,sqlpassword,sqllogintimeout,databasename,bak_file,act
'************************************************ * ***********************
serveur SQL = 127.0.0.1
nomsql=sa
mot de passe sql = 111
sqlogintimeout = 15
nom de la base de données = trim (requête (nom de la base de données))
bak_file = trim(requête(bak_file))
bak_file = remplacer (bak_file, $1, nom de la base de données)
acte = lcase (demande (acte))
'************************************************ * ***********************
si nom de la base de données = alors
nom de la base de données d'entrée réponse.write
autre
si acte = sauvegarde alors
set srv=server.createobject(sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.connect serveursql, nomsql, mot de passe sql
set bak = serveur.createobject (sqldmo.backup)
bak.database=nom de la base de données
bak.devices=fichiers
bak.action = 0
bak.initialize = 1
'bak.replace = vrai
bak.files=bak_file
bak.sqlbackup srv
si numéro d'erreur>0 alors
réponse.write err.number&<font color=red><br>
réponse.écrire err.description&</font>
finir si
réponse.write <font color=green>Sauvegarde réussie !</font>
finir si
si act=restaurer alors
'La restauration doit être effectuée lorsque la base de données n'est pas utilisée !
set srv=server.createobject(sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.connect serveur sql, nom sql, mot de passe sql
set rest=server.createobject(sqldmo.restore)
rest.action=0 'restauration complète de la base de données
rest.database=nom de la base de données
rest.devices=fichiers
rest.files=bak_file
rest.replacedatabase=true 'forcer la restauration sur la base de données existante
si numéro d'erreur>0 alors
réponse.write err.number&<font color=red><br>
réponse.écrire err.description&</font>
finir si
rest.sqlrestore srv
réponse.write <font color=green>Restauré avec succès !</font>
autre
réponse.write <font color=red>Aucune opération sélectionnée</font>
finir si
finir si
finir si
%>