<%
Cabeça = pesquisa
SearchString = request (SearchString)
contagem = 0
'Converta o caminho real do diretório atual em um caminho virtual
Função UNAPAPATH (PATH)
UMAPATH = Substitua (MID (PATH, LEN (Server.mappath ( /) + 1), /, /)
Função final
Função SearchFile (F, S, título)
Definir fo = fs.OpentExtFile (f)
content = fo.readall 'Leia todo o texto para o conteúdo
fo.close
SearchFile = Instr (1, Conteúdo, S, VbTextCompare)> 0 'Iniciar do primeiro personagem para verificar se há s no conteúdo
Se o SearchFile, se houver, variável de depósito de título do arquivo
POS1 = Instr (1, conteúdo, <title>, vbTextCompare)
POS2 = Instr (1, Conteúdo, </ititure>, VbTextCompare)
título =
Se POS1> 0 e POS2> 0, então não fique no personagem no meio da tag de título
Title = Mid (Conteúdo, POS1 + 7, POS2 - POS1 - 7)
Final se
Final se
Função final
Função FileLink (F, título)
VPath = UMAPAPATH (F.PATH) 'Pegue o caminho
Se title = então title = f.name 'para fazer links
Filelink = <a href = & vpath &> & title & </a>
Filelink = <ul> · & filelink & </ul>
Função final
SubsechFolder (FD, S)
encontrado = falso
Para cada f em fd.files
POS = Instrrev (F.Path ,.)
Se pos> 0 então
ext = médio (f.path, pos + 1)
Outro
ext =
Final se
Se lcase (ext) = htm, então o arquivo com nome de extensão htm
Se SearchFile (f, s, título) então
Response.Write FileLink (F, título)
contagem = contagem+1
'Response.Write CSTR (contagem)
Final se
Final se
Próximo
Para cada SFD em FD.SubFolders
SearchFolder SFD, S.
Próximo
Final sub
%>
<html>
<head>
<meta http-equiv = content-type
content = texto/html; charset = gb_2312-80>
<meta nome = conteúdo do gerador = Microsoft FrontPage Express 2.0>
<Title> <%= head%> </title>
</head>
<corpo bgcolor =#ffffff>
<H1> <%= head%> </h1>
<HR>
<forma de ação = search.asp método = get>
<p> Por favor, insira o conteúdo que deseja pesquisar: <Tipo de entrada = texto
Tamanho = 20 Nome = Valor da Pesquisa = <%= SearchString%>> <Entrada
TIPO = Valor de envio = Pesquisa> </p>
</morm>
<%
Definir fs = server.createObject (script.filesystemobject)
Definir fd = fs.getFolder (server.mappath (/)) 'Defina o caminho para iniciar a pesquisa!
Se Searchstring <> então
Response.Write <H2> Pesquisar <font color = Red> & SearchString & </font> Os resultados são os seguintes: </h2> <p>
SearchFolder FD, SearchString
Final se
%>
<HR>