กู้คืนไฟล์ฐานข้อมูลไบนารีของทั้งไซต์

เมื่อวานนี้เพื่อนที่อยู่เบื้องหลังเวลาให้ฉัน ไฟล์และรูปภาพทั้งหมดของเว็บไซต์ถูกใส่ลงในฐานข้อมูลในรูปแบบไบนารี คุณสามารถใช้โค้ดต่อไปนี้เพื่อกู้คืนไฟล์และรูปภาพในฐานข้อมูล
เปลี่ยนชื่อฐานข้อมูลที่ได้รับเป็น 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 = "ผู้ให้บริการ=Microsoft.Jet.OLEDB.4.0;แหล่งข้อมูล=ToMdb.mdb;

"
rs.เปิด "wz", conn, 1, 1
สตรีม.เปิด
stream.Type = 1

On Error Resume Next

Do Until rs.Eof
thePath = rs("โฟลเดอร์") & ""
theFolder = ซ้าย (thePath, InStrRev (thePath, ""))
ถ้า fso.FolderExists(theFolder) = False แล้ว
createFolder(โฟลเดอร์)
สิ้นสุดถ้า
กระแส SetEos()
stream.Write rs("เนื้อหา")
stream.SaveToFile str & thepath & rs("ไฟล์"), 2
rs.MoveNext

Looprs.ปิด

เชื่อมต่อปิด
สตรีมปิด
ตั้ง ws = ไม่มีเลย
Setrs=ไม่มีอะไร
ตั้งค่าสตรีม = ไม่มีอะไรเลย
Set conn = Nothing

Wscript.Echo "ไฟล์ทั้งหมดได้รับการเผยแพร่แล้ว!"

Sub createFolder(thePath)
ดิม ไอ
i = Instr(thePath, "")
ทำในขณะที่ฉัน> 0
ถ้า fso.FolderExists(Left(thePath, i)) = False จากนั้น
fso.CreateFolder (ซ้าย (thePath, i - 1))
สิ้นสุดถ้า
ถ้า InStr(Mid(thePath, i + 1), "") จากนั้น
i = i + Instr(Mid(thePath, i + 1), "")
อื่น
ฉัน = 0
สิ้นสุดถ้า
วนซ้ำ
จบหมวดย่อย