高校问答在县城代理什么产品好:把网页或是文件压缩成rar格式，再上传到虚拟空间,然后在空间里解压
来源：百度文库 编辑：高校问答 时间：2024/04/26 16:17:07
把网页或是文件压缩成 .rar 格式，再上传到虚拟空间,然后在空间里解压.这样的话，管理网站将效率大大提高，现在求这方面的asp代码,请知道这方面的朋友贡献，代码能用才给分
＜%
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:\chencheng\rar\" `上传后Winrar.exe和cmd.exe后的路径。
a=Server.mappath("rar")&"\" '解压rar文件后的存放路径。
b=Server.mappath("rar\homepage.rar") '要解压的rar文件，把其中homepage.rar修改为需要解压缩的文件。
Set Shell = Server.CreateObject("WScript.Shell")
Runing= "d:\chencheng\rar\cmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " ’设置运行解压缩的命令。
Cmd=Run&b&" "&a
Runcode = Shell.Run(Cmd,1, True)
%＞
这个代码用不上，是怎么回事，能把这个程序调好，麻烦给我打个包，我多加 50分给你
一楼的 您好,FSO权限是吗?当然有了
＜%
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:\chencheng\rar\" `上传后Winrar.exe和cmd.exe后的路径。
a=Server.mappath("rar")&"\" '解压rar文件后的存放路径。
b=Server.mappath("rar\homepage.rar") '要解压的rar文件，把其中homepage.rar修改为需要解压缩的文件。
Set Shell = Server.CreateObject("WScript.Shell")
Runing= "d:\chencheng\rar\cmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " ’设置运行解压缩的命令。
Cmd=Run&b&" "&a
Runcode = Shell.Run(Cmd,1, True)
%＞
这个代码用不上，是怎么回事，能把这个程序调好，麻烦给我打个包，我多加 50分给你
一楼的 您好,FSO权限是吗?当然有了
不可能的
除非你有服务器的权限:)
根本不可能的（除非你有服务器的权限）