精品玖玖玖视频在线观看,伊人久久免费综合视频,亚欧美无遮挡HD高清在线视频,免费人成在线观看网站,黑人巨大精品欧美一区二区 ,中文字幕视频在线,久久综合狼人射,久久五十路,777成年影院在线观看,亚洲综合区丁香五月小说

asp在線壓縮和解壓縮文件（文件夾）

admin

2011年2月26日 18:23 本文熱度 2718

<%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\
'\\ 1. c:\windows\system32\cmd.exe
'\\ 拷貝把本文件所在的路徑
'\\
'\\ 2. 把 c:\program\winrar\rar.exe
'\\ 拷貝把本文件所在的路徑并改名為WinRAR.exe
'\\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\
'\\ compressPath(byVal s)
'\\ 壓縮文件的路徑 | 字符串變體
'\\
'\\ decompressPath(byVal s)
'\\ 解壓縮文件的文件夾 | 字符串變體
'\\
'\\ compress
'\\ 在線壓縮 | sub
'\\
'\\ decompress
'\\ 在線解壓縮 | sub
'\\
'\\ POWER BY MIRACLE (BLUEDESTINY)
'\\
'\\ EMAIL : Bluedestiny[at]126.com
'\\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
OPTION EXPLICIT
class COMPRESS_DECOMPRESS_FILES
private version, copyright
private oWshShell, oFso
private sCompressPath, sDecompressPath
private sub class_initialize
 version="COMPRESS_DECOMPRESS_FILES BUILDER 20051015"
 copyright="POWER BY MIRACLE (BLUEDESTINY)"
 Set oFso=server.CreateObject("scripting.FileSystemObject")
 Set oWshShell=server.CreateObject("Wscript.Shell")
 writeLn(version+" "+copyright)
end Sub
private sub class_terminate
 if isobject(oWshShell) then set oWshShell=nothing
 if isobject(oFso) then set oFso=nothing
end Sub
private function physicalPath(byVal s)
 physicalPath=server.mappath(s)
end Function
private sub validateFile(byVal s)
 if oFso.FileExists(s) then exit sub
 if oFso.FolderExists(s) then exit sub
 callErr "file(folder) not exists!"
end Sub
private sub createFolder(byVal s)
 if oFso.FolderExists(s) then exit Sub
 oFso.createFolder(s)
end Sub
private sub writeLn(byVal s)
 response.write "" + s + "" + vbCrlf
end Sub
private sub callErr(byVal s)
 writeLn "ERROR:" + s
 response.End
end sub
private sub callSucc(byVal s)
 writeLn "SUCCESS:" + s
end Sub
public sub compress
 validateFile(sCompressPath)
 oWshShell.run("WinRAR A " + sCompressPath + " " + sDecompressPath & "")
 if Err.number>0 then callErr("compress lost!")
 callSucc("compress " + sDecompressPath + " to " + sCompressPath + ".rar successfully!")
end Sub
public sub decompress
 validateFile(sCompressPath)
 createFolder(sDecompressPath)
 oWshShell.run("WinRAR X " + sCompressPath + " " + sDecompressPath & "")
 if Err.number>0 then callErr("decompress lost!")
 callSucc("decompress " + sCompressPath + ".rar to " + sDecompressPath + " successfully!")
end sub
public property Let compressPath(byVal s)
 sCompressPath=physicalPath(s)
end property
public property Let decompressPath(byVal s)
 sDecompressPath=physicalPath(s)
end property
End class
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<style>
* {
font-size:10.2pt;
font-family:tahoma;
}
</style>
</HEAD>
<BODY>
<%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\
'\\ 設有壓縮文件 compress.rar
'\\ 需壓縮文件 decompressFolder 文件夾
'\\
'\\ 將 compress.rar 解壓縮至 1 文件夾
'\\ 將 decompressFolder 文件夾壓縮至 2.rar
'\\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
dim oExample
set oExample=new COMPRESS_DECOMPRESS_FILES
oExample.compressPath="decompressFolder"
oExample.decompresspath="1"
oExample.compress
oExample.compressPath="compress.rar"
oExample.decompresspath="2"
oExample.decompress
set oExample=nothing
%>
</BODY>
</HTML>

該文章在 2011/2/26 18:23:50 編輯過

關鍵字查詢

文件夾

壓縮

文件

在線

正在查詢...

點晴ERP是一款針對中小制造業(yè)的專業(yè)生產(chǎn)管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國內(nèi)大量中小企業(yè)的青睞。

點晴PMS碼頭管理系統(tǒng)主要針對港口碼頭集裝箱與散貨日常運作、調(diào)度、堆場、車隊、財務費用、相關報表等業(yè)務管理，結合碼頭的業(yè)務特點，圍繞調(diào)度、堆場作業(yè)而開發(fā)的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。

點晴WMS倉儲管理系統(tǒng)提供了貨物產(chǎn)品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質(zhì)期管理,貨位管理,庫位管理,生產(chǎn)管理,WMS管理系統(tǒng),標簽打印,條形碼,二維碼管理,批號管理軟件。

點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協(xié)同辦公管理系統(tǒng)。