1. Cadangan
<%
Sql = "nama database backupdatabase todisk = '" & server.mappath ("cadangan") & "//" & "backuptext.dat" & "'"
setcnn = server.CreateObject ("adodb.connection")
cnn.open "driver = {sqlserver}; server = nama server; uid = sa; pwd ="
cnn.executesql
OnerrorresumeNext
iferr <> 0then
response.write "error:" & err.descripting
kalau tidak
Response.write "Cadangan data berhasil!"
endif
%> Green cinaipower.comayrcj6b
2. Pemulihan
<%
SQL = "Restoredatabase Nama Basis Data FromDisk = '" & Server.Mappath ("Backup") & "//" & "backuptext.dat" & "'"
setcnn = server.CreateObject ("adodb.connection")
cnn.open "driver = {sqlserver}; server = nama server; uid = sa; pwd ="
cnn.executesql
OnerrorresumeNext
iferr <> 0then
response.write "error:" & err.descripting
kalau tidak
response.write "Pemulihan data berhasil!"
endif
%>