ASP decompression (online decompression class)

Last Update:2018-12-08 Source: Internet

Author: User

Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

Copy codeThe Code is as follows: <%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\
'\\
'\ 1. c: \ windows \ system32 \ cmd.exe
'\ Copy the path of the object
'\\
'\ 2. Set c: \ program \ winrar \ rar.exe
'\ Copy and rename the path of this file to winrar.exe
'\\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\
'\\
'\ CompressPath (byVal s)
'\ Path of the compressed file | string Variation
'\\
'\ DecompressPath (byVal s)
'\ Folder of the decompressed file | string Variation
'\\
'\ Compress
'\ Online Compression
'\\
'\ Decompress
'\ Decompress online
'\\
'\ 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 online decompression </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>
<%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\
'\\
'\ Has a compressed file compress.rar
'\ The decompressFolder folder to be compressed
'\\
'\ Decompress compress.rar to the 1 folder
'\ Compresses the decompressFolder folder to 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>

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More

ASP decompression (online decompression class)

Contact Us

A Free Trial That Lets You Build Big!

Sales Support

After-Sales Support