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

[allenxia]

网上找了不少，实际调试中都不可用。。。
谁能给我提供正确的代码呢，非常感激~~~
代码越详细越好。

[yangtututu]

。。。 你给我发工资 我给你写一个吧，呵呵

直接调用 SHELL 来完成啊

[碧海情天-赵亮]

[Quote=引用 1 楼 yangtututu 的回复:]
。。。 你给我发工资 我给你写一个吧，呵呵

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

[lerok]

給個思路你可以參考一下：
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到正確的目錄。

[scscms太阳光]

使用XML打包吧
http://cyad.blog.163.com/blog/static/5436879200922185215450/

[allenxia]

还没搞定

[2321zhf]

给你一个思路 打包的时候用.net ICSharpCode.SharpZipLib