Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] Consulta em destaque

Recommended Posts

Pequena função que destaca as pesquisas sobre os resultados da pesquisa página. Semelhante ao encontrado em destaque funcionalidade do Google Toolbar. Acomoda palavra múltiplas buscas.

 

'Basta colar essa função no início do seu código

' e substituir todas as palavras Maiúsculascom o sua própria

'variável

 

'Atualmente a função apenas coloca os termos de pesquisa

'em negrito. Basta substituir o "<B>" e "</ B>" com o sua

'tag fonte ou estilo CSS para torná-lo seja qual for

'seu desejo

 

'Variável definições: "searchResult"

'este é o seu resultado string. As pesquisas devem existir nesta seqüência é (ou então não haveria nada a realçar!)

'* meu resultado parecido com este ciclo

"Response.Write highlightQuery (RSSearchResults (" Título "))

'onde RSSearchResults ( "Título") é o conjunto de registros de todos os títulos correspondentes.

 

'definições de Variável : "SEARCH_WORDS_ARRAY"

'ALTERAR AQUI!

'este é o seu leque de pesquisas

'você formatou sua busca para remover o

'espaços extras, divididos cada termo de pesquisa em separado

'na matriz valor.

 

<%
Function Consultadestaque(searchResult)

Dim searchQueryLength, startPosition, querySectionToReplace, ConsultadestaqueTemp, SearchWordsCount

ConsultadestaqueTemp = searchResult

SearchWordsCount = Ubound(SEARCH_WORDS_ARRAY)
For c=0 to SearchWordsCount
	searchQueryLength = Len(SEARCH_WORDS_ARRAY(c))
	startPosition = Instr(1,ConsultadestaqueTemp,SEARCH_WORDS_ARRAY(c),1)
	If startPosition >= 1 then
	querySectionToReplace = Mid(ConsultadestaqueTemp,startPosition,searchQueryLength)
	ConsultadestaqueTemp = Replace(ConsultadestaqueTemp,querySectionToReplace,"<span class='highlight'>" & querySectionToReplace & "</span>",1)
	End If
Next
Consultadestaque = ConsultadestaqueTemp

End Function
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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