Peningkatan cadangan ASP database SQL Server
Penulis：Eve Cole
Waktu Pembaruan：2009-06-24 17:02:32
<form method="post" name="myform" action="?action=backupdatabase">
Pilih tindakan: <INPUT TYPE="radio" NAME="act" id="act_backup"value="backup"><label for=act_backup>Cadangan</label>
<INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>Pulihkan</label>
<br>Nama basis data: <INPUT TYPE="text" NAME="nama basis data" value="<%=request("nama basis data")%>">
<br>Jalur file: <INPUT TYPE="text" NAME="bak_file" value="c:$1.bak">(jalur file cadangan atau pemulihan)<br>
<input type="kirim" value="OK" id=kirim1 nama=kirim1>
</bentuk>
<%
'Pencadangan dan pemulihan basis data SQL Server!
jika permintaan("action")="backupdatabase" Lalu
redupkan sqlserver, nama sql, kata sandi sql, sqlLoginTimeout, nama basis data, bak_file, tindakan
sqlserver = "host lokal"
nama sql = "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)
bertindak = lcase(permintaan("bertindak"))
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.tulis "<font color=green>Pencadangan berhasil!</font>"
elseif bertindak = "pulihkan" lalu
'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
%>
