通過(guò)asp自動(dòng)解壓rar文件

字號(hào):


    其實(shí)想實(shí)現(xiàn)這種功能很簡(jiǎn)單,首先要上傳一個(gè)rar的解壓程序,就是rar自己的解壓程序,只需要它的核心
    程序rar.exe這個(gè)文件就可以了。然后就要上傳一個(gè)執(zhí)行rar.exe的程序 cmd.exe 這個(gè)是windows里的程序(不必我在多說(shuō)了吧)。最后就開始執(zhí)行這些程序了。看一下下面的代碼
    <%
    dim ylj,ywj,mlpath,shell,rarcomm,retcode,cmd,comm,fso
    mlpath=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& &ylj
    retcode = shell.run(cmd,1, true)
    %>
    就是用server.createobject(wscript.shell)來(lái)執(zhí)行cmd.exe來(lái)運(yùn)行rar.exe文件來(lái)解壓rar文件的。
    以前不知道是否有前輩們發(fā)表過(guò)這些文章,但那位兄弟有興趣的可以以用這種方法來(lái)實(shí)現(xiàn)諸多類似與這樣的程序,希望你們可以找到一些更好的方法。