Telah melihat pencadangan dan pemulihan basis data. Sebagian besar dilakukan dengan menggunakan komponen. Sebenarnya bisa dilakukan melalui pernyataan sql.
Karena keterbatasan waktu, parameter tidak diverifikasi dan antarmuka dipercantik. Kode ini hanya untuk referensi.
Total 4 file: Alamat pengunduhan: function rec(rs,sql)
set rs = server.CreateObject("ADODB.Recordset")
rs.Activeconnection = samb
rs.Sumber = sql
rs.Tipe Kursor = 0
rs.Lokasi kursor = 3
rs.LockType = 1
rs.Buka
jika rs.eof dan rs.bof maka
rec=salah
kalau tidak
rec=benar
berakhir jika
fungsi akhir
fungsi cmd(sql)
redupkan cmd1
atur cmd1 = server.CreateObject("ADODB.Command")
cmd1.ActiveConnection = samb
cmd1.CommandText = sql
cmd1.Tipe Perintah = 1
cmd1.CommandTimeout = 0
cmd1.Siap = benar
cmd1.Jalankan()
fungsi akhir
fungsi cdb(rs)
rs.tutup()
atur rs=tidak ada
fungsi akhir
%>
dev.asp
<!--#include file="conn.asp"-->
<%
jika permintaan("AddDev") <> "" maka
sql="pilih nama, nama belakang dari master..sysdevices di mana status=16 dan nama='"&request("devname")&"'"
rek chk,sql
jika chk.eof dan chk.bof lalu
sql = "sp_addumpdevice 'disk','"&request("devname")&"','"&request("phyname")&"'"
cmdsql
respon.Tulis "<script bahasa=javascript>window.location=reload;</script>"
kalau tidak
respon.Tulis "<script bahasa=javascript>alert('Perangkat sudah ada di database"&request("devname")&"Perangkat!');window.location='cmd.asp';</script>"
berakhir jika
berakhir jika
jika permintaan("deldev") <> "" maka
sql = "sp_dropdevice '"&permintaan("nama dev")&"'"
cmdsql
respon.Tulis "<script bahasa=javascript>window.location=reload;</script>"
berakhir jika
rec li,"pilih nama,nama fisik dari master..sysdevices di mana status=16"
jika li.eof dan li.bof maka
respon.Tulis "<font color=#ff0000>Harap buat perangkat cadangan baru untuk mencadangkan dan memulihkan database</font>"
kalau tidak
%><gaya tipe="teks/css">
<!--
tubuh {
margin-kiri: 0px;
margin-atas: 0px;
}
-->
</gaya>
<lebar tabel = "60%" border = "0" spasi sel = "0">
<tr>
<td width="29%">Nama:</td>
<td width="71%">Posisi:</td>
</tr>
<%
saya=0
meskipun tidak nyata
saya=saya+1
%>
<tr>
<td><%=li(0)%></td>
<td><%=li(1)%> <a href='dev.asp?DelDev=1&devname=<%=li(0)%>'>Hapus perangkat ini</a></td>
</tr>
<%
li.movenext
pergi ke
respon.Tulis "<script bahasa=javascript>top.document.all.dev.height='"&(i+1)*25&"';</script>"
cdbli
%>
</tabel>
<%
berakhir jika
%>
default.asp
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
'***************************************************
'Pencadangan dan pemulihan basis data
'Pemrograman: Magic Yang (MagicYang.CN)
'Tanggal penyelesaian: 2004-4-11
'Penjelasan: Karena keterbatasan waktu, keamanan data tidak diverifikasi.
'Harap verifikasi data saat melamar untuk memastikan keamanan.
'QQ: 1168064 Menyambut semua orang untuk berkomunikasi satu sama lain
'***************************************************
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transisi//EN" " http://www.w3.org/TR/html4/loose.dtd ">
<html>
<kepala>
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
<title>Pencadangan dan pemulihan basis data</title>
</kepala>
<tubuh>
<%
%>
<lebar tabel="80%" border="0" align="center">
<tr>
<td width="21%" valign="top">Perangkat basis data:</td>
<td lebar="79%">
<iframe name="dev" src="dev.asp" width="100%" height="200" frameborder="0" scrolling="no"></iframe>
</td>
</tr>
<tr>
<td>Tambahkan perangkat:</td>
<td>Nama perangkat:
<input nama="devname" type="text" id="devname" size="10" maxlength="10"></td>
</tr>
<tr>
<td> </td>
<td>Jalur berkas:
<input nama="namanama" type="teks" id="namanama" size="20" maxlength="50">
<input type="button" value="Tambahkan perangkat" onClick="document.all.dev.src='dev.asp?AddDev=1&devname='+document.all.devname.value+'&phyname='+document.all .phyname.value;"></td>
</tr>
<tr>
<td valign="top">Pencadangan/Pemulihan:</td>
<td>
Nama basis data:
<%
rec li,"pilih nama dari master..sysdatabases di mana status=16"
%>
<pilih nama="b_data">
<%
meskipun tidak nyata
respon.Tulis "<option value="&li(0)&">"&li(0)&"</option>"
li.movenext
pergi ke
cdbli
%>
</pilih><br>
Cadangan ke perangkat: <%
rec li,"pilih nama,nama fisik dari master..sysdevices di mana status=16"
%>
<pilih nama="b_dev">
<%
meskipun tidak nyata
respon.Tulis "<option value="&li(0)&">"&li(0)&"(file:"&li(1)&")</option>"
li.movenext
pergi ke
cdbli
%>
</pilih><br>
<input name="Button" type="button" value="Cadangan database" onClick="window.location='cmd.asp?action=backup&database='+document.all.b_data.value+'&dev='+document. semua.b_dev.value;">
<input name="Button" type="button" value="Pulihkan Basis Data" onClick="window.location='cmd.asp?action=RESTORE&database='+document.all.b_data.value+'&dev='+document. semua.b_dev.value;"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</tabel>
</tubuh>
</html>
cmd.asp
<!--#include file="conn.asp"-->
<%
pada kesalahan lanjutkan berikutnya
jika permintaan("tindakan") <> "" maka
jika permintaan("action")="cadangan" maka
sql ="BACKUP DATABASE "&permintaan("database")&" Ke "& permintaan("dev")
cmdsql
jika err.number > 0 maka
respon.Tulis "<script bahasa=javascript>alert('database"&request("database")&"Pencadangan gagal!');window.location='default.asp';</script>"
kalau tidak
respon.Tulis "<script bahasa=javascript>alert('Database"&request("database")&"Pencadangan berhasil!');window.location='default.asp';</script>"
berakhir jika
kalau tidak
sql ="PEMBALIKAN DATABASE "&permintaan("database")&" Dari "& permintaan("dev")
cmdsql
jika err.number > 0 maka
respon.Tulis "<script bahasa=javascript>alert('Database"&request("database")&"Pemulihan gagal!');window.location='default.asp';</script>"
kalau tidak
respon.Tulis "<script bahasa=javascript>alert('database"&request("database")&"Berhasil dipulihkan!');window.location='default.asp';</script>"
berakhir jika
berakhir jika
berakhir jika
%>
Semoga semua orang dapat berkomunikasi satu sama lain! QQ: 1168064