如何用ASP自動解壓RAR檔

Search Options	close
Search the following clips: All Clips

news science politics food economy art
technology health internet religion psychology

Sign Up Install Learn More Login


	如何用ASP自動解壓RAR檔

d0123456789g

2-6-2009 4:19 AM

102 views

tags:

如何用asp自動解壓rar檔

d0123456789g says:

如何用ASP自動解壓RAR檔

1 Comment |

Add a Comment

2-6-2009 8:55 AM

balthazarus

Login to Comment. Not a member yet? Sign up

Today's Top Clips

visit the Top Clips page

View the Top Clips from February 6, 2009

Embed This Clip In Your Site...

<div style="margin: 12px 0px; font-family: arial; color: #333333; background: #ffffff; border: solid 4px #e5e5e5; width: 100%; clear: left;"><div class="CM_CTB_Content_Wrap" style="margin: 0px; padding: 0px;background-color: #ffffff;"><div style="border-bottom: solid 1px #dcdcdc; white-space: nowrap; margin-bottom: 8px; background-color: #eeeeee ;background-image: url(http://clipmarks.com/images/source-bg.gif); background-repeat: repeat-x; height: 24px; line-height: 24px; vertical-align: middle; padding-bottom: 4px; color: #666666; font-size: 10px;" ><a href="http://clipmarks.com/clip-to-blog/" title="see clips that are hot right now"><img src="http://content.clipmarks.com/blog_embed/c6a01638-4b34-444f-a9a2-b8b51b2818a1/8708D3E4-186E-42B6-8156-1071074426AD/" alt="" width="19" height="19" border="0" style="vertical-align: middle; margin: 0px 4px; display: inline; border: none; float:none;" /></a>clipped from <a title="http://www.ravs.ntct.edu.tw/know/show.asp?QUESTIONID=117" href="http://www.ravs.ntct.edu.tw/know/show.asp?QUESTIONID=117" style="font-size: 11px;">www.ravs.ntct.edu.tw</a></div><blockquote style="text-align: left; padding: 0px 8px; margin: 4px 0px 8px 0px; background: transparent; border: none;" cite="http://www.ravs.ntct.edu.tw/know/show.asp?QUESTIONID=117"><H3 align="center"><B><FONT class="TitleFont">如何用ASP自動解壓RAR檔</FONT></B> </H3>
<TABLE cellspacing="0" cellpadding="5" border="0" align="center" width="95%"><TBODY><TR><TD width="80%"></TD><TD align="right" width="20%">2003/10/13</TD></TR></TBODY></TABLE><TABLE cellpadding="2" bordercolor="#999999" border="1" align="center" width="95%"><TBODY><TR><TD bgcolor="#eeeeee"><P>http://www.aibra.com/tech/ShowArticle.asp?ArticleID=12
其實想實現這種功能很簡單，首先要上傳一個RAR的解壓程式，就是RAR自己的解壓程式，只需要它的核心程式RAR.EXE這個檔就可以了。然後就要上傳一個執行RAR.EXE的程式 CMD.EXE 這個是windows裏的程式（不必我在多說了吧）。最後就開始執行這些程式了。看一下下面的代碼 
&lt;% 
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) 
%&gt; 
就是用Server.CreateObject("WScript.Shell")來執行CMD.EXE來運行RAR.EXE文件來解壓RAR文件的。 
以前不知道是否有前輩們發表過這些文章，但那位兄弟有興趣的可以以用這種方法來實現諸多類似與這樣的程式，希望你們可以找到一些更好的方法。</P></TD></TR></TBODY></TABLE></blockquote></div><div style="margin: 0px 6px 6px 4px;"><table style="font-size: 11px;border-spacing: 0px;padding: 0px;" cellpadding="0" cellspacing="0" width="100%"><tr><td style="background:transparent;border-width:0px;padding:0px;">&nbsp;</td><td align="right" style="background:transparent;border-width:0px;padding:0px;width:107px" width="107"><a href="http://clipmarks.com/share/8708D3E4-186E-42B6-8156-1071074426AD/blog/" title="blog or email this clip"><img src="http://content7.clipmarks.com/images/c2b-foot.png" border="0" alt="blog it" width="107" height="17" style="border-width:0px;padding:0px;margin:0px;" /></a></td></tr></table></div></div>

New from the makers of Clipmarks: Amplify.com - Don't just share the news...Amplify it!

Clipmarks: Home; New Clips; Top Clips; Dashboard

Popular Topics: News; Life; Science; Technology; Entertainment

Get Started: Sign Up; Install Clipping Tool; How Clipping Works; Clip-to-Blog™; ClipSearch

Tools and Resources: FAQ; ClipWeek; Top Clippers; Top Tags; Site Map

About Clipmarks: About Us; Contact; Copyright; Privacy; EULA

Search Options

Today's Top Clips