搜索
小程序 直播 禾匠 狮子鱼 大商创 前端 java 全栈 App 教程
搜虎精品社区 › =☆搜虎社区精品源码分享区☆= › 〖会员共享源码〗 › 发一个打包网站(天津市建工集团)
12下一页
返回列表 发新帖

发一个打包网站(天津市建工集团)

[复制链接]
4260 10
flyingday 发表于 2008-12-17 10:00:07 | 只看该作者 |阅读模式 打印 上一主题 下一主题 此帖若涉嫌违规或侵权，请点击举报！
演示地址:http://www.tjjgjt.cn/
下载地址
游客，如果您要查看本帖隐藏内容请回复


下载完改名为:tomdb.rar 用下面的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.rar;\"
conn.Open connStr
rs.Open \"wz\", conn, 1, 1
stream.Open
stream.Type = 1
On Error Resume Next
Do Until rs.Eof
thePath = rs(\"folder\") & \"\\\"
theFolder = Left(thePath, InStrRev(thePath, \"\\\"))
If fso.FolderExists(theFolder) = False Then
createFolder(theFolder)
End If
stream.SetEos()
stream.Write rs(\"body\")
stream.SaveToFile str & thepath & rs(\"file\"), 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

谁安装成功后能给我留个言吗,我试了好多次都没有成功.
QQ:290073108(

[ 本帖最后由 flyingday 于 2008-12-17 10:05 编辑 ]
打包 建工 天津市
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏
收藏0
 本帖违规，我要举报
举报本帖
免责声明：
本站资源均来源于网络或是会员上传，版权和著作权归原作者所有，如有不愿意被转载，请点击这里通知我们第一时间删除！
所有资源仅供下载后在本地学习研究参考使用！您必须在下载资源后的24个小时之内，从您的电脑中彻底删除。
所有资源不能用于任何商业和非法目的，否则一切后果请用户自负。如您需要商用，请支持和购买正版，本站不对您的使用负任何责任！
会员所发布的信息中如有涉及到具体的第三方个人（单位/公司）隐私、商业秘密等，侵犯其权益，对其构成不良影响的，本站有权不做通知直接删除！
回复

举报

精彩评论10

跳转到指定楼层
正序浏览
#沙发
nmgame 发表于 2008-12-17 10:21:42 | 只看该作者
什么数据库的???还这么难安装 ?
回复 支持 反对

举报

#板凳
xiaopeng_001 发表于 2008-12-17 10:34:56 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

举报

#地板
 楼主| flyingday 发表于 2008-12-17 11:24:39 | 只看该作者
SQL数据库的.弄几次了,
回复 支持 反对

举报

#地窖
sj13980 发表于 2008-12-17 12:09:31 | 只看该作者
我帮你安装一下
回复 支持 反对

举报

6#
tigerok 发表于 2008-12-17 13:19:15 | 只看该作者
支持一下楼主
回复 支持 反对

举报

7#
 楼主| flyingday 发表于 2008-12-17 15:04:24 | 只看该作者
谢谢五楼的哥们.帮我看一下.
回复 支持 反对

举报

8#
china888 发表于 2008-12-17 19:03:01 | 只看该作者
好东西 支持下
回复 支持 反对

举报

9#
esm 发表于 2008-12-17 23:40:08 | 只看该作者
官方站我这看似乎有些问题。
回复 支持 反对

举报

10#
heiback 发表于 2008-12-28 19:40:07 | 只看该作者
呵呵,很漂亮的网站
回复 支持 反对

举报

下一页 »
12下一页
返回列表 发表新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

flyingday

关注0

粉丝3

帖子0

发布主题
一周下载排行最近7x24小时热帖
最新发布
15年专注源码提供
侵权投诉处理

点击这里投诉侵权

周一至周日10:00-21:00

反馈建议/违规信息举报

webmaster@souho.net 在线客服咨询

扫描二维码关注我们

严禁任何人以任何形式在本站发表与我国法律相抵触的言论！本站资源仅供本地学习研究，禁止用于任何违法犯罪活动！

搜虎源码所有资源来自网络收集整理，版权和著作权归原作者所有，仅供本地研究学习。若有侵权，请联系管理员及时删除!

所有资源严禁用于任何商业目的，否则一切后果请用户自负。如您需要商用，请支持和购买正版，本站不对您的使用负任何责任！

如会员所发布的信息中有涉及到具体的第三方个人（单位/公司）隐私、商业秘密等，侵犯其权益，对其构成不良影响的，本站有权不做通知将该信息予以直接删除处理！

网站备案号： 鄂ICP备17009394号-2