Sauvegarder et restaurer la base de données SQL Server avec Asp

Auteur：Eve Cole Date de mise à jour：2009-06-23 16:38:17

51windows (œuvre originale)

est un exemple de code pour sauvegarder et restaurer une base de données SQL Server à l'aide d'asp. J'espère qu'il sera utile à certains amis. (Remarque : la base de données ne peut pas être restaurée pendant l'utilisation)

<HTML> <HEAD> <TITLE>Sauvegarde et récupération de la base de données SQL Server</TITLE> <meta http-equiv="Content-Type" content="text/html; charset= gb2312"> </HEAD> <BODY> <form method="post" name=myform> Sélectionnez l'opération : <INPUT TYPE="radio" NAME="act" id="act_backup" value="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 de sauvegarde ou de récupération)<br> <input type="submit" value="OK"> </form> <% 'Sauvegarde et récupération de la base de données SQL Server ! 'Haiwa'http: / /www.51windows.Net dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act sqlserver = "localhost" 'sql server sqlname = "sa" 'Username sqlpassword = "sa" 'Password sqlLoginTimeout = 15 'Délai de connexion nom de base de données = trim(request("databasename")) bak_file = trim(request("bak_file")) bak_file = replace(bak_file,"$1",databasename) act = lcase(request("act")) si databasename = "" alors réponse .écrivez "nom de la base de données d'entrée" sinon si act = "backup" 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=Files bak.Files=bak_file bak.SQLBackup srv si err.number>0 alors réponse.write err.number&"<font color=red><br>" réponse .write err.description&"</font>" end if Response.write "<font color=green>Sauvegarde réussie !</font>" elseif act = "restore" then 'La restauration doit être effectuée lorsque la base de données n'est pas utilisée ! Définir srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Définir rest=Server.CreateObject("SQLDMO.Restore") rest.Action=0 ' restauration complète de la base de données. Database=databasename rest.Devices=Files rest.Files=bak_file rest.ReplaceDatabase=True 'Forcer la restauration sur la base de données existante si err.number>0 puis réponse.write err.number&"<font color=red><br>" réponse. écrivez err.description&"</font>" end if rest.SQLRestore srv Response.write "<font color=green>Restauré avec succès !</font>" sinon Response.write "<font color=red>Aucune opération sélectionnée</ font color=red> font>" fin si fin si %> </BODY> </HTML>