Pencadangan online ASP dan pemulihan database sql server adalah solusi sementara bagi teman-teman yang tidak menyediakan koneksi jarak jauh sqlserver atau pengunduhan paket. Ini mungkin tidak efektif untuk data besar. database server sql cadangan online asp:
1. Cadangkan sqlserver
Copy kode kodenya sebagai berikut:
<%
SQL=nama database database cadangan ke disk='&Server.MapPath(backup)&/&backuptext.dat&'
set cnn=Server.createobject(adodb.koneksi)
cnn.open driver={SQL Server};Server=nama server;uid=sa;pwd=
cnn.jalankan SQL
pada kesalahan lanjutkan berikutnya
jika salah<>0 maka
respon.wrITe Kesalahan:&err.Descripting
kalau tidak
respon.wrITe Pencadangan data berhasil!
berakhir jika
%>
2. Pulihkan sqlserver
Copy kode kodenya sebagai berikut:
<%
SQL=Pulihkan nama basis data basis data dari disk='&Server.MapPath(backup)&/&backuptext.dat&'
set cnn=Server.createobject(adodb.koneksi)
cnn.open driver={SQL Server};Server=nama server;uid=sa;pwd=
cnn.jalankan SQL
pada kesalahan lanjutkan berikutnya
jika salah<>0 maka
respon.wrITe Kesalahan:&err.Descripting
kalau tidak
respon.wrITe Pemulihan data berhasil!
berakhir jika
%>
Prinsip ACCESS adalah sama
Copy kode kodenya sebagai berikut:
<%
'******************************************
fungsi CopyTo(ByVal cFile,ByVal toFile)
cFile=Server.MapPath(cFile) 'File yang akan dicadangkan
toFile=Server.MapPath(toFile) 'File cadangan
Redupkan cFso, lih
set cFso=Server.CreateObject(Scripting.FileSystemObject)
cFso.file ada(cFile)
cFso.Copyfile cFile,toFile
fungsi akhir
'***************************************************
'ASP mengimplementasikan pencadangan dan pemulihan operasi database ACCESS
'Halaman ini adalah databackup.asp
redupkan dbpath,bkfolder,bkdbname,fso,fso1
panggilan utama()
panggil main2()
samb.tutup
setel samb=tidak ada
sub utama()
jika permintaan(tindakan)=Cadangan maka
panggil data cadangan()
kalau tidak
%>
<tabel spasi sel=1 cellpadding=1 align=lebar tengah=90%>
<tr>
<tinggi ke-25>
<B>Cadangan basis data</B>
</th>
</tr>
<metode formulir=posting tindakan=databackup.asp?action=Backup>
<tr>
<td tinggi=100 gaya=tinggi garis:150%>
Jalur basis data saat ini (jalur relatif):
<tipe input=ukuran teks=15 nama=nilai jalur DB=../mdb/database.mdb><BR>
Direktori database cadangan (jalur relatif):
<input type=text size=15 name=bkfolder value=../Databackup> Jika direktori tidak ada, program akan secara otomatis membuatnya<BR>
Nama database cadangan (isikan nama):
<tipe input=ukuran teks=15 nama=bkDBname value=database.mdb> Jika direktori cadangan memiliki ini
File akan ditimpa. Jika tidak ada, maka akan dibuat secara otomatis<BR>
<input type=submIT value=Data cadangan><hr align=center width=90% color=#999999></td>
</tr>
</bentuk>
</tabel>
<%
berakhir jika
sub akhir
sub utama2()
jika permintaan(tindakan)=Pulihkan maka
Dbpath=permintaan.formulir(Dbpath)
jalur belakang=permintaan.form(jalur belakang)
jika dbpath= maka
respon.wrITe Silakan masukkan nama lengkap database yang ingin Anda pulihkan
kalau tidak
Dbpath=server.jalur peta(Jalur Db)
berakhir jika
jalur belakang=server.jalur peta(jalur belakang)
Response.wrITe Jalur Belakang
Setel Fso=server.createobject(scripting.filesystemobject)
jika fso.fileexists(dbpath) maka
fso.copyfile Dbpath, Jalur Latar Belakang
respon.wrITe <font color=red>Data berhasil dipulihkan! </font>
kalau tidak
respon.wrITe <font color=red>Tidak ada file cadangan untuk Anda di direktori cadangan! </font>
berakhir jika
kalau tidak
%>
<tabel align=center Cellspacing=1 Cellpadding=1 Lebar=90%>
<tr>
<tinggi ke-25>
<B>Pulihkan basis data</B>
</th>
</tr>
<metode formulir=posting tindakan=databackup.asp?action=Restore>
<tr>
<td tinggi=100>
Jalur database cadangan (relatif):
<tipe input=ukuran teks=30 nama=nilai jalur DB=../Databackup/database.mdb> <BR>
Jalur database saat ini (relatif):
<tipe input=ukuran teks=30 nama=nilai jalur belakang=../mdb/database.mdb><BR>
<tipe input=kirimnilai IT=Pulihkan data> <lebar jam=90% rata=warna tengah=#999999>
<font color=#666666>·Catatan: Semua jalur adalah jalur relatif</font></td>
</tr>
</bentuk>
</tabel>
<%
berakhir jika
sub akhir
sub data cadangan()
Dbpath=permintaan.formulir(Dbpath)
Dbpath=server.jalur peta(Jalur Db)
bkfolder=permintaan.form(bkfolder)
bkdbname=permintaan.form(bkdbname)
Setel Fso=server.createobject(scripting.filesystemobject)
jika fso.fileexists(dbpath) maka
Jika CheckDir(bkfolder) = Benar Maka
fso.copyfile dbpath,bkfolder& //& nama bkdb
kalau tidak
Folder MakeNewsDir
fso.copyfile dbpath,bkfolder& //& nama bkdb
berakhir jika
respon.wrITe <font color=red>Pencadangan basis data berhasil. Jalur basis data yang Anda cadangankan adalah &bkfolder& //& bkdbname+</font>
Kalau tidak
respon.wrITe <font color=red>File yang perlu Anda buat cadangannya tidak dapat ditemukan. </font>
Berakhir jika
sub akhir
'------------------Periksa apakah direktori tertentu ada------------------
Fungsi CheckDir (Jalur Folder)
jalur folder=Server.MapPath(.)&//&jalur folder
Setel fso1 = CreateObject(Scripting.FileSystemObject)
Jika fso1.FolderExists(FolderPath) maka
'ada
CheckDir = Benar
Kalau tidak
'tidak ada
CheckDir = Salah
Berakhir jika
Setel fso1 = tidak ada
Fungsi Akhir
'-------------Buat direktori berdasarkan nama yang ditentukan---------
Fungsi MakeNewsDir (nama folder)
redup f
Setel fso1 = CreateObject(Scripting.FileSystemObject)
Setel f = fso1.CreateFolder(nama folder)
MakeNewsDir = Benar
Setel fso1 = tidak ada
Fungsi Akhir
%>