استعادة ملفات قاعدة البيانات الثنائية للموقع بأكمله

بالأمس، أعطاني صديقًا كان متأخرًا عن العصر. يتم وضع جميع الملفات والصور الخاصة بموقع ويب في قاعدة البيانات في شكل ثنائي. يمكنك استخدام الكود التالي لاستعادة الملفات والصور في قاعدة البيانات.
قم بتغيير اسم قاعدة البيانات التي تم الحصول عليها إلى ToMdb.mdb، ثم قم بحفظ التعليمة البرمجية التالية في تنسيق VBS. ضعه في نفس الدليل وقم بتنفيذ ملف VBS

Dim rs, ws, fso, conn,stream, connStr, theFolder
مجموعة rs = CreateObject("ADODB.RecordSet")
تعيين الدفق = CreateObject("ADODB.Stream")
تعيين conn = CreateObject("ADODB.Connection")
تعيين fso = CreateObject("Scripting.FileSystemObject")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ToMdb.mdb;"

conn.Open connStr
rs.Open "wz"، conn، 1، 1
تيار.فتح
Stream.Type = 1

عند حدوث خطأ في السيرة الذاتية، ثم

القيام بذلك حتى rs.Eof
المسار = rs("مجلد") & ""
theFolder = Left(thePath, InStrRev(thePath, ""))
إذا كان fso.FolderExists(theFolder) = خطأ، إذن
إنشاء مجلد (المجلد)
نهاية إذا
تيار.SetEos()
تيار.كتابة rs("الجسم")
Stream.SaveToFile str & thepath & rs("file"), 2
rs.MoveNext

الحلقات. إغلاق

conn.Close
تيار.إغلاق
تعيين ws = لا شيء
سيترز = لا شيء
تعيين الدفق = لا شيء
Set conn = Nothing

Wscript.Echo "تم إصدار كافة الملفات!

"
خافت ط
أنا = Instr(thePath، "")
افعل بينما أنا> 0
إذا كان fso.FolderExists(Left(thePath, i)) = خطأ إذن
fso.CreateFolder(Left(thePath, i - 1))
نهاية إذا
إذا كان InStr(Mid(thePath, i + 1), "") ثم
i = i + Instr(Mid(thePath, i + 1), "")
آخر
ط = 0
نهاية إذا
حلقة
نهاية الفرعية