ASP 多关键词查询实例代码
2018-09-06 12:14
  程序代码: 
以下为引用的内容: 
复制代码 代码如下:
关键字的搜索 
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