Вчера мне его дал отсталый друг. Все файлы и изображения веб-сайта помещаются в базу данных в двоичном виде. Для восстановления файлов и изображений в базе данных можно использовать следующий код.
Измените полученное имя базы данных на ToMdb.mdb, а затем сохраните следующий код в формате VBS. Поместите его в тот же каталог и запустите этот файл VBS.
Dim rs, ws, fso, conn,stream, connStr, theFolder.
Set rs = CreateObject("ADODB.RecordSet")
Установить поток = CreateObject("ADODB.Stream")
Set conn = CreateObject("ADODB.Connection")
Установите fso = CreateObject("Scripting.FileSystemObject")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Источник данных=ToMdb.mdb;"
conn.Open connStr
рс.Открыть "wz", конн, 1, 1
поток.Открыть
stream.Type = 1
При ошибке Возобновить Далее
Делать До rs.Eof
thePath = rs("папка") & ""
theFolder = Left(thePath, InStrRev(thePath, ""))
Если fso.FolderExists(theFolder) = False Тогда
createFolder(Папка)
Конец, если
поток.SetEos()
поток. Напишите rs("тело")
поток.SaveToFile str & thepath & rs("файл"), 2
rs.MoveNext
Looprs.Close
конн.Закрыть
поток.Закрыть
Установить ws = Ничего
Setrs=Ничего
Установить поток = Ничего
Set conn = Nothing
Wscript.Echo «Все файлы освобождены!»
Sub createFolder(thePath)
Дим я
я = Инстр(Путь, "")
Делать, пока я > 0
Если fso.FolderExists(Left(thePath, i)) = False Тогда
fso.CreateFolder(Left(thePath, i - 1))
Конец, если
Если InStr(Mid(thePath, i + 1), "") Тогда
я = я + Instr(Mid(thePath, я + 1), "")
Еще
я = 0
Конец, если
Петля
Конец субтитра