Geralmente, encontramos várias palavras -chave no desenvolvimento da Web de um único campo. Obviamente, várias palavras -chave geralmente são usadas no espaço ou separadas.
Código do programa:
A seguir, o conteúdo de referência:
'Pesquise palavras -chave
Str = selecione * do tabelaName onde id> 4
Se srhkey <> então
Keyarr = split (srhkey,)
j = ubound (keyarr)
T = 0
Dim KeyStrarr ()
para i = 0 a j
Se keyr (i) <> então
Redim Preserve Keystrarr (T)
Strfilter = (Empzw como '%& keyarr (i) &%' ou empdep como '%& keyarr (i) &%' ou empgz como '%
Strfilter = strfilter & keyarr (i) &%'ou empwy1 como'%& keyarr (i) &%'ou empwy2 como'%& keyarr (i)
Strfilter = strfilter &%'ou empyq como'%& keyarr (i) &%'ou com_name como'%& keyarr (i) &%)
Keystrarrrrrrrrrrrrrr (t) = strfilter
t = t+1
final se
próximo
Keystr = junção (keystrrrrrrrrrrrrrrdish)
Str = str & & & keystr
final se