用asp程序调用压缩winzip

谁能写个asp程序或告诉我，怎样把网站的文件夹和文件压缩成一个zip文件， 

我用了winnt 下WSH 的来调用程序winzip.exe 程序一直处处以运行中.

代码:
<%
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("c:\WinZip\WZSEPE32.EXE" ,1, true)
%>
请高手指点

IsSuccess = WshShell.Run ("c:\WinZip\WZSEPE32.EXE c:\myfile.zip c:\mypath\*.*" ,1, true)

好象还是老样
c:\myfile.zip 与c:\mypath\*.*是指什么？能解释下吗？ 

c:\myfile.zip 是要生成的目的文件
c:\mypath\*.*是某路径下的所有源文件

我也是这样理解的，但是还是不行，不知怎回事？文件一直处于运行状态， 

你以前有没有掉用过wsh,？
<%
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("c:\WinZip\WZSEPE32.EXE c:\myfile.zip c:\mypath\*.*" ,1, true)
%>
这样就可以了吗，程序会自动切到dos下吗？还是要加别的代码？请指点？

<%set fs=server.createobject("wscript.shell")
syf=fs.run("WinRAR.exe a -s c:\syf.rar c:\driver\*.*",1,true) 

%>我用这个行，我想ZIP也需要加参数吧，你可以先在DOS下试试看WinRAR.exe a -s c:\syf.rar c:\driver\*.*

我运行时无法显示， 

我c:\111\*.* 
syf.rar 要自己键吗？
<%set fs=server.createobject("wscript.shell")
syf=fs.run("WinRAR.exe a -s c:\syf.rar c:\111\*.*",1,true)
%>
我在dos上能运行，不知怎回事？

你的服务器上装RAR了吗，我看看，再有你可以看看RAR的帮助文件，只要用命令行能执行就应该没有问题的
syf.rar是自己起的，没错，

运行时候肯定是没有显示的。是在服务器的后台运行。 

几点注意：
winrar的路径中最好别有空格。路径最好写完整的绝对路径。
winzip也一样，先看看在DOS下能不能运行。如果能，那么在ASP中也能。