Teman-teman yang menggunakan ASP dapat menggunakan kode berikut untuk mengimplementasikan operasi backup dan recovery database mssql <form method=post name=myform action=?action=backupdatabase>
Pilih tindakan:
<tipe masukan=nama radio=id tindakan=nilai_cadangan=cadangan>
<label for=act_backup>Cadangan</label>
<tipe masukan=nama radio=id tindakan=nilai_pemulihan tindakan=pemulihan>
<label for=act_restore>Pulihkan</label>
<br>
Nama basis data:
<tipe masukan=nama teks=nilai nama basis data=<%=permintaan(nama basis data)%>>
<br>
Jalur berkas:
<tipe masukan=nama teks=bak_file value=c:/$1.bak>
(Jalur file untuk pencadangan atau pemulihan)<br>
<tipe input=kirim nilai=OK id=kirim1 nama=kirim1>
</bentuk>
<%
'Pencadangan dan pemulihan basis data server SQL!
jika permintaan(tindakan)=database cadangan maka
redupkan sqlserver, sqlname, sqlpassword, sqllogintimeout, nama database, bak_file, act
'******************************************************* ************************
sqlserver=127.0.0.1
namasql=sa
kata sandi sql =111
sqllogintimeout=15
nama basis data = trim(permintaan(nama basis data))
bak_file = trim(permintaan(bak_file))
bak_file = ganti(bak_file,$1,nama database)
tindakan = kasus(permintaan(tindakan))
'******************************************************* ************************
jika nama basis data = maka
respon.tulis masukan nama database
kalau tidak
jika tindakan = cadangan maka
setel srv=server.buat objek(sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.hubungkan sqlserver, nama sql, kata sandi sql
set bak = server.buat objek(sqldmo.cadangan)
bak.database=nama basis data
bak.devices=file
bak.aksi = 0
bak.inisialisasi = 1
'bak.ganti = benar
bak.files=bak_file
bak.sqlbackup srv
jika err.number>0 maka
respon.tulis err.number&<font color=red><br>
respon.tulis err.deskripsi&</font>
berakhir jika
respon.tulis <font color=green>Pencadangan berhasil!</font>
berakhir jika
jika bertindak=pulihkan maka
'Pemulihan harus dilakukan ketika database tidak digunakan!
setel srv=server.buat objek(sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.hubungkan sqlserver, nama sql, kata sandi sql
setel istirahat=server.buat objek(sqldmo.restore)
rest.action=0 ' pemulihan db penuh
rest.database=nama basis data
istirahat.perangkat=file
istirahat.files=bak_file
rest.replacedatabase=true 'memaksa pemulihan database yang ada
jika err.number>0 maka
respon.tulis err.number&<font color=red><br>
respon.tulis err.deskripsi&</font>
berakhir jika
istirahat.sqlrestore srv
respon.write <font color=green>Berhasil dipulihkan!</font>
kalau tidak
respon.write <font color=red>Tidak ada operasi yang dipilih</font>
berakhir jika
berakhir jika
berakhir jika
%>