<%
Head = Search
SearchString = запрос (SearchString)
count = 0
'Преобразовать фактический путь текущего каталога в виртуальный путь
Функция Unmappath (Path)
Unmappath = reply (mid (path, len (server.mappath ( /)) + 1), /, /)
Конечная функция
Function SearchFile (f, s, title)
Установить fo = fs.opentextfile (f)
Content = fo.Readall 'прочитать весь текст в контент
fo.close
Searchfile = instr (1, content, s, vbtextcompare)> 0 'Начнется с первого символа, чтобы проверить, есть ли в контенте S в контенте
Если SearchFile, то есть, есть, переменная депозита файла заголовка
pos1 = instr (1, content, <title>, vbtextcompare)
pos2 = instr (1, content, </title>, vbtextcompare)
заголовок =
Если pos1> 0 и pos2> 0, затем не поместите персонажа в середине тега заголовка
title = mid (content, pos1 + 7, pos2 - pos1 - 7)
Конец, если
Конец, если
Конечная функция
Функция fileLink (f, заголовок)
vpath = unmpplath (f.path) 'Идите по пути
If title = then title = f.name ', чтобы сделать ссылки
FILELINK = <a href = & vpath &> & title & </a>
FILELINK = <ul> · и FileLink & </ul>
Конечная функция
Sub SearchFolder (FD, S)
Найдено = false
Для каждого F в файлах fd.
pos = instrrev (f.path ,.)
Если POS> 0, то
ext = mid (f.path, pos + 1)
Еще
ext =
Конец, если
Если lcase (ext) = htm, то файл stow с именем расширения htm
Если searchfile (f, s, title), то тогда
Response.write filelink (f, название)
count = count+1
'Response.write cstr (count)
Конец, если
Конец, если
Следующий
Для каждого SFD в Fd.subfolders
SearchFolder Sfd, s
Следующий
Конец суб
%>
<html>
<голова>
<meta http-equiv = content-type
Content = text/html; charset = gb_2312-80>
<meta name = Generator Content = Microsoft FrontPage Express 2.0>
<Title> <%= Head%> </title>
</head>
<body bgcolor =#ffffff>
<h1> <%= голова%> </h1>
<hr>
<form action = search.asp method = get>
<p> Введите контент, который вы хотите найти: <input type = text
size = 20 name = searchstring value = <%= searchString%>> <вход
type = отправить значение = search> </p>
</form>
<%
Установить fs = server.createObject (scripting.filesystemobject)
Установите fd = fs.getfolder (server.mappath (/)) 'Установите путь, чтобы запустить поиск!
Если SearchString <> Then Then
Response.write <h2> search <font color = red> & searchstring & </font> Результаты следующие: </h2> <p>
SearchFolder FD, SearchString
Конец, если
%>
<hr>