<%@language = vbscript codepage = 936%>
<%
Dim st
st = timer ()
'*********************************************************************
'***************** 검색 하드 디스크 파일 클래스 searchFile ************
'************** 전화 방법 : ************
'************** Set NewsSearch = New SearchFile'선언 ************
'************** Newsearch.folder = f :+e :'수신 검색 소스 ***************
'************** refork.keyword = 어셈블리'키워드 ***************
'************** Newsearch.search'시작 검색 ************
'************** Set NewsSearch = Nothing'End ***************
'************** 저작권 (c) 完望完月完月 ****************
'***************** http://btyz.51web.cn/ **************
'*********************************************************************
클래스 SearchFile
Dim Polders '절대 경로 전달, Multipath는 + 표시를 사용하여 연결, 공백 없음
Dim 키워드 '키워드 전달
Dim Objfso '는 글로벌 변수를 정의합니다
Dim Counter '글로벌 변수 정의, 검색 결과 수
'******************* 초기화 **********************************
private sub class_initialize
set objfso = server.createobject (scripting.filesystemobject)
카운터 = 0 '카운터 초기화
종료 서브
'*******************************************************************
개인 sub class_terminate
OBJFSO = 아무것도 설정하지 않습니다
종료 서브
'******************** 공개 회원, *************************
기능 검색
폴더 = 분할 (폴더,+) '배열로 변환합니다
키워드 = 트림 (키워드) ''전후에 공간을 제거하십시오
Keyword =이면
response.write (<font color = 'red'> 키워드가 비어있을 수 없습니다 </font> <br/>)
종료 기능
끝 If
'불법 문자가 포함되어 있는지 확인하십시오
flag = inst (키워드,/) 또는 악기 (키워드,/)
플래그 = 플래그 또는 악기 (키워드, :)
플래그 = 플래그 또는 악기 (키워드, |)
플래그 = 플래그 또는 악기 (키워드, &)
플래그 인 경우 '키워드는 // : | &를 포함 할 수 없습니다.
response.write (<font color = 'red'> 키워드는 // : | & </font> <br/>를 포함 할 수 없습니다.
종료 함수 '포함되면 종료하십시오
끝 If
'다중 경로 검색
희미한 i
i = 0에서 Ubund (폴더)의 경우
getAllFile (폴더 (i)) '통화 루프 재귀 기능을 호출하십시오
다음
response.write (Total <font color = 'red'> & counter & </font> 결과를 검색했습니다)
엔드 기능
'**************************************
개인 기능 getAllFile (폴더)
Dim objfd, objfs, objff
set objfd = objfso.getfolder (폴더)
objfs = objfd.subfolders를 설정하십시오
objff = objfd.files를 설정하십시오
'서브 폴더를 통과합니다
dim strfdname 'subfolder 이름을 선언합니다
'************** Subfolders 방문 *******
다음에 오류가 재개됩니다
OBJF의 각 Onedir에 대해
strfdname = onedir.name
'시스템 폴더는 트래버스에 포함되어 있지 않습니다
strfdname <> config.msi eqv strfdname <> Recycled eqv strfdname <> Recycler eqv strfdname <> 시스템 볼륨 정보라면