코드 사본은 다음과 같습니다.
<%@language = vbscriptCodePage = 936%>
<%
'배치 파일 자동 검색 교체 삽입 Ver2.0
'Feiyun Writing, CSDN 계정 : JSPADMIN, QQ : 33323489
'개인 웹 사이트 http://www.pifoo.com 중국어 웹 사이트, Exchange 링크에 오신 것을 환영합니다. 이 사이트는 무료 블로그 응용 프로그램 및 등록을 제공합니다.
'이 코드를 사용하거나 수정할 수는 있지만 저작권 정보 나 링크를 보관하십시오. 사용해 주셔서 감사합니다!
'질문이나 제안이 있으면 메시지를 남겨주세요 http://www.pifoo.com/guestbook/
%>
<%
bakpath = 요청 ( "bakpath")
delbak = server.mappath (bakpath)
setfso = createobject ( "Scripting.FilesyStemObject")
응답. "삭제 작업 결과는 다음과 같습니다."& "<br>"
반복 (Delbak)
기능 중단 (경로)
Dimfolder, 폴더, 파일, 파일
setfolder = fso.getfolder (경로)
setfiles = 폴더.files
foreachfileinfiles
iffso.getexTextensionName (file.name) = "bak"
response.writefile.name & "가 성공적으로 삭제되었습니다! <br>"& file.path & "<br> <br>"
file.deletetrue
endif
다음
setfolders = 폴더 .subfolders
foreachfinpolders
iteratef.path
다음
최종 기능 장애
setfso = 아무것도
%>
<ahref = "index.asp"> 홈페이지로 돌아 가기 </a>