코드 사본은 다음과 같습니다.
<%
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'//1.c:/windows/system32/cmd.exe
'//이 파일이있는 경로를 복사하십시오
'//
'//2.change c : /program/winrar/rar.exe
'//이 파일이 위치한 경로를 복사하여 WinRar.exe로 이름을 바꿉니다.
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'// compresspath (byvals)
'// 압축 파일의 경로 | 문자열 변형
'//
'// decompresspath (byvals)
'// 파일의 폴더를 압축 해제 | 문자열 변형
'//
'//압박 붕대
'// 온라인 압축
'//
'// 압축 압력
'// 온라인 감압
'//
'// PowerBynever-online
'//
'//email:BlueSeStiny] at ]126.com
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
옵션 출현
classcompress_decompress_files
개인 버전, 저작권
PrivateOwshell, ofso
PrivatesCompressPath, Sdecompresspath
privatesubclass_initialize
버전 = "compress_decompress_filesbuilder20051015"
Copyright = "PowerBymiracle (BlueDestiny)"
setofso = server.createobject ( "scripting.filesystemobject")
setowshshell = server.createobject ( "wscript.shell")
Writeln (버전+"<br>"+저작권)
Endsub
privatesubclass_terminate
ifosobject (owshshell) thensetowshshell = 아무것도
ifosobject (ofso) thensetofso = 아무것도
Endsub
PrivateFunctionPhysicalPath (ByVals)
Physical Path = Server.mappath (S)
최종 기능 장애
privatesubvalidatefile (byvals)
ifofso.filexists (s) thenexitsub
ifofso.dolerexists (s) thenexitsub
Callerr "파일 (폴더)이 출현되지 않습니다!"
Endsub
PrivatesubcreateFolder (ByVals)
ifofso.dolerexists (s) thenexitsub
ofso.createfolder (들)
Endsub
privatesubwriteln (byvals)
응답. "<p>"+s+"</p>"+vbcrlf
Endsub
PrivatesubCallerr (ByVals)
Writeln "<p> <b> 오류 : </b> </p>"+s
응답. 엔드
Endsub
privatesubcallsucc (byvals)
Writeln "<p> <b> 성공 : </b> </p>"+s
Endsub
대중 서체 압력
validatefile (scompresspath)
owshshell.run ( "winrara"+scompresspath+""+sdecompresspath & ""))