Busca pelo site

Aqui você verá o
código para implementar uma busca pelo site.
Bem simples:

search.html↳HTML45 conteúdosA importância do HTML e CSS para quem trabalha com UI Design e Design SystemProduto & UX · dez 2024Como hostear seu site HTML gratuitamente com GitHub PagesDev (Back & Front) · jun 2025SQL Server – Como criar um versionamento de código das suas Stored Procedures em HTML e com comentários da alteraçãoData · nov 2020Ver tudo em Dev (Back & Front) →
<HTML>
<BODY>
<FORM METHOD=POST ACTION=""TextSearch.asp"">
Enter text to search for:
<INPUT TYPE=TEXT NAME=SearchText>
<P>
<INPUT TYPE=SUBMIT VALUE=""Procurar"">
</FORM>
</BODY>
</HTML>

TextSearch.asp
<HTML><BODY>
<B>Resultado da procura para <%=Request(""SearchText"")%></B><BR>
<font face=""Arial, Helvetica, sans-serif""
size=""-2"">
<%
Const fsoForReading = 1

Dim strSearchText
strSearchText = Request(""SearchText"")

Dim objFSO
Set objFSO = Server.CreateObject(""Scripting.FileSystemObject"")

Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath(""/detran""))

Dim objFile, objTextStream,
strFileContents, bolFileFound
bolFileFound = False

For Each objFile
in objFolder.Files
If Response.IsClientConnected then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)

strFileContents
= objTextStream.ReadAll

If InStr(1,strFileContents,strSearchText,1)
then
Response.Write ""<LI><A HREF=""""/detran/""
& objFile.Name & _
"""""">""
& objFile.Name & ""</A><BR>""

bolFileFound =
True
End If

objTextStream.Close
End If
Next

if Not bolFileFound
then Response.Write ""Nenhuma palavra encontrada…""

Set objTextStream
= Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</font></BODY></HTML>