É fácil usar ASP para pesquisar, mas é um pouco mais cansativo implementar pesquisa inteligente. Na verdade, qualquer programa é semelhante. Depende principalmente do poder de processamento do banco de dados. Geralmente, o ASP para sites pequenos é frequentemente combinado. o banco de dados ACCESS. Nesta configuração, temos que implementar Para pesquisar e destacar palavras-chave sem distinção entre maiúsculas e minúsculas, você precisa usar o processamento regular do ASP.
Copie o código do código da seguinte forma:
<%
Função Takeout(patrn,string1,cores)
'Extraia o texto correspondente à palavra-chave de pesquisa
Dim regEx, Match, Matches, tt 'Criar variáveis.
Set regEx = New RegExp ' Cria uma expressão regular.
regEx.Pattern = patrn ' Definir padrão.
regEx.IgnoreCase = True ' Define se deve diferenciar maiúsculas de minúsculas.
regEx.Global = True ' Define a disponibilidade global.
Definir correspondências = regEx.Execute(string1) 'Executar pesquisa.
Para cada partida em Matches ' Percorra a coleção Matches.
RetStr = RetStr & Match.Value &
Próximo
RetStr = trim(RetStr)
se instr(RetStr, )>0 então
para tt = 0 para ubound(split(RetStr, ))
string1 = substituir(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
próximo
outro
string1 = substituir(string1,RetStr,<font color=&colors&>&RetStr&</font>)
terminar se
Para viagem = string1
Função final
response.write Takeout (jOeKOe, Joekoe Joeko versão bilíngue, vermelho)
Function Highlight(strContent,keyword) 'Marca palavras-chave destacadas
Escurecer RegEx
Definir RegEx = novo RegExp
RegEx.IgnoreCase =True 'Não diferencia maiúsculas de minúsculas
RegEx.Global = Verdadeiro
Dim ArrayKeyword,i
ArrayKeyword = Split(keyword, )'Várias palavras-chave separadas por espaços
Para i = 0 para Ubound (ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
Próximo
Definir RegEx=Nada
Destaque=strConteúdo
Função final
Response.write Destaque (versão bilíngue de Joekoe, jOeKOe)
%>