头一低，很多年都这样过去了...

欢迎来到Kittow的部落格！ - http://blog.skyhe.com

Agile Web Development (敏捷Web开发)

Want to Know Something More? Move Your Mouse Here;)

我是天空的一片云，偶尔投影在你的波心，你记得也好，最好你忘掉，你我在交汇时，互放的光亮。
——徐志摩《偶然》 More...

我的VOA听写积分

[Contact Me]
2004-9-29 [返回]
ASP自动解压RAR文件
<% 

dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso 

Mlpath="E:\page\mian\"　　'存放RAR.EXE和CMD.EXE的路径 

ylj=Server.mappath("mian")&"\"　'解压文件后所放的路径 

ywj=Server.mappath("mian\apathy.rar")　'要解压的RAR文件 

Set Shell = Server.CreateObject("WScript.Shell") 

rarcomm= "E:\page\mian\cmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- " 

cmd=rarcomm&ywj&" "&ylj 

RetCode = Shell.Run(cmd,1, True) 

%>

必须要服务器支持WSH的执行权限才行
http://www.51js.com/viewthread.php?fpage=2&tid=12267
转自：天河网 | www.skyhe.com

Posted at 1:11 PM | Comments[0]

转自：天河网 | www.skyhe.com

发表评论
We Used Ajax to Post Your Comment!
本站评论系统采用Ajax技术,无刷新发送评论
您的大名 *   
电子邮件  
5+6=? *(请输入“5+6=?”的结果)
评论内容 *