整站二进制数据库文件还原
昨天一个在落伍的朋友给的，一个站的所有文件和图片以二进制的方式放进了数据库里，用下面的代码可以把数据库里的文件和图片还原出来。
把得到的数据库名字改成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.Typ...[ 查看全文 ]
2016-02-19
标签:
