Basis data SQL Server cadangan ASP yang ditingkatkan, prinsip di Internet tidak terlalu baik, teman yang membutuhkan dapat merujuknya. Copy kode kodenya sebagai berikut:
<metode formulir=nama postingan=tindakan formulir saya=?tindakan=backupdatabase>
Pilih tindakan: <INPUT TYPE=radio NAME=act id=act_backupvalue=backup><label for=act_backup>Cadangan</label>
<INPUT TYPE=radio NAME=act id=act_restore value=restore><label for=act_restore>pemulihan</label>
<br>Nama basis data: <INPUT TYPE=teks NAMA=nilai nama basis data=<%=permintaan(nama basis data)%>>
<br>Jalur file: <INPUT TYPE=text NAME=bak_file value=c:/$1.bak> (jalur file cadangan atau pemulihan)<br>
<tipe input=kirim nilai=OK id=kirim1 nama=kirim1>
</bentuk>
<%
'Pencadangan dan pemulihan basis data SQL Server!
jika permintaan(tindakan)=backupdatabase Lalu
redupkan sqlserver, nama sql, kata sandi sql, sqlLoginTimeout, nama basis data, bak_file, tindakan
sqlserver=host lokal
namasql=sa
sqlpassword=kata sandi
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.CreateObject(SQLDMO.SQLServer)
srv.LoginTimeout = sqlLoginTimeout
srv.Hubungkan sqlserver, nama sql, kata sandi sql
Setel bak = Server.CreateObject(SQLDMO.Backup)
bak.Database=nama basis data
bak.Perangkat=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
Response.write <font color=green>Pencadangan berhasil!</font>
elseif act=pulihkan kemudian
'Pemulihan harus dilakukan ketika database tidak digunakan!
Setel srv=Server.CreateObject(SQLDMO.SQLServer)
srv.LoginTimeout = sqlLoginTimeout
srv.Hubungkan sqlserver, nama sql, kata sandi sql
Setel istirahat=Server.CreateObject(SQLDMO.Restore)
rest.Action=0 ' pemulihan db penuh
istirahat.Database=nama basis data
istirahat.Perangkat=File
istirahat.File=bak_file
rest.ReplaceDatabase=Benar 'Paksa 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
Response.write <font color=green>Berhasil dipulihkan!</font>
kalau tidak
Response.write <font color=red>Tidak ada operasi yang dipilih</font>
berakhir jika
berakhir jika
berakhir jika
%>