昨天一个在落伍的朋友给的，一个站的所有文件和图片以二进制的方式放进了数据库里，用下面的代码可以把数据库里的文件和图片还原出来。
把得到的数据库名字改成tomdb.mdb，然后把下面的代码保存成vbs格式。放在同一个目录下，执行这个vbs文件
dim rs, ws, fso, conn, stream, connstr, thefolder
set rs = createobject("adodb.recordset")
set stream = createobject("adodb.stream")
set conn = createobject("adodb.connection")
set 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.open
stream.type = 1
on error resume next
do until rs.eof
thepath = rs("folder") & "\"
thefolder = left(thepath, instrrev(thepath, "\"))
if fso.folderexists(thefolder) = false then
createfolder(thefolder)
end if
stream.seteos()
stream.write rs("body")
stream.savetofile str & thepath & rs("file"), 2
rs.movenext
loop
rs.close
conn.close
stream.close
set ws = nothing
set rs = nothing
set stream = nothing
set conn = nothing
wscript.echo "所有文件释放完毕!"
sub createfolder(thepath)
dim i
i = instr(thepath, "\")
do while i > 0
if fso.folderexists(left(thepath, i)) = false then
fso.createfolder(left(thepath, i - 1))
end if
if instr(mid(thepath, i + 1), "\") then
i = i + instr(mid(thepath, i + 1), "\")
else
i = 0
end if
loop
end sub
