Apprenez de moi la base de données du serveur SQL de sauvegarde asp
<HTML>
<TÊTE>
<TITLE>Opération de base de données_www.dushuwu.nhet</TITLE>
<méta http-equiv=Content-Type content=text/html; charset=gb2312>
</HEAD>
<CORPS>
<form method=post name=myform>
<%if action=restore then%><INPUT TYPE=hidden name=action value=restore>Préparez-vous à restaurer la base de données. . .
<%elseif action=backup then%><INPUT TYPE=hidden name=action value=backup>Préparez-vous à sauvegarder la base de données. . . <%else%>
Sélectionnez l'action :
<INPUT TYPE=radio name=action id=act_backup value=backup><label for=act_backup>Sauvegarde</label>
<INPUT TYPE=radio name=action id=act_restore value=restore& gt;<label for=act_restore>Restaurer</label><%end if%>
<br>Nom de la base de données : <INPUT TYPE=text name=databasename value=50forum>
<br>Chemin du fichier : <INPUT TYPE=text name=bak_file value=50forum.bak> (chemin du fichier de sauvegarde ou de récupération)<br>
<type d'entrée=valeur de soumission=OK>
</form>
<%
'Sauvegarde et récupération de la base de données SQL Server !
'http://www.dwww.cn
faible serveur sql, nom sql, mot de passe sql, sqlLoginTimeout, nom de la base de données, bak_file, act
sqlserver = localhost 'serveur SQL
nomsql = sa 'nom d'utilisateur
sqlpassword = sa 'Mot de passe
sqlLoginTimeout = 15 'Délai d'expiration de la connexion
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 = Server.MapPath(sauvegarde/&bak_file)
acte = lcase (demande (action))
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
Définir srv = Server.CreateObject (SQLDMO.SQLServer)
srv.LoginTimeout = sqlLoginTimeout
srv.Connect serveur sql, nom sql, mot de passe sql
Définir bak = Server.CreateObject (SQLDMO.Backup)
bak.Database = nom de la base de données
bak.Devices = Fichiers
bak.Files = bak_file
bak.Action = 0
bak.Initialize = 1
'bak.ReplaceDatabase = Vrai
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
Response.write <font color=green>Sauvegarde réussie !</font>
srv.disconnect
Définir srv = rien
Mettre au four = rien
elseif act = restaurer alors
'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 serveur sql, nom sql, mot de passe sql
Définir reste = 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
Response.write <font color=green>Restauré avec succès !</font>
srv.disconnect
Définir srv = rien
Mettre au repos = rien
autre
Response.write <font color=red>Aucune opération sélectionnée</font>
finir si
finir si
%>
</CORPS>
</HTML>