ASP处理多关键词查询实例代码

程序代码：

1. '关键字的搜索
   
2. str="select * from tableName where id>4"
   
3. if srhKey<>"" then
   
4. keyArr=split(srhKey," ")
   
5. j=UBound(keyArr)
   
6. t=0
   
7. dim keystrArr()
   
8. for i=0 to j
   
9. if keyArr(i)<>"" then
   
10. redim preserve keystrArr(t)
    
11. strfilter="(empZw like '%"&keyArr(i)&"%' or empDep like '%"&keyArr(i)&"%' or empGz like '%"
    
12. strfilter=strfilter&keyArr(i)&"%' or empWy1 like '%"&keyArr(i)&"%' or empWy2 like '%"&keyArr(i)
    
13. strfilter=strfilter&"%' or empYq like '%"&keyArr(i)&"%' or com_name like '%"&keyArr(i)&"%')"
    
14. keystrArr(t)=strfilter
    
15. t=t+1
    
16. end if
    
17. next
    
18. keystr=join(keystrArr," and ")
    
19. str=str&" and "&keystr
    
20. end if

复制代码