<%@Language = VBScript CodePage = 936%>
<%
Dim St.
ST = TIMER ()
'***************************************************
'***************
'************ Метод звонка: ************
'************ SET Newssearch = New SearchFile' Declaration ************
'************ newsearch.folder = f:+e:' Источник входящего поиска ***********
'************ newsearch.keyword = Assembly' Ключевое слово *************
'************ newsearch.search' Start Search ************
'************ Установить Newssearch = ничего' End *************
'************ Авторские права (c) 完望完月完月 ****************
'***************
'***************************************************
Класс SearchFile
Dim Polders 'Проходит абсолютный путь, Mululetath использует знак + для подключения, без пробелов
Dim Keyword 'Пропуск ключевых слов
Dim objfso 'определить глобальные переменные
Dim Counter 'определить глобальные переменные, количество результатов поиска
'*****************
Private sub class_initialize
Установить objfso = server.createObject (scripting.filesystemobject)
Счетчик = 0 'Инициализировать счетчик
Конец суб
'***************************************************
Приватный sub class_terminate
Установить objfso = ничего
Конец суб
'****************** ОБЩЕСТВЕННЫЙ Член, метод под названием *********************************
Функциональный поиск
Папки = разделить (папки,+) 'преобразовать в массив
ключевое слово = trim (ключевое слово) 'Удалите пространства до и после
Если ключевое слово = тогда
Response.write (<font color = 'red'> ключевое слово не может быть пустое </font> <br/>)
Выходная функция
конец, если
'Просто определите, включены ли незаконные персонажи
flag = instr (ключевое слово,/) или instr (ключевое слово,/)
flag = flag или instr (ключевое слово ,)
flag = flag или instr (ключевое слово, |)
flag = flag или instr (ключевое слово и)
Если флаг, то ключевое слово не может содержать //: | &
Response.write (<font color = 'red'> ключевое слово не может содержать //: | & </font> <br/>)
Функция выхода 'Если это включено, выходите
конец, если
'Многоцелевой поиск
DIM I.
для i = 0 до ubund (папки)
Вызовать getallfile (папки (i)) 'Рекурсивная функция вызовов
следующий
Response.write (total <font color = 'red'> & counter & </font> результаты были найдены)
Конечная функция
'**************************************************
Частная функция getallfile (папка)
Dim objfd, objfs, objff
Установить objfd = objfso.getFolder (папка)
Установить objfs = objfd.subfolders
Установить objff = objfd.files
«Путешествие через подпапки
Dim Strfdname 'Объявите имя подпапки
'************ Посетите подпапки *******
при ошибке резюме следующим
Для каждого Onedir в objfs
strfdname = onedir.name
'Системная папка не включена в обход
Если strfdname <> config.msi eqv strfdname <> recycled eqv strfdname <> recycler eqv strfdname <> system тома