Мы часто сталкиваемся с несколькими ключевыми словами в веб -разработке одного поля. Конечно, несколько ключевых слов обычно используются в пространстве или разделены.
Код программы:
Ниже приведено эталонное содержание:
'Поиск ключевых слов
Str = select * из TableName, где ID> 4
Если srhkey <> то
Keyarr = split (srhkey,)
j = Ubound (Keyarr)
T = 0
Dim Keystrarr ()
для i = 0 до j
Если Keyr (i) <> Then Then
Redim quesrever keystrarr (t)
Strfilter = (empzw, как '%& keyarr (i) и%' или empdep, как '%& keyarr (i) и%' или empgz, как '%
Strfilter = strfilter & keyarr (i) &%'или empwy1, как'%& keyarr (i) и%'или empwy2, как'%& keyarr (i)
Strfilter = strfilter &%'или empyq как'%& keyarr (i) &%'или com_name, как'%& keyarr (i) и%)
Keystrarrrrrrrrrrrrr (t) = strfilter
t = t+1
конец, если
следующий
Keystr = join (keystrarrrrrrrrrrrrrrrrdish)
Str = str & & keystr
конец, если