2.8w+
社区成员
- 主页
200求助用ASP程序来自动压缩文件或文件夹成为.zip或者.rar格式的
200求助用ASP程序来自动压缩文件或文件夹成为.zip或者.rar格式的，等待！分数不够可以另来贴给分！
...全文
请发表友善的回复…
发表回复
calmer18 2004-04-30
学习 留名
jnyezhi 2004-04-07
谁说共享了？你在本机就了不起啦？在本机也要使用IIS匿名用户来进行访问啊！！！跟在其他机器有什么区别？
er1981 2004-04-07
我是在本机上测试的！ 没有什么共享一说啊！
叮咚叮咚叮叮咚 2004-04-07
学习学习~
jasonboy 2004-04-07
关注
er1981 2004-04-07
还想问一下！ 可以这么写吗？
<%
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
%>
<%
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
%>
er1981 2004-04-07
问题解决，马上借贴！
潜水的鱼 2004-04-06
gz
jnyezhi 2004-04-06
我不能确定你是否真的注册了，因为破解版的一版只破解winrar.exe，而不破解rar.exe
另外，你给你的cmd.exe和测试目录赋予everyone完全控制的权限吧，问题应该出在权限上。
另外，你给你的cmd.exe和测试目录赋予everyone完全控制的权限吧，问题应该出在权限上。
er1981 2004-04-06
注册给
-user-
single PC usage license
你看这算注册了吗？ 我的都需要有管理权限的，我只需要能实现这个功能，安全性我会考虑的！
-user-
single PC usage license
你看这算注册了吗？ 我的都需要有管理权限的，我只需要能实现这个功能，安全性我会考虑的！
全息宇宙 2004-04-06
我们公司以前用php做过一个
只要知道rar地压缩格式，就能做
只要知道rar地压缩格式，就能做
jnyezhi 2004-04-06
代码是我测试通过的，肯定没问题。
你的WINRAR注册了吗？未注册是不能使用命令行的RAR的。
你的WINRAR注册了吗？未注册是不能使用命令行的RAR的。
dangsz 2004-04-06
这还得了，行不通吧，随然我是新手。
如果这样成功的话。
如果压缩保里放的有木马程序或其它探钟程序等等，世界乱套了。
如果这样成功的话。
如果压缩保里放的有木马程序或其它探钟程序等等，世界乱套了。
sfar 2004-04-06
借这个帖子问一下：
在代码中创建的WScript.Shell是在服务器端还是客户端创建的，
是否CreateObject创建的对象是在客户端创建的，Server.CreateObject创建的对象是在服务器端创建的。
在代码中创建的WScript.Shell是在服务器端还是客户端创建的，
是否CreateObject创建的对象是在客户端创建的，Server.CreateObject创建的对象是在服务器端创建的。
er1981 2004-04-06
这样也不可以啊！ 我测试了 按理说应该能在我的c:/下生成一个D.RAR的文件，但是没有啊！
jnyezhi 2004-04-06
老大，不能用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
%>
<%
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 2004-04-06
我想要达到的目的就是让用户自动下载某一个文件夹中的所有东西，所以我要把文件夹压缩然后下载！
er1981 2004-04-06
<%
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盘，但是我这样也不行啊！
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盘，但是我这样也不行啊！
aojiankd 2004-04-06
这样不是产生了安全问题?
aojiankd 2004-04-06
试试