200求助用ASP程序来自动压缩文件或文件夹成为.zip或者.rar格式的

[er1981]

200求助用ASP程序来自动压缩文件或文件夹成为.zip或者.rar格式的，等待！分数不够可以另来贴给分！

[aojiankd]

试试

[aojiankd]

这样不是产生了安全问题?

[er1981]

<%
strPath = "d:\Program Files\WinRAR\rar.exe a"
Set objWshShell = CreateObject("WScript.Shell")
strRun = "CMD /D "&strPath&" C:\d.rar C:\d.doc"
strReturn = objWshShell.Run(strRun,1,True)
Set objWshShell = Nothing
%>
我的rar是安装D盘，但是我这样也不行啊！

[er1981]

我想要达到的目的就是让用户自动下载某一个文件夹中的所有东西，所以我要把文件夹压缩然后下载！

[jnyezhi]

老大，不能用program files，必须用dos格式
<%
strPath = "D:\Progra~1\winrar\rar.exe a"
Set objWshShell = CreateObject("WScript.Shell")
strRun = "CMD /C "&strPath&" C:\d.rar C:\d.doc"
strReturn = objWshShell.Run(strRun,1,True)
Set objWshShell = Nothing
%>

[er1981]

这样也不可以啊！ 我测试了 按理说应该能在我的c:/下生成一个D.RAR的文件，但是没有啊！

[sfar]

借这个帖子问一下：
在代码中创建的WScript.Shell是在服务器端还是客户端创建的，
是否CreateObject创建的对象是在客户端创建的，Server.CreateObject创建的对象是在服务器端创建的。

[dangsz]

这还得了，行不通吧，随然我是新手。
如果这样成功的话。
如果压缩保里放的有木马程序或其它探钟程序等等，世界乱套了。

[jnyezhi]

代码是我测试通过的，肯定没问题。
你的WINRAR注册了吗？未注册是不能使用命令行的RAR的。

[全息宇宙]

我们公司以前用php做过一个
只要知道rar地压缩格式，就能做

[er1981]

注册给
-user-

single PC usage license

你看这算注册了吗？ 我的都需要有管理权限的，我只需要能实现这个功能，安全性我会考虑的！

[jnyezhi]

我不能确定你是否真的注册了，因为破解版的一版只破解winrar.exe，而不破解rar.exe
另外，你给你的cmd.exe和测试目录赋予everyone完全控制的权限吧，问题应该出在权限上。

[潜水的鱼]

gz

[er1981]

问题解决，马上借贴！

[er1981]

还想问一下！ 可以这么写吗？

<%
strPath = "D:\Progra~1\winrar\rar.exe a"
Set objWshShell = CreateObject("WScript.Shell")
strRun = "CMD /C "&strPath&" http://210.46.104.77/e.rar http://210.46.104.77/d.doc"
strReturn = objWshShell.Run(strRun,1,True)
Set objWshShell = Nothing
%>

[jasonboy]

关注

[叮咚叮咚叮叮咚]

学习学习~

[er1981]

我是在本机上测试的！ 没有什么共享一说啊！

[jnyezhi]

谁说共享了？你在本机就了不起啦？在本机也要使用IIS匿名用户来进行访问啊！！！跟在其他机器有什么区别？

[calmer18]

学习 留名