<body>
<Metode form = nama posting = myForm>
<%Jika tindakan = Pulihkan kemudian%> <input type = name tersembunyi = nilai tindakan = restore> bersiaplah untuk mengembalikan database. Esensi Esensi
<%Elseif action = cadangan kemudian%> <input type = hidden name = Action value = Backup> Siapkan database cadangan. Esensi Esensi <%Else%>
Pilih Operasi:
<Input type = Radio name = The Action ID = Act_backup Value = Backup> <label untuk = act_backup> cadangan </label>
<Input Type = Radio Name = The Action ID = Act_Restore Value = Restore> <Label for = act_restore> pemulihan </label> <%end if%>
<br> Nama Basis Data: <Input Tipe = Nama Teks = Nilai DatabaseName = 50Forum>
<br> Path file: <input type = name teks = Bak_file value = 50forum.bak> (jalur file cadangan atau pemulihan) <br>
<Input Tipe = Kirim Nilai = OK>
</form>
<%
Cadangan dan Pemulihan Database SQL Server!
'http://www.tfxy.com
Dimlserver DiMLSERVER, SQLNAME, SQLPASSWORD, SQLLOGINTIMEOUT, DATABASENAM, BAK_FILE, ACT, ACT,
SQLServer = SQL Server LocalHost
SQLNAME = Sa 'nama pengguna
sqlpassword = Sa 'kata sandi
sqllogintimeout = 15 'waktu lumping
DataBasEname = trim (request (DataBaseName))
Bak_file = trim (permintaan (bak_file))
Bak_file = server.mappath (cadangan/& bak_file)
ACT = lcase (permintaan (tindakan))
Jika databasename = lalu
response.write input nama basis data
kalau tidak
Jika tindakan = cadangan maka
Set SRV = Server.CreateObject (SQLDMO.SQLServer)
srv.loginTimeout = sqlloginTimeout
SRV.Connect SQLServer, SQLNAME, SQLPASSWORD
Set Bak = Server.CreateObject (sqldmo.backup)
Bak.database = DataBasEname
Bak.Devices = File
Bak.files = Bak_file
Bak.action = 0
Bak.Initialize = 1
'Bak.Replacedatabase = true
Bak.sqlbackup SRV
Jika err.number> 0 lalu
response.write err.number & <font color = red> <br>
Response.write ericr.descripting & </font>
akhiri jika
Response.write <font color = green> cadangan berhasil!
SRV.Disconnect
Set srv = nothing
Set bak = nothing
elseif act = restore then
'恢复时要在没有使用数据库时进行！
Set srv=Server.CreateObject(SQLDMO.SQLServer)
srv.loginTimeout = sqlloginTimeout
SRV.Connect SQLServer, SQLNAME, SQLPASSWORD
Set REST = Server.CreateObject (SQLDMO.RESTORE)
Rest.action = 0 'full db restore
rest.database = DataBasEname
Rest.devices = file
REST.FILES = BAK_FILE
Rest.replacedatabase = true 'force restore atas database yang ada
Jika err.number> 0 lalu
response.write err.number & <font color = red> <br>
Response.write ericr.descripting & </font>
akhiri jika
REST.SQLRESTORE SRV
Response.write <font color = green> restore!
SRV.Disconnect
Atur srv = tidak ada
Atur istirahat = tidak ada
kalau tidak
Response.write <font color = red> Tidak ada operasi pilihan </font>
akhiri jika
akhiri jika
%>
</body>
</html>