O mecanismo de pesquisa consiste em um arquivo HTM e um arquivo ASP. Ele usa principalmente o componente FileSystemObject para alcançar seu objetivo. Possui funções poderosas e pode ser usado diretamente após a modificação da interface. Claro, é ainda melhor adicionar um pouco de suas próprias coisas.
SearchPage.htm
Este arquivo HTM é usado para passar na condição
<html>
<head>
<title> Exemplo de mecanismo de pesquisa ASP </ititle>
</head>
<Body>
<Center>
<Form Method = Post Action = Search.asp>
<Tabela bgcolor =#cc6633 borda = 0>
<tr>
<Td rowspan = 3 bgcolor =#cc6633 largura = 21 nowrap> </td>
<Td width = 363 nowrap> <font color =#fffff>
<Tipo de entrada = Nome do texto = SearchText Tamanho = 22>
<Tipo de entrada = Nome da caixa de seleção = Case>
Altamente sensível </font> </td>
<Td linepan = 3 largura = 10>
<Tipo de entrada = Valor de envio = OK>
<p>
<Tipo de entrada = Valor de redefinição = Limpar>
</td>
<Td loblingpan = 3 bgcolor =#cc6633 largura = 28> </td>
</tr>
<tr>
<Td width = 363 nowrap> <font color =#fffff> Resultado de retorno
<Selecione Nome = Rlength>
<Opção Valor = 200 Selecionado> Mensagem longa </pption>
<Valor da opção = 100> Mensagem curta </pption>
<opção valor = 0> retorna apenas à conexão </pption>
</leclect>
<Selecione nome = rresults>
<Valor da opção = 10 selecionado> 10
<Valor da opção = 25> 25
<Valor da opção = 50> 50
</leclect>
</font>
</td>
</tr>
<tr>
<Td width = 363 nowrap> <font color =#fffff> deve incluir:
<Tipo de entrada = Nome da caixa de seleção = IIMAGE>
foto
<Tipo de entrada = Nome da caixa de seleção = Izips>
Formato Zip
<Tipo de entrada = Nome da caixa de seleção = Ijavas> JavaScript
</font>
</td>
</tr>
</Tabela>
</morm>
</Central>
<Dl>
<Dd> </dd>
</dl>
</Body>
</html>
--------------------------------------------------------------------------
Programa ASP que exibe resultados
search.asp
<html>
<head>
Resultados da pesquisa para <title> '<%= request (SearchText)%>' </title>
</head>
<Body>
Resultados da pesquisa para <b> '<%= request (SearchText)%>' </b> <br>
<%
Const fsoForReading = 1
Dim Objfile, ObjFolder, ObjSubFolder, objtextStream
Bolcase escuro, BolfileFound, Boltagfound
Dim strCount, strDetag, strext, strfile, strcontent, strroot, strtag, strtext, strtitle, strtitlel