قاعدة بيانات SQL Server الاحتياطية المحسنة لـ ASP، المبدأ على الإنترنت ليس جيدًا جدًا، يمكن للأصدقاء المحتاجين الرجوع إليه. انسخ رمز الكود كما يلي:
<طريقة النموذج=اسم النشر=إجراء myform=?action=backupdatabase>
حدد الإجراء: <INPUT TYPE=radio NAME=act id=act_backupvalue=backup><label for=act_backup>Backup</label>
<INPUT TYPE=radio NAME=act id=act_restore value=restore><label for=act_restore>استعادة</label>
<br>اسم قاعدة البيانات: <INPUT TYPE=text NAME=قيمة اسم قاعدة البيانات=<%=request(databasename)%>>
<br>مسار الملف: <INPUT TYPE=text NAME=bak_file value=c:/$1.bak> (مسار ملف النسخ الاحتياطي أو الاسترداد)<br>
<نوع الإدخال=قيمة الإرسال=معرف موافق=اسم الإرسال1=إرسال1>
</النموذج>
<%
'النسخ الاحتياطي والاسترداد لقاعدة بيانات SQL Server!
إذا طلب (الإجراء) = قاعدة بيانات النسخ الاحتياطي ثم
خافت sqlserver،sqlname،sqlpassword،sqlLoginTimeout،اسم قاعدة البيانات،bak_file،act
sqlserver=localhost
sqlname=sa
sqlpassword=password
سكللوجينتيميوت = 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>
elseif act=restore ثم
'يجب إجراء الاستعادة عندما لا تكون قاعدة البيانات قيد الاستخدام!
تعيين 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>
نهاية إذا
نهاية إذا
نهاية إذا
%>