La sauvegarde et la récupération en ligne ASP de la base de données du serveur SQL sont une solution temporaire pour les amis qui ne fournissent pas de connexion à distance au serveur SQL ou de téléchargement de packages. Cela peut ne pas être efficace pour le Big Data. base de données du serveur SQL de sauvegarde en ligne asp :
1. Sauvegardez SQLServer
Copiez le code comme suit :
<%
SQL=nom de la base de données de sauvegarde sur le disque='&Server.MapPath(backup)&/&backuptext.dat&'
set cnn = Server.createobject (adodb.connection)
cnn.open driver={SQL Server};Server=nom du serveur;uid=sa;pwd=
cnn.exécuter SQL
en cas d'erreur, reprendre ensuite
si erreur<>0 alors
Erreur de réponse.wrITe : &err.Descripting
autre
réponse.wrITe Sauvegarde des données réussie !
finir si
%>
2. Restaurer le serveur SQL
Copiez le code comme suit :
<%
SQL=Restaurer le nom de la base de données à partir du disque='&Server.MapPath(backup)&/&backuptext.dat&'
définir cnn = Server.createobject (adodb.connection)
cnn.open driver={SQL Server};Server=nom du serveur;uid=sa;pwd=
cnn.exécuter SQL
en cas d'erreur, reprendre ensuite
si erreur<>0 alors
Erreur de réponse.wrITe : &err.Descripting
autre
réponse.wrITe Récupération des données réussie !
finir si
%>
Le principe d’ACCÈS est le même
Copiez le code comme suit :
<%
'***************************************
fonction CopyTo (ByVal cFile, ByVal toFile)
cFile=Server.MapPath(cFile) 'Le fichier à sauvegarder
toFile=Server.MapPath(toFile) 'Fichier de sauvegarde
Faible cFso,cf
définir cFso = Server.CreateObject (Scripting.FileSystemObject)
cFso.fileexists(cFile)
cFso.Copyfile cFile,toFile
fonction de fin
'************************************************
'ASP implémente les opérations de sauvegarde et de restauration de la base de données ACCESS
'Cette page est databackup.asp
dim chemin de base de données, dossier bk, nom de base de données, fso, fso1
appeler principal()
appelle main2()
connexion.fermer
définir conn = rien
sous-main()
si request(action)=Sauvegarde alors
appeler les données de sauvegarde()
autre
%>
<table cellpacing=1 cellpadding=1 align=center width=90%>
<tr>
<ième hauteur=25>
<B>Sauvegarde de la base de données</B>
</th>
</tr>
<form method=post action=databackup.asp?action=Backup>
<tr>
<td height=100 style=line-height:150%>
Chemin actuel de la base de données (chemin relatif) :
<input type=text size=15 name=DBpath value=../mdb/database.mdb><BR>
Répertoire de la base de données de sauvegarde (chemin relatif) :
<input type=text size=15 name=bkfolder value=../Databackup> Si le répertoire n'existe pas, le programme le créera automatiquement<BR>
Nom de la base de données de sauvegarde (remplissez le nom) :
<input type=text size=15 name=bkDBname value=database.mdb> Si le répertoire de sauvegarde contient ceci
Le fichier sera écrasé S'il n'existe pas, il sera créé automatiquement<BR>
<input type=submIT value=Données de sauvegarde><hr align=center width=90% color=#999999></td>
</tr>
</form>
</table>
<%
finir si
fin du sous
sous main2()
si request(action)=Restaurer alors
Dbpath=request.form(Dbpath)
backpath=request.form(backpath)
si dbpath = alors
réponse.wrITe Veuillez saisir le nom complet de la base de données vers laquelle vous souhaitez restaurer
autre
Dbpath=serveur.mappath(Dbpath)
finir si
backpath=server.mappath(backpath)
Réponse.wrITe Backpath
Définir Fso=server.createobject(scripting.filesystemobject)
si fso.fileexists (dbpath) alors
fso.copyfile Dbpath,Backpath
réponse.wrITe <font color=red>Données récupérées avec succès ! </font>
autre
réponse.wrITe <font color=red>Il n'y a aucun fichier de sauvegarde pour vous dans le répertoire de sauvegarde ! </font>
finir si
autre
%>
<table align=center Cellpacing=1 cellpadding=1 width=90%>
<tr>
<ième hauteur=25>
<B>Restaurer la base de données</B>
</th>
</tr>
<form method=post action=databackup.asp?action=Restore>
<tr>
<td hauteur=100>
Chemin de la base de données de sauvegarde (relatif) :
<input type=text size=30 name=DBpath value=../Databackup/database.mdb> <BR>
Chemin actuel de la base de données (relatif) :
<input type=text size=30 name=backpath value=../mdb/database.mdb><BR>
<input type=submIT value=Récupérer les données> <hr width=90% align=center color=#999999>
<font color=#666666>·Remarque : tous les chemins sont des chemins relatifs</font></td>
</tr>
</form>
</table>
<%
finir si
fin du sous
sous-sauvegarde des données()
Dbpath=request.form(Dbpath)
Dbpath=serveur.mappath(Dbpath)
bkfolder=request.form(bkfolder)
nombkdb=request.form(nombkdb)
Définir Fso=server.createobject(scripting.filesystemobject)
si fso.fileexists (dbpath) alors
Si CheckDir(bkfolder) = True Alors
fso.copyfile dbpath,bkfolder& //& bkdbname
autre
MakeNewsDir dossier bk
fso.copyfile dbpath,bkfolder& //& bkdbname
finir si
réponse.wrITe <font color=red>La sauvegarde de la base de données a réussi. Le chemin de la base de données que vous avez sauvegardé est &bkfolder& //& bkdbname+</font>.
Autre
réponse.wrITe <font color=red>Le fichier que vous devez sauvegarder est introuvable. </font>
Terminer si
fin du sous
'------------------Vérifiez si un certain répertoire existe------------------
Fonction CheckDir (FolderPath)
chemin du dossier=Serveur.MapPath(.)&//&chemin du dossier
Définir fso1 = CreateObject (Scripting.FileSystemObject)
Si fso1.FolderExists(FolderPath) alors
'exister
CheckDir = Vrai
Autre
'n'existe pas
CheckDir = Faux
Terminer si
Définir fso1 = rien
Fonction de fin
'-------------Générer un répertoire basé sur le nom spécifié---------
Fonction MakeNewsDir (nom du dossier)
faible f
Définir fso1 = CreateObject (Scripting.FileSystemObject)
Définir f = fso1.CreateFolder (nom du dossier)
MakeNewsDir = Vrai
Définir fso1 = rien
Fonction de fin
%>