六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

菜鳥詳聽ASP中不妨解壓縮rar文件

[摘要]文/陳程  有沒有想過在線解壓縮壓縮文件呢?呵呵,有時上傳一個壓縮包以后,利用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)
%>




主站蜘蛛池模板: 亚洲欧美综合一区 | 亚洲网色 | 日韩黄色影视 | 手机成人 | 视频一区二区三区欧美日韩 | 在线观看91精品国产下载 | 午夜视频在线看 | 三级在线国产 | 欧美一区精品 | 欧美亚洲图区 | 最新欧美伦禁片在线观看 | 综合热久久 | 性久久久久久 | 亚洲人成网站999久久久综合 | 日韩精品成人免费观看 | 四虎在线精品免费高清在线 | 欧美午夜视频在线 | 天天想天天干 | 亚色在线播放 | 手机亚洲第一页 | 亚洲第一网站快活影院 | 色国产精品一区在线观看 | 天天艹在线 | 欧美一级视频免费看 | 五月婷婷俺来也 | 欧美一级久久久久久久大片 | 日本免费观看网站 | 青青青国产在线观看 | 青娱乐免费在线视频 | 又粗又大又爽又紧免费视频 | 亚洲福利午夜 | 亚洲欧洲日本在线观看 | 最近韩国日本免费观看 | 亚洲人成影网站~色 | 色橹橹高清视频在线播放 | 午夜影院福利 | 全免费a级毛片免费看不卡 全黄一级片 | 四虎精品视频在线永久免费观看 | 午夜影院在线观看视频 | 综合久久久久久久 | 特黄十八岁大片 |