J'ai vu la sauvegarde et la restauration de la base de données. La majeure partie est réalisée à l’aide de composants. En fait, cela peut être fait via une instruction SQL.
Faute de temps, les paramètres n'ont pas été vérifiés et l'interface embellie. Le code est uniquement à titre de référence.
Un total de 4 fichiers : Adresse de téléchargement : fonction rec(rs,sql)
set rs = serveur.CreateObject("ADODB.Recordset")
rs.Activeconnection = conn
rs.Source = sql
rs.CursorType = 0
rs.Cursorlocation = 3
rs.LockType = 1
rs.Ouvert
si rs.eof et rs.bof alors
rec=faux
autre
rec = vrai
finir si
fonction de fin
fonction cmd(sql)
faible cmd1
set cmd1 = serveur.CreateObject("ADODB.Command")
cmd1.ActiveConnection = connexion
cmd1.CommandText = sql
cmd1.CommandType = 1
cmd1.CommandTimeout = 0
cmd1.Préparé = vrai
cmd1.Execute()
fonction de fin
fonction cdb(rs)
rs.close()
définir rs = rien
fonction de fin
%>
dev.asp
<!--#include file="conn.asp"-->
<%
si request("AddDev") <> "" alors
sql="sélectionnez le nom, le nom physique de master..sysdevices où statut=16 et nom='"&request("devname")&"'"
rec chk,sql
si chk.eof et chk.bof alors
sql = "sp_addumpdevice 'disk','"&request("devname")&"','"&request("phyname")&"'"
cmdsql
réponse.Écrivez "<script language=javascript>window.location=reload;</script>"
autre
réponse.Écrivez "<script language=javascript>alert('Le périphérique existe déjà dans la base de données"&request("devname")&"Device!');window.location='cmd.asp';</script>"
finir si
finir si
si request("deldev") <> "" alors
sql = "sp_dropdevice '"&request("nom du développeur")&"'"
cmdsql
réponse.Écrivez "<script language=javascript>window.location=reload;</script>"
finir si
rec li, "sélectionnez le nom, le nom physique de master..sysdevices où status=16"
si li.eof et li.bof alors
réponse.Écrivez "<font color=#ff0000>Veuillez créer un nouveau périphérique de sauvegarde pour sauvegarder et restaurer la base de données</font>"
autre
%><style type="text/css">
<!--
corps {
marge gauche : 0px ;
marge supérieure : 0px ;
}
-->
</style>
<table width="60%" border="0" cellpacing="0">
<tr>
<td width="29%">Nom :</td>
<td width="71%">Position :</td>
</tr>
<%
je = 0
bien que je ne sois pas vivant
je=je+1
%>
<tr>
<td><%=li(0)%></td>
<td><%=li(1)%> <a href='dev.asp?DelDev=1&devname=<%=li(0)%>'>Supprimer cet appareil</a></td>
</tr>
<%
li.movenext
wend
réponse.Écrivez "<script language=javascript>top.document.all.dev.height='"&(i+1)*25&"';</script>"
CDBLI
%>
</table>
<%
finir si
%>
par défaut.asp
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
'************************************************
'Sauvegarde et restauration de la base de données
'Programmation : MagicYang (MagicYang.CN)
'Date d'achèvement : 2004-4-11
'Explication : En raison de contraintes de temps, la sécurité des données n'a pas été vérifiée.
« Veuillez vérifier les données lors de votre candidature pour garantir la sécurité.
'QQ : 1168064 Invitez tout le monde à communiquer les uns avec les autres
'************************************************
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " http://www.w3.org/TR/html4/loose.dtd ">
<html>
<tête>
<méta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Sauvegarde et restauration de la base de données</title>
</tête>
<corps>
<%
%>
<table width="80%" border="0" align="center">
<tr>
<td width="21%" valign="top">Périphérique de base de données :</td>
<td largeur="79%">
<iframe name="dev" src="dev.asp" width="100%" height="200" frameborder="0" scrolling="no"></iframe>
</td>
</tr>
<tr>
<td>Ajouter un appareil :</td>
<td>Nom du périphérique :
<input name="devname" type="text" id="devname" size="10" maxlength="10"></td>
</tr>
<tr>
<td> </td>
<td>Chemin du fichier :
<input name="phyname" type="text" id="phyname" size="20" maxlength="50">
<input type="button" value="Ajouter un périphérique" onClick="document.all.dev.src='dev.asp?AddDev=1&devname='+document.all.devname.value+'&phyname='+document.all .phyname.value;"></td>
</tr>
<tr>
<td valign="top">Sauvegarde/Restauration :</td>
<td>
Nom de la base de données :
<%
rec li, "sélectionnez le nom dans les bases de données master..sys où status=16"
%>
<select name="b_data">
<%
bien que je ne sois pas vivant
réponse.Écrivez "<option value="&li(0)&">"&li(0)&"</option>"
li.movenext
wend
CDBLI
%>
</select><br>
Sauvegarde sur l'appareil : <%
rec li, "sélectionnez le nom, le nom physique de master..sysdevices où status=16"
%>
<select name="b_dev">
<%
bien que je ne sois pas vivant
réponse.Écrivez "<option value="&li(0)&">"&li(0)&"(file:"&li(1)&")</option>"
li.movenext
wend
CDBLI
%>
</select><br>
<input name="Button" type="button" value="Base de données de sauvegarde" onClick="window.location='cmd.asp?action=backup&database='+document.all.b_data.value+'&dev='+document. all.b_dev.value;">
<input name="Button" type="button" value="Restaurer la base de données" onClick="window.location='cmd.asp?action=RESTORE&database='+document.all.b_data.value+'&dev='+document. all.b_dev.value;"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</corps>
</html>
cmd.asp
<!--#include file="conn.asp"-->
<%
en cas d'erreur, reprendre ensuite
si request("action") <> "" alors
si request("action")="backup" alors
sql ="BASE DE DONNÉES DE SAUVEGARDE "&request("base de données")&" Vers "& request("dev")
cmdsql
si numéro d'erreur > 0 alors
réponse.Écrivez "<script language=javascript>alert('database"&request("database")&"Échec de la sauvegarde !');window.location='default.asp';</script>"
autre
réponse.Écrivez "<script language=javascript>alert('Database"&request("database")&"Sauvegarde réussie !');window.location='default.asp';</script>"
finir si
autre
sql ="RESTAURER LA BASE DE DONNÉES "&request("base de données")&" De "& request("dev")
cmdsql
si numéro d'erreur > 0 alors
réponse.Écrivez "<script language=javascript>alert('Database"&request("database")&"Échec de la restauration !');window.location='default.asp';</script>"
autre
réponse.Écrivez "<script language=javascript>alert('database"&request("database")&"Restauré avec succès !');window.location='default.asp';</script>"
finir si
finir si
finir si
%>
J'espère que tout le monde pourra communiquer entre eux ! QQ : 1168064