服务器之家

服务器之家 > 正文

ASP解压缩(在线解压缩类)

时间:2019-10-27 10:34     来源/作者:asp教程网

代码如下:


<% 
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
'\\ 
'\\ 1. c:\windows\system32\cmd.exe 
'\\ 拷贝把本文件所在的路径 
'\\ 
'\\ 2. 把 c:\program\winrar\rar.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+"<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> 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>

 

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
返回顶部