Belajar dari saya database server sql cadangan asp
<HTML>
<KEPALA>
<TITLE>Operasi basis data_www.dushuwu.nhet</TITLE>
<meta http-equiv=Jenis Konten konten=teks/html; charset=gb2312>
</KEPALA>
<TUBUH>
<metode formulir=nama postingan=formulir saya>
<%if action=restore kemudian%><INPUT TYPE=hidden name=action value=restore>Bersiap untuk memulihkan database. . .
<%elseif action=backup lalu%><INPUT TYPE=hidden name=action value=backup>Bersiap untuk membuat cadangan database. . . <%lainnya%>
Pilih tindakan:
<INPUT TYPE=nama radio=id tindakan=act_backup value=backup><label for=act_backup>Cadangan</label>
<INPUT TYPE=nama radio=id tindakan=act_restore value=pulihkan& gt;<label for=act_restore>Pulihkan</label><%end if%>
<br>Nama basis data: <INPUT TYPE=nama teks=nilai nama basis data=50forum>
<br>Jalur file: <INPUT TYPE=nama teks=bak_file value=50forum.bak> (jalur file cadangan atau pemulihan)<br>
<tipe masukan=kirim nilai=OK>
</bentuk>
<%
'Pencadangan dan pemulihan basis data SQL Server!
'http://www.dwww.cn
redupkan sqlserver, nama sql, kata sandi sql, sqlLoginTimeout, nama basis data, bak_file, tindakan
sqlserver = localhost 'server sql
sqlname = di 'nama pengguna
sqlpassword = pada 'Kata Sandi
sqlLoginTimeout = 15 'Batas waktu masuk habis
nama basis data = trim(permintaan(nama basis data))
bak_file = trim(permintaan(bak_file))
bak_file = Server.MapPath(cadangan/&bak_file)
tindakan = lcase(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.Files = bak_file
bak.Aksi = 0
bak.Inisialisasi = 1
'bak.ReplaceDatabase = Benar
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>
srv.putuskan
Setel srv = tidak ada
Setel bak = tidak ada
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 = True 'Paksa pemulihan pada 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>
srv.putuskan
Setel srv = tidak ada
Atur istirahat = tidak ada
kalau tidak
Response.write <font color=red>Tidak ada operasi yang dipilih</font>
berakhir jika
berakhir jika
%>
</BODI>
</HTML>