Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] busca de termos ou frases

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Este utilitário de pesquisa permitirá a busca de termos ou frases dentro de seu site, ea página resultante irá mostrar a seus visitantes o título da página e um link para ele.

 

Você só precisa incluir o formulário abaixo na sua página:

 

searchfiles.html
<form method="POST" action="/cgi-bin/searchfiles.asp">
<table border=0 cellpadding=5 bgcolor=AAAAAA><tr>
<td align=center>
Termo de pesquisa ou frase   <input type=text name=term size=15>   <input type=submit value="search"></td>
</tr></table>
</form>

E você vai precisar criar um arquivo com o conteúdo da tabela abaixo nomeado searchfiles.asp no diretório correspondente.

 

searchfiles.asp
<%
SearchTerm = request.form("term")

Novalid=" a b c d e f g h i j k l m n o p q r s t u v w x y z Sim e muito mais"
NovalidResponse ="Volte e tente novamente. O seu termo de pesquisa é muito comum"
 

if instr(SearchTerm,Novalid)=0 then

Response. Write ("<CENTER><H2>Resultados da pesquisa</H2></CENTER>")
 

   FolderName= "FolderName"
   ShowList()

else
Response.Write NovalidResponse
End if

SearchResponse=""
%>

<%
Sub ShowList()
FolderToCheck = server.mappath("\") &"/" & FolderName & "/"
 Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(FolderToCheck)
 Set fc = f.Files
 For Each f1 in fc

         Wfile = f1.name
          if right(Wfile, 5)=".html" OR right(Wfile, 4)=".htm" then
            Wfile2 = FolderToCheck & Wfile
            Set fs = CreateObject("Scripting.FileSystemObject")
            Set a = fs.OpenTextFile(Wfile2)
            ct = a.ReadAll
            a.close
            ct2=lcase(ct)
            SearchTerm2 = lcase(SearchTerm)

                  if instr(ct2,SearchTerm2)>0 then

                      if instr(ct,"</title>")>0 then
                  longitud=instr(ct,"</title>")
                  longitud=longitud -1
                          ct=left(ct,longitud)
                          longitud2=len(ct)
                  longitud=instr(ct,"<title>")
                  longitud=longitud2 -longitud -6
                          ct=right(ct,longitud)
                     else
                        if instr(ct,"</TITLE>")>0 then
                    longitud=instr(ct,"</TITLE>")
                    longitud=longitud -1
                            ct=left(ct,longitud)
                            longitud2=len(ct)
                    longitud=instr(ct,"<TITLE>")
                    longitud=longitud2 -longitud -6
                            ct=right(ct,longitud)
             end if
                     end if

                    SearchResponse= SearchResponse +"<TR><TD>"+ ct + "</TD><TD ALIGN=CENTER VALIGN=MIDDLE>" + " <A HREF=" + "/" + FolderName + "/" + Wfile +"> More </A></TD></TR>"
          longitud=0
                  ct=""

                  end if
          end if

Next

Response.Write ("<HTML><HEAD><TITLE>Resultados da Pesquisa</TITLE></HEAD><BODY BGCOLOR=FFFFFF><CENTER>") 

Response.Write ("<TABLE BORDER=0 WIDTH=550><TR><TD BGCOLOR=C0C0C0><FONT SIZE=5><B>Resultados da Pesquisa</B></FONT></TD></TR></TABLE>") 

Response.Write ("<TABLE BORDER=0 WIDTH=550>") 
if SearchResponse<>"" then 
Response.Write SearchResponse
else
Response.Write ("<TR><TD>O termo ou a frase especificada não foi encontrada</TD></TR>")
end if
Response.Write ("</TABLE>")

Response.Write ("</CENTER></BODY></HTML>")

End Sub
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito