天天站长

 找回密码
 用户注册
楼主: 站长论坛

常见打包下载的mdb文件解包问题,常见格式有*.mdb,*.tdb,*.Xml

[复制链接]

0

主题

0

听众

96

积分

初级会员

Rank: 1

UID
2165
积分
96
威望
1
金币
15
贡献
0
活跃
0
魅力
0
注册时间
2007-4-16
发表于 2007-4-17 13:10:46 |显示全部楼层

2222222222222222

2222222222222222
1

查看全部评分

回复

使用道具 举报

0

主题

0

听众

65

积分

初级会员

Rank: 1

UID
1286
积分
65
威望
-9
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-8
发表于 2007-4-17 18:48:15 |显示全部楼层
常见打包下载的mdb文件解包问题,常见格式有*.mdb,*.tdb
把红色代码保存为解压.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=Packet.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
其中红色字为你的文件名
1

查看全部评分

回复

使用道具 举报

0

主题

0

听众

26

积分

初级会员

Rank: 1

UID
2356
积分
26
威望
-14
金币
4
贡献
0
活跃
0
魅力
0
注册时间
2007-4-17
发表于 2007-4-17 22:54:16 |显示全部楼层
看看,东西不错   
回复

使用道具 举报

0

主题

0

听众

34

积分

初级会员

Rank: 1

UID
1315
积分
34
威望
-2
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-9
发表于 2007-4-18 02:11:37 |显示全部楼层
的mdb文件解包问题,常见格式有*.mdb,*.tdb » 发表回复
1

查看全部评分

回复

使用道具 举报

0

主题

0

听众

5

积分

初级会员

Rank: 1

UID
2389
积分
5
威望
0
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-18
发表于 2007-4-18 11:39:31 |显示全部楼层
哈哈。。长见识了!!!
回复

使用道具 举报

0

主题

0

听众

48

积分

初级会员

Rank: 1

UID
615
积分
48
威望
-4
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-2
发表于 2007-4-18 12:05:27 |显示全部楼层
» 源代码交流区 » 整站的生成静态页程序 » 发表回复
1

查看全部评分

回复

使用道具 举报

0

主题

0

听众

-2

积分

丐帮弟子

UID
2443
积分
-2
威望
0
金币
-7
贡献
-2
活跃
0
魅力
0
注册时间
2007-4-18
发表于 2007-4-18 14:32:16 |显示全部楼层
要这个才能解压的吗?
转载请保留出处,谢谢!此帖转自智联网信[http://bbs.13925.com/]原帖地址:http://bbs.13925.com/viewthread.php?tid=1304
回复

使用道具 举报

0

主题

0

听众

91

积分

初级会员

Rank: 1

UID
2477
积分
91
威望
0
金币
62
贡献
0
活跃
0
魅力
0
注册时间
2007-4-18
发表于 2007-4-18 16:10:58 |显示全部楼层

回复 #1 适者生存 的帖子

问题得到解决
谢谢管理员大哥
回复

使用道具 举报

0

主题

0

听众

-4

积分

丐帮弟子

UID
2543
积分
-4
威望
-2
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-18
发表于 2007-4-18 22:36:01 |显示全部楼层

fsd

fdsfffffffffffffff
1

查看全部评分

回复

使用道具 举报

0

主题

0

听众

2

积分

初级会员

Rank: 1

UID
2590
积分
2
威望
-2
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-19
发表于 2007-4-19 08:28:54 |显示全部楼层
11111111111111111
1

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 用户注册


|申请友情链接|关于我们|商家合作|广告报价|联系我们|法律声明|隐私条款|无图浏览|手机浏览|  


敬请您尊重网上道德,遵守《全国人大常委会关于维护互联网安全的决定》及中华人民共和国其它各项有关法律法规。

本网所有帖子均来源网友上传,本站未进行任何修改和未获取任何利益,且仅代表作者本人意见,不代表本网站立场。

天天站长 技术支持:杭州桐庐家园网络技术有限公司 广告合作:13968063988 在线QQ:18118865

Copyright ©2003-2012 Powered by 安网数据 All Rights Reserved. 备案信息:浙B2-20060153号