当前位置:首页 > 资源分享 > 正文内容

MDB解压代码工具

光的传人11年前 (2014-09-09)资源分享3769

asp网站整站打包下载怎么弄?其实有很多asp格式的webshell支持整站下载的,但是下载下来的程序后缀名是mdb格式,怎么打开呢?用webshell打包速度非常快,令人惊叹的是,用MDB解压代码解压速度更快!超乎我的想象!下面分享下MDB解压代码(将下列代码复制到文本文档里,然后保存,重命名为VBS格式的文件,与打包的HSH.mdb放在同一目录下,执行即可快速解压):

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=HSH.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

是不是瞬间解压?非常不错!

扫描二维码推送至手机访问。

版权声明:本文由光的传人博客www.liu16.com发布,如需转载请注明出处。

本文链接:http://www.liu16.com/post/MDB.html

标签: 经验模板
分享给朋友:

相关文章

织梦dede精仿阿里百秀html5自适应文章资讯模板免费下载

织梦dede精仿阿里百秀html5自适应文章资讯模板免费下载

为庆祝本博客成立3周年,特此分享刚刚弄到的html5自适应模板。说是精仿阿里百秀,查了下阿里百秀这个网站,发现并不是一个知名的网站,今年2月份刚建立的站,可能这不是原版的作者吧。还有一篇博客文章在吐槽阿里百秀WP主题的——《阿里百秀 做垃圾...

dede织梦手机通用wap模板,平板手机端屏幕自适应织梦模板Html5免费下载

dede织梦手机通用wap模板,平板手机端屏幕自适应织梦模板Html5免费下载

关于织梦dedecms的手机模板找了很久,终于找到一个无错套上就能使用的模板。虽然这个模板在很多源码网站上都是收费的,甚至100元,还有必须终身VIP才能下载,但还是有热心的网友分享给了我,已测试,完整无错(无运行错误,可能还需要自己适当调...

移动卡刷钻PK联通卡刷钻

移动卡刷钻PK联通卡刷钻

也许有些人会说,刷钻是钻空子,不是正人君子做的事!但是我要说,从技术角度上来说,研究一下这些漏洞还是不错的!有东西来研究,时间就过得很快!这不,研究了一晚上的移动卡刷钻,原理知道了,但是实践没成功,操作设备不给力啊!有空再试一下!话说,联通...

aspcms修改产品图片大小技巧分享

aspcms修改产品图片大小技巧分享

听网友们说,最近aspcms比较火,于是这几天了解了下aspcms,发现模板比较多,对于企业站该有的功能都有,并且能生成静态页面。刚好朋友要建一个自己的网站,我就帮他用这个做了一个,发现非常实用,模版也非常不错,稍微修改一下就能用,而且免费...

科学上网:号称永久免费的chrome科学上网插件

科学上网:号称永久免费的chrome科学上网插件

本文推荐科学上网2019最新版:猎豹加速器。最近搜索谷歌浏览器应用商店,又发现一枚科学上网插件,名字就叫“科学上网”。最后更新日期: 2015年2月9日,算是比较新的软件了吧。之前用的时候,是完全免费的,昨天更新出现了收费项目。介绍里是这样...

liu16主题风格模板下载(综合Metro主题样式与卢松松色彩风格)

liu16主题风格模板下载(综合Metro主题样式与卢松松色彩风格)

自从z-blog升级到2.0以后,松哥的模板就出现了比较多的不兼容问题,一直喜欢松哥的模板:低调与华丽,想自己修改修改吧,不是自己制作的模板很多东西需要慢慢了解、熟悉才能修改,修改起来非常慢。松哥的模板还是非常不错的,但是要改成兼容Z-Bl...

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法和观点。