Indonesia
51windows (karya asli)
adalah contoh kode untuk membackup dan merestorasi database SQL Server menggunakan asp, semoga bermanfaat bagi teman-teman. (Catatan: Basis data mungkin tidak dapat dipulihkan saat digunakan)
<HTML> <HEAD> <TITLE>Pencadangan dan pemulihan basis data SQL Server</TITLE> <meta http-equiv="Content-Type" content="text/html; charset= gb2312"> </HEAD> <BODY> <form method="post" name=myform> Pilih operasi: <INPUT TYPE="radio" NAME="act" id="act_backup" value="backup">< label untuk =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="databasename" value="<%=request("databasename")%>"> <br>Jalur file: <INPUT TYPE="text" NAME="bak_file" value="c : $1.bak">(Jalur file pencadangan atau pemulihan)<br> <input type="submit" value="OK"> </form> <% 'Pencadangan dan pemulihan basis data SQL Server! 'Haiwa'http: / /www.51windows.Net redupkan sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act sqlserver = "localhost" 'sql server sqlname = "sa" 'Username sqlpassword = "sa" 'Password sqlLoginTimeout = 15 'Login timeout databasename = trim(request("databasename")) bak_file = trim(request("bak_file")) bak_file = replace(bak_file,"$1",databasename) act = lcase(request("act")) if databasename = "" lalu respon .tulis "masukan nama database" else if act = "backup" lalu Set srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Set bak = Server.CreateObject( "SQLDMO .Backup") bak.Database=nama database bak.Devices=File bak.Files=bak_file bak.SQLBackup srv jika err.number>0 maka respon.tulis err.number&"<font color=red><br>" respon .write err.description&"</font>" berakhir jika Response.tulis "<font color=green>Pencadangan berhasil!</font>" elseif act = "restore" maka 'Pemulihan harus dilakukan ketika database tidak digunakan! Setel srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Set rest=Server.CreateObject("SQLDMO.Restore") rest.Action=0 ' sisa pemulihan db penuh. Database=namadatabase rest.Devices=File rest.Files=bak_file rest.ReplaceDatabase=Benar 'Paksa pemulihan database yang ada jika err.number>0 lalu respon.tulis respons err.number&"<font color=red><br>". write err.description&"</font>" end if rest.SQLRestore srv Response.write "<font color=green>Berhasil dipulihkan!</font>" else Response.write "<font color=red>Tidak ada operasi yang dipilih</ font color=red> font>" berakhir jika berakhir jika %> </BODY> </HTML>