<%dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fsoMlpath="E:pagemian" '存放RAR.EXE和CMD.EXE的路径ylj=Server.mappath("mian")&"" '解压文件后所放的路径ywj=Server.mappath("mianapathy.rar") '要解压的RAR文件Set Shell = Server.CreateObject("WScript.Shell")rarcomm= "E:pagemiancmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- "cmd=rarcomm&ywj&" "&yljRetCode = Shell.Run(cmd,1, True)%> 就是用Server.CreateObject("WScript.Shell")来执行CMD.EXE来运行RAR.EXE文件来解压RAR文件的。

　　推荐阅读

　　ASP页面随机添加字符实现防复制的代码

<% '作用:文字防复制乱码 函数 'Date:2006-3-6 '作者:blue2004 '参数str 为原文,str1作者也是你自己,reslut产生乱码的种子 Function ReadToCode(str,Str1,result) >>>详细阅读

本文标题：ASP在服务器自动解压RAR文件

地址：http://www.17bianji.com/kaifa2/ASP/32434.html

 1/2    1