ASP处理多关键词查询实例代码
2018-09-06 11:56
程序代码:
复制代码 代码如下:
关键字的搜索
str=select * from tableName where id>4
if srhKey<> then
keyArr=split(srhKey, )
j=UBound(keyArr)
t=0
dim keystrArr()
for i=0 to j
if keyArr(i)<> then
redim preserve keystrArr(t)
strfilter=(empZw like %&keyArr(i)&% or empDep like %&keyArr(i)&% or empGz like %
strfilter=strfilter&keyArr(i)&% or empWy1 like %&keyArr(i)&% or empWy2 like %&keyArr(i)
strfilter=strfilter&% or empYq like %&keyArr(i)&% or com_name like %&keyArr(i)&%)
keystrArr(t)=strfilter
t=t+1
end if
next
keystr=join(keystrArr, and )
str=str& and &keystr
end if