ASP الوصول إلى النسخ الاحتياطي للبيانات، واستعادتها، ورمز الضغط

ASP Access النسخ الاحتياطي للبيانات، واستعادتها، ورمز تنفيذ فئة الضغط، يمكنك الرجوع إليها. <!--#include file=config.asp -->

<!--#include file=Fun.asp -->

<%

"فئة إدارة قواعد البيانات."

بيانات الطبقة

"النسخ الاحتياطي."

فرعي عام ()

اضبط fso=server.createobject(scripting.filesystemobject)

fso.CopyFile Server.MapPath(SiteDataPath)،Server.MapPath(SiteDataBakPath)

تعيين fso=لا شيء

استجابة.كتابة(<لغة النص=جافا سكريبت><!--

تنبيه ("تم النسخ الاحتياطي بنجاح!")؛window.location.href='DataManage.asp'

// --></script>)

النهاية الفرعية

'تخفيض

فرعي عام Rt()

SDPath = server.mappath(SiteDataPath)

SDBPath = server.mappath(SiteDataBakPath)

تعيين Fso=Server.CreateObject(Scripting.FileSystemObject)

إذا كان Fso.FileExists(SDBPath) ثم

Fso.CopyFile SDBPath,SDPath

اضبط Fso = لا شيء

استجابة.كتابة(<لغة النص=جافا سكريبت><!--

تنبيه ("نجاح: لقد نجحت في استعادة قاعدة البيانات!")؛window.location.href='DataManage.asp?action=rt'

// --></script>)

آخر

استجابة.كتابة(<لغة النص=جافا سكريبت><!--

تنبيه ("فشل: يرجى التحقق من وجود المسار واسم قاعدة البيانات")؛window.location.href='DataManage.asp?action=rt'

// --></script>)

نهاية إذا

النهاية الفرعية

'ضغط

العاصمة الفرعية العامة ()

SDBPath = server.mappath(SiteDataBakPath)

تعيين Fso=Server.CreateObject(Scripting.FileSystemObject)

إذا كان Fso.FileExists(SDBPath) ثم

تعيين المحرك =Server.CreateObject(JRO.JetEngine)

إذا كان الطلب (boolIs) = 97 إذن

Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;مصدر البيانات= & SDBPath، _

Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & SDBPath & _temp.mdb;

& Jet OLEDB: نوع المحرك = & JET_3X

آخر

Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;مصدر البيانات= & SDBPath، _

Provider=Microsoft.Jet.OLEDB.4.0;مصدر البيانات= & SDBPath & _temp.mdb

نهاية إذا

Fso.CopyFile SDBPath & _temp.mdb,SDBPath

Fso.DeleteFile(SDBPath & _temp.mdb)

تعيين Fso = لا شيء

ضبط المحرك = لا شيء

استجابة.كتابة(<لغة النص=جافا سكريبت><!--

تنبيه ("نجاح: تم ضغط قاعدة البيانات بنجاح!")؛window.location.href='DataManage.asp?action=dc'

// --></script>)

آخر

استجابة.كتابة(<لغة النص=جافا سكريبت><!--

تنبيه ("فشل: فشل ضغط قاعدة البيانات، يرجى التحقق من وجود المسار واسم قاعدة البيانات!")؛ window.location.href='DataManage.asp?action=dc';

// --></script>)

نهاية إذا

النهاية الفرعية

نهاية الطبقة

%>