exefile=server.mappath("rar.exe")
zipfile=……
…
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run (exefile&" a -ep1 -m1 "&zipfile&" "&strfiles&" ",1,true)
if IsSuccess = 0 Then
Response.redirect "temp/"&zipfilename&".rar"
else
Response.write "压缩失败!"
end if
这是我写一个在线压缩的小东西,你看一看,可以改成执行任何dos的exe文件,只要这个是没有界面的。当然你的程序要有调用wsh的权限