ASP自动解压RAR文件代码
作者:佚名 来源:动网 时间:2007-11-06 13:29:00
其实想实现这种功能很简单,首先要上传一个RAR的解压程序,就是RAR自己的解压程序,只需要它的核心程序RAR.EXE这个文件就可以了。然后就要上传一个执行RAR.EXE的程序 CMD.EXE 这个是windows里的程序(不必我在多说了吧)。最后就开始执行这些程序了。
看一下下面的代码
<%
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)
%>
就是用Server.CreateObject("WScript.Shell")来执行CMD.EXE来运行RAR.EXE文件来解压RAR文件的。
以前不知道是否有前辈们发表过这些文章,但那位兄弟有兴趣的可以以用这种方法来实现诸多类似与这样的程序,希望你们可以找到一些更好的方法。
标签:rar,解压,asp
0
投稿
猜你喜欢
JScript 运算符
2007-08-22 16:22:00
photoshop快捷键大全及使用技巧
2007-10-26 07:40:00
服务器响应HTTP的类型ContentType大全
2007-10-23 10:21:00
腾讯注册页面的 JS 解密
2009-11-18 12:50:00
ASP将Excel数据导入到SQLServer的实现代码
2011-03-10 10:38:00
页面重构中的组件制作要点
2009-10-25 13:06:00
Mysql Innodb引擎优化(参数篇)
2010-05-02 19:57:00
Bowman vs Google-设计与数据彼此相互需要
2009-08-16 16:06:00
JS通过FSO将unicode字符写入文本
2009-06-01 12:26:00
十个简单好用的设计技巧[译]
2009-04-08 12:56:00
关于超级链接的一些问题
2007-12-07 14:00:00
不要跳转或刷新 实现网页区域选择显示
2010-07-02 16:25:00
通过视图修改数据时所应掌握的基本准则
2009-01-07 14:22:00
网页版面布局的方法及技巧
2007-10-29 12:41:00
MySQL 函数过程递归
2008-07-25 19:32:00
浏览器 cookie 限制
2008-05-23 13:09:00
mysql 修改表结构 判断并添加column
2010-10-25 20:07:00
mssql 大小写区分方法
2008-12-29 14:08:00
Google的设计导引
2008-04-06 14:18:00
CSS浏览器兼容方案
2008-06-10 12:21:00