يمكن للأصدقاء الذين يستخدمون ASP استخدام التعليمة البرمجية التالية لتحقيق عملية النسخ الاحتياطي والاستعادة لقاعدة بيانات mssql <form Method=post name=myform action=?action=backupdatabase>
حدد الإجراء:
<نوع الإدخال=اسم الراديو=معرف الفعل=act_backupقيمة=النسخ الاحتياطي>
<label for=act_backup>النسخ الاحتياطي</label>
<نوع الإدخال=اسم الراديو=معرف الفعل=قيمة Act_restore=استعادة>
<label for=act_restore>استعادة</label>
<ر>
اسم قاعدة البيانات:
<نوع الإدخال=اسم النص=قيمة اسم قاعدة البيانات=<%=طلب(اسم قاعدة البيانات)%>>
<ر>
مسار الملف:
<نوع الإدخال=اسم النص=قيمة ملف bak=c:/$1.bak>
(مسار الملف للنسخ الاحتياطي أو الاستعادة)<br>
<نوع الإدخال=قيمة الإرسال=معرف موافق=اسم الإرسال1=إرسال1>
</النموذج>
<%
'النسخ الاحتياطي والاسترداد لقاعدة بيانات خادم SQL!
إذا كان الطلب (الإجراء) = قاعدة البيانات الاحتياطية إذن
خافت sqlserver، sqlname، sqlpassword، sqllogintimeout، اسم قاعدة البيانات، bak_file، act
'********************************************************************************************************************************************************************************* * ************************
sqlserver=127.0.0.1
sqlname=sa
كلمة السر = 111
sqllogintimeout=15
اسم قاعدة البيانات = تقليم (طلب (اسم قاعدة البيانات))
bak_file = تقليم (طلب (bak_file))
bak_file = استبدال (bak_file,$1,اسم قاعدة البيانات)
الفعل = lcase(طلب(الفعل))
'********************************************************************************************************************************************************************************* * ************************
إذا كان اسم قاعدة البيانات = إذن
Response.Write اسم قاعدة بيانات الإدخال
آخر
إذا الفعل = النسخ الاحتياطي ثم
تعيين srv=server.createobject(sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.connect sqlserver، sqlname، sqlpassword
تعيين باك = server.createobject(sqldmo.backup)
bak.database=databasename
bak.devices=files
باك أكشن = 0
باك.تهيئة = 1
'bak.replace = صحيح
bak.files=bak_file
bak.sqlbackup srv
إذا err.number>0 ثم
Response.write err.number&<font color=red><br>
Response.write err.description&</font>
نهاية إذا
Response.write <font color=green>تم النسخ الاحتياطي بنجاح!</font>
نهاية إذا
إذا كان الفعل = استعادة ثم
'يجب إجراء الاستعادة عندما لا تكون قاعدة البيانات قيد الاستخدام!
تعيين srv=server.createobject(sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.connect sqlserver، sqlname، sqlpassword
تعيين الراحة=server.createobject(sqldmo.restore)
Rest.action=0 'استعادة قاعدة البيانات الكاملة
Rest.database=databasename
Rest.devices=files
Rest.files=bak_file
Rest.replacedatabase=true 'فرض الاستعادة على قاعدة البيانات الموجودة
إذا err.number>0 ثم
Response.write err.number&<font color=red><br>
Response.write err.description&</font>
نهاية إذا
Rest.sqlrestore srv
Response.write <font color=green>تمت الاستعادة بنجاح!</font>
آخر
Response.write <font color=red>لم يتم تحديد أي عملية</font>
نهاية إذا
نهاية إذا
نهاية إذا
%>