天天站长

 找回密码
 用户注册
查看: 5340809|回复: 833

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

[复制链接]

19

主题

2

听众

3万

积分

管理员

Awidc Inc

Rank: 9Rank: 9Rank: 9

UID
1
积分
38006
威望
2461
金币
13355
贡献
1014
活跃
121
魅力
1
注册时间
2007-3-18

贴图大师奖 论坛鼓励奖 聊天天才奖 论坛卫士奖 最佳宣传奖

发表于 2007-3-25 23:58:13 |显示全部楼层
把代码保存为解压.vbs文件
  1. Dim rs, ws, fso, conn, stream, connStr, theFolder
  2. Set rs = Createobject("ADODB.RecordSet")
  3. Set stream = Createobject("ADODB.Stream")
  4. Set conn = Createobject("ADODB.Connection")
  5. Set fso = Createobject("Scripting.FileSystemobject")
  6. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[b][color=red]Packet.mdb[/color][/b];"
  7. conn.Open connStr
  8. rs.Open "FileData", conn, 1, 1
  9. stream.Open
  10. stream.Type = 1
  11. On Error Resume Next
  12. Do Until rs.Eof
  13. theFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\"))
  14. If fso.FolderExists(theFolder) = False Then
  15.   createFolder(theFolder)
  16. End If
  17. stream.SetEos()
  18. stream.Write rs("fileContent")
  19. stream.SaveToFile str & rs("thePath"), 2
  20. rs.MoveNext
  21. Loop
  22. rs.Close
  23. conn.Close
  24. stream.Close
  25. Set ws = Nothing
  26. Set rs = Nothing
  27. Set stream = Nothing
  28. Set conn = Nothing
  29. Wscript.Echo "所有文件释放完毕!"
  30. Sub createFolder(thePath)
  31. Dim i
  32. i = Instr(thePath, "\")
  33. Do While i > 0
  34.   If fso.FolderExists(Left(thePath, i)) = False Then
  35.    fso.CreateFolder(Left(thePath, i - 1))
  36.   End If
  37.   If InStr(Mid(thePath, i + 1), "\") Then
  38.    i = i + Instr(Mid(thePath, i + 1), "\")
  39.    Else
  40.    i = 0
  41.   End If
  42. Loop
  43. End Sub
复制代码


双击解包!!!!!!
解包工具下载

游客,如果您要查看本帖隐藏内容请回复



把文件打包成Xml文件包,带解包的ASP工具!
把网站源码全部打包到Xml文件里面,生成 updata.xml 文件,把xml文件上传到空间里面
然后通过 install.asp文件将文件全部释放出来。
就和z-blog的 自动安装包一样的功能呵呵。
代码是落伍的一位兄弟写的,不过代码好像有错误,这个是我参考他的 修改过了,可以正常运行!~~
此代码可以应用到 asp程序的 自动升级服务上面。具体怎么来实现,欢迎探讨!~~
就在下面回帖探讨!~~~
不用设定打包目录版,需要设定打包目录版 这两个版本的区别:
不用设定打包目录版,直接放到你需要打包的目录 执行就可以了。
需要设定打包目录版,必须指定需要打包的路径(在程序里修改),不指定,不能进行打包。

游客,如果您要查看本帖隐藏内容请回复

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?用户注册

0

主题

0

听众

19

积分

初级会员

Rank: 1

UID
567
积分
19
威望
2
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-2
发表于 2007-4-2 10:38:32 |显示全部楼层
密码是什么吖?
回复

使用道具 举报

0

主题

0

听众

5

积分

初级会员

Rank: 1

UID
1212
积分
5
威望
0
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-8
发表于 2007-4-8 06:51:16 |显示全部楼层
mdb shi shi me
回复

使用道具 举报

0

主题

0

听众

-36

积分

丐帮弟子

UID
887
积分
-36
威望
-110
金币
-64
贡献
0
活跃
0
魅力
0
注册时间
2007-4-5
发表于 2007-4-8 11:57:22 |显示全部楼层
智联网信http://www.188R.com双光纤空间及服务器全面启动!
双光纤虚拟服务器可以(达到南=北 | 电信=网通)访问都快。
这样最大限度的留住您全国的客户。
转载请保留出处,谢谢!此帖转自智联网信[http://bbs.13925.com/]原帖地址:http://bbs.13925.com/viewthread.php?tid=1304
回复

使用道具 举报

0

主题

0

听众

-3

积分

丐帮弟子

UID
1308
积分
-3
威望
-2
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-9
发表于 2007-4-9 01:00:32 |显示全部楼层
用用看看。。
用用看看。。
转载请保留出处,谢谢!此帖转自智联网信[http://bbs.13925.com/]原帖地址:http://bbs.13925.com/viewthread.php?tid=1304
回复

使用道具 举报

0

主题

0

听众

-3

积分

丐帮弟子

UID
1308
积分
-3
威望
-2
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-9
发表于 2007-4-9 01:03:14 |显示全部楼层
packetpacketpacketpacket
1

查看全部评分

回复

使用道具 举报

0

主题

0

听众

-3

积分

丐帮弟子

UID
1309
积分
-3
威望
-4
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-9
发表于 2007-4-9 02:24:33 |显示全部楼层
dfg dfg                                    g
1

查看全部评分

回复

使用道具 举报

0

主题

0

听众

61

积分

初级会员

Rank: 1

UID
599
积分
61
威望
-4
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-2
发表于 2007-4-9 10:06:09 |显示全部楼层
dgfdjfjvhdjjdfhfjdfkdsfkhkjhhjhfdhgjklkjkhjghfgdfhkljhjghfhjkljkhjhgfghfhjjhjjghfg
1

查看全部评分

回复

使用道具 举报

0

主题

0

听众

27

积分

初级会员

Rank: 1

UID
1249
积分
27
威望
0
金币
3
贡献
0
活跃
0
魅力
0
注册时间
2007-4-8
发表于 2007-4-9 14:28:20 |显示全部楼层
see see :Q
回复

使用道具 举报

0

主题

0

听众

6

积分

初级会员

Rank: 1

UID
1389
积分
6
威望
-4
金币
0
贡献
0
活跃
0
魅力
0
注册时间
2007-4-10
发表于 2007-4-10 01:15:41 |显示全部楼层

ssssssssssssss

sssssssssssssssss
1

查看全部评分

回复

使用道具 举报

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


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


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

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

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

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