asp在線壓縮和解壓縮文件（文件夾）
當前位置：點晴教程→知識管理交流
→『 技術(shù)文檔交流 』
<%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '\\ '\\ 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+"<br/>"+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 "<p>" + s + "</p>" + vbCrlf end Sub private sub callErr(byVal s) writeLn "<p><b>ERROR:</b></p>" + s response.End end sub private sub callSucc(byVal s) writeLn "<p><b>SUCCESS:</b></p>" + s end Sub public sub compress validateFile(sCompressPath) oWshShell.run("WinRAR A " + sCompressPath + " " + sDecompressPath & "") if Err.number>0 then callErr("compress lost!") callSucc("compress <b>" + sDecompressPath + "</b> to <b>" + sCompressPath + ".rar</b> 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 <b>" + sCompressPath + ".rar</b> to <b>" + sDecompressPath + "</b> 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> <% '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '\\ '\\ 設(shè)有壓縮文件 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 編輯過 |
關(guān)鍵字查詢
相關(guān)文章
正在查詢... 
|
400 186 1886
