帮忙提供一个测试可用的ASP在线压缩和解压代码

allenxia 2010-07-01 03:30:12
网上找了不少,实际调试中都不可用。。。
谁能给我提供正确的代码呢,非常感激~~~
代码越详细越好。
...全文
28 点赞 收藏 6
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
2321zhf 2010-07-14
给你一个思路 打包的时候用.net ICSharpCode.SharpZipLib
回复
allenxia 2010-07-14
还没搞定
回复
scscms太阳光 2010-07-01
使用XML打包吧
http://cyad.blog.163.com/blog/static/5436879200922185215450/
回复
lerok 2010-07-01
給個思路你可以參考一下:
old_FileName=Server.MapPath(FileName)
new_FileName=Server.MapPath(example_Path)&"\"&writeFile&".rar"
'== ↓分析上傳 Winrar.exe 的路徑(MainDir)↓ ==
tmpPath=request.ServerVariables("PATH_TRANSLATED")
tmpPath="\"&split(tmpPath,"\")(ubound(split(tmpPath,"\")))
MainDir=replace(request.ServerVariables("PATH_TRANSLATED"),tmpPath,"")
'== ↑分析上傳 Winrar.exe 的路徑(MainDir)↑ ==
Set sh=server.createobject("wscript.shell")
cmd=MainDir&"\rar.exe a -ep1 "&new_FileName&" "&old_FileName
sh.run(cmd)
Set sh=nothing

此方式有個缺點就是無法得知壓縮的進度。
記得把rar.exe copy到正確的目錄。
回复
[Quote=引用 1 楼 yangtututu 的回复:]
。。。 你给我发工资 我给你写一个吧,呵呵

直接调用 SHELL 来完成啊
[/Quote]
同感。给思路就可以了吧。自己的事情还不干吗,知道思路或者能解决但自己不了解的技术,就去查查资料学习一下。无论是学习还是工作,都是你自己的事情。
回复
yangtututu 2010-07-01
。。。 你给我发工资 我给你写一个吧,呵呵

直接调用 SHELL 来完成啊
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告