主頁 > 知識(shí)庫 > ASP解壓縮(在線解壓縮類)

ASP解壓縮(在線解壓縮類)

熱門標(biāo)簽:成都ai外呼系統(tǒng)線路 長春公司外呼系統(tǒng)中心 鄢陵學(xué)校如何做地圖標(biāo)注 沈陽三五防封電銷卡 沈陽電話機(jī)器人公司 虛擬電話外呼系統(tǒng) 云南便宜外呼系統(tǒng)平臺(tái) 廣東語音外呼系統(tǒng)公司 鄭州智能外呼電銷機(jī)器人廠家
復(fù)制代碼 代碼如下:

%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\
'\\ 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>
%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\
'\\ 設(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"
oExample.decompresspath="2"
oExample.decompress

set oExample=nothing
%>
/BODY>
/HTML>

標(biāo)簽:四平 遼陽 防城港 孝感 湖北 馬鞍山 平頂山 朝陽

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP解壓縮(在線解壓縮類)》,本文關(guān)鍵詞  ASP,解,壓縮,在線,類,ASP,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ASP解壓縮(在線解壓縮類)》相關(guān)的同類信息!
  • 本頁收集關(guān)于ASP解壓縮(在線解壓縮類)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章