我给公司做了一个网站，是专门做资源的，但是只做了下载，没有做在线浏览，现在网站卖的不好公司想加一个在线浏览的功能，我以前传的都是rar格式的压缩文件，现在要预览就要解决在线解压的问题，哪位大侠有在线解压的代码可不可以帮帮我，在这不胜感激了（我前几天也在网上下了一个代码，可是不能用，有高手替我可以调试一下吗？）
＜%
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)
%＞
这就是网上的代码
<%
dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso
Mlpath="rar\"
ylj=Server.mappath("rar")&"\"
ywj=Server.mappath("rar\abf.rar")
Set Shell = Server.CreateObject("WScript.Shell")
rarcomm= "rar\cmd.exe /c "&Mlpath&"rar.exe x -t"
cmd=rarcomm&ywj&" "&ylj
RetCode = Shell.Run(cmd,1, True)
%>
这是我改的，可是一运行就出错

11

[此贴子已经被作者于2005-4-26 10:07:46编辑过]

11

大哥大姐们，帮帮忙啊~！