<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      菜鳥詳聽ASP中不妨解壓縮rar文件
                
                  發表時間：2024-01-30             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]文/陳程 　有沒有想過在線解壓縮壓縮文件呢？呵呵，有時上傳一個壓縮包以后，利用Asp程序解壓縮的確很方便，尤其是經常更新網站的站長們，由于文本文件壓縮比率大，所以采用壓縮以后上傳再解壓縮，這樣比直接上傳節省了大量的寶貴時間。準備好了嗎？那就跟上吧。 　　要想實現這種功能，首先要得到Rar程序的解壓...
      　　文/陳程
       　有沒有想過在線解壓縮壓縮文件呢？呵呵，有時上傳一個壓縮包以后，利用Asp程序解壓縮的確很方便，尤其是經常更新網站的站長們，由于文本文件壓縮比率大，所以采用壓縮以后上傳再解壓縮，這樣比直接上傳節省了大量的寶貴時間。準備好了嗎？那就跟上吧。 
      　　要想實現這種功能，首先要得到Rar程序的解壓縮核心文件支持（可以下載WinRar軟件，再把其中的WinRar.exe文件單獨“拿”出來。），并且還需要Windows操作系統自帶的cmd.exe程序（這個程序用來執行WinRar.exe文件。操作系統自帶的，NT內核的操作系統可以在操作系統安裝目錄下的System32文件夾下找到它；Windows 9X的操作系統可以在操作系統安裝目錄下的System文件夾下找到它。）。然后把它們上傳到同一目錄中。建立asp文件，見以下代碼：
      <%
      Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
      Main="d:\chencheng\rar" `上傳后Winrar.exe和cmd.exe后的路徑。
      a=Server.mappath("rar")&""　'解壓rar文件后的存放路徑。
      b=Server.mappath("rar\homepage.rar")　'要解壓的rar文件，把其中homepage.rar修改為需要解壓縮的文件。
      Set Shell = Server.CreateObject("WScript.Shell")
      Runing= "d:\chencheng\rar\cmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " ’設置運行解壓縮的命令。
      Cmd=Run&b&" "&a
      Runcode = Shell.Run(Cmd,1, True)
      %> 



              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清