ASP解压缩（在线解压缩类）

复制代码代码如下:<% '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '\ '\ 1. c:windowssystem32cmd.exe '\ 拷贝把本文件所在的路径 '\ '\ 2. 把 c:programwinrarrar.exe '\ 拷贝把本文件所在的路径并改名为WinRAR.exe '\ '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ '\ '\ compressPath(byVal s) '\ 压缩文件的路径 | 字符串变体 '\ '\ decompressPath(byVal s) '\ 解压缩文件的文件夹 | 字符串变体 '\ '\ compress '\ 在线压缩 '\ '\ decompress '\ 在线解压缩 '\ '\ POWER BY never-online '\ '\ 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> asp在线解压缩 </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" oExample.decompresspath="2" oExample.decompress set oExample=nothing %> </BODY> </HTML>

　　推荐阅读

　　TSYS 新闻列表JS调用下载

有很多网友再问如何做一个JS新闻调用程序，现在贴出来供大家参考： JS调用程序： List2.asp 源码:-------------------------------------------------------------------------------- <!--#include file="Conn.as>>>详细阅读

本文标题：ASP解压缩（在线解压缩类）

地址：http://www.17bianji.com/kaifa2/ASP/32813.html

1/2 1