MDB格式网站文件如何解压
来源:试验箱 时间:2008-07-02 12:48:00
昨天打包下载了一个服务器整站,拿到这个*.mdb的文件后,却不知道怎么用,百度了一下,才知道是一种木马打包的形式文件,不能用WINrar来解压缩,可以用海洋打包工具进行解压缩,但是这个工具很难找。后来在网上找到一种更简单的方法,跟大家一起分享下。
将*.MDB的文件放在本地的某个文件夹,把下面代码写进记事本,保存为unpack.vbs文件,把待解压文件改名为HYTop.mdb后执行解压。把VB脚本文件和MDB文件放在一个目录里,执行VB脚本就行了(双击这个脚本)。稍等几分钟时间,完成之后会提示的。(没有完成强行退出解的是不完整的包)
unpack.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=HYTop.mdb;"
conn.Open connStr
rs.Open "FileData", conn, 1, 1
stream.Open
stream.Type = 1
On Error Resume Next
Do Until rs.Eof
theFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\"))
If fso.FolderExists(theFolder) = False Then
createFolder(theFolder)
End If
stream.SetEos()
stream.Write rs("fileContent")
stream.SaveToFile str & rs("thePath"), 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
标签:mdb,解压,服务器
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Mootools常用方法扩展(一)
2009-01-09 12:45:00
asp如何向客户端发送提示“出错信息”?
2010-06-09 18:50:00
实现UTF8转换GB2312国标码的asp代码
2011-02-28 10:53:00
在IE8中继续使用滤镜及IE8的一些CSS扩展属性
2009-02-21 11:18:00
符合标准的纯CSS三 级弹出菜单
2008-01-06 15:34:00
![](https://img.aspxhome.com/file/UploadPic/20081/6/200816154232905s.gif)
不用为美化select烦恼模仿combox(select)控件
2007-08-04 21:08:00
![](https://img.aspxhome.com/file/UploadPic/20078/4/20078421213719.gif)
ExpiresAbsolute 属性
2008-05-05 12:49:00
CSS Expression 的优化
2009-09-24 13:27:00
CSS在页面布局中实现div水平居中的方法总结
2008-06-03 12:09:00
用Css来制作一个漂亮的多选列表框
2008-05-29 12:45:00
insert select与select into 的用法使用说明
2012-01-05 18:47:58
分享整理的12条sql语句连同数据
2012-07-11 16:14:59
CSS实现元素透明的那些事
2009-09-07 12:22:00
QQ影音感念亲恩皮肤,不只是大按钮这么简单
2009-01-04 14:16:00
![](https://img.aspxhome.com/file/UploadPic/20091/4/0812_qqplayer_bigbutton_01-96s.jpg)
PHP结构型模式之代理模式
2023-05-25 06:55:34
Dreamweaver处理word文档有妙招
2008-05-23 13:00:00
![](https://img.aspxhome.com/file/UploadPic/20072/200723113546322s.jpg)
MySQL数据库搜索中的大小写敏感性
2008-11-24 12:44:00
SQL Server中应当怎样得到自动编号字段
2009-01-15 12:48:00
Dreamweaver里使用层的一些建议
2010-03-25 12:27:00
如何增大MYSQL数据库连接数
2010-10-25 20:28:00