一个用于搜索的函数

阿力

'====================================================================
'= Copyright (c) 2005 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
/ _" }- K' Q, N" d# Q'= 摘    要：格式化搜索字符函数
'=-------------------------------------------------------------------
, ^" Z: w1 r" L+ ~) P+ x' u2 F$ n! }'= 最后更新：eason007
'= 最后日期：2005-01-21
'====================================================================
1 R4 W; J4 R/ D6 LFunction MakeSQLQuery(QueryField,QueryStr)
7 z( n) x- D, g- E0 ^     Dim TagStart,TagEnd
' a8 W* r: a* C1 F" J     Dim TempStr,TempArray
     Dim FullQueryStr
     Dim i,Way
+ }' V- H! Q+ _4 P: j- H9 z     
# D7 [3 }5 b  o     '先找引号定界符
% }: F3 E3 s5 \' M" n) u     Do
9 {% ~/ Q/ f. ~" F0 H% d           TagStart=InStr(QueryStr,"\")
           If TagStart>0 Then
! h) F$ u7 {5 D; O" N% q                 TagEnd=InStr(TagStart+1,QueryStr,"\")
                 
                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
+ `5 k& J( n% |( E; K$ c! P) s& x1 y                 TempStr=Replace(TempStr," ","#")
                 
                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
3 M1 i/ r2 @$ [+ s* G2 @) Z! _5 V           End If
     Loop While TagStart>0
     
* P( ~8 l$ I' u+ |0 ?5 l     '处理or定界符
     QueryStr=Replace(QueryStr,"|"," @")
4 K* P! P8 \, R7 Z     '分隔关键字
     TempArray=Split(QueryStr," ")
3 N$ x- e3 Z) R, n     
     For i=0 To UBound(TempArray)
           If Left(TempArray(i),1)="@" Then
                 FullQueryStr=FullQueryStr&" Or "&QueryField
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
# c/ O( S2 _$ }- T           Else
2 q! R( V/ ^4 q% l! @/ b                 FullQueryStr=FullQueryStr&" And "&QueryField
6 R" l: E0 t" |# b           End If
, e, u: o: T! X7 o, I2 ]5 r           
- |- D$ V# p/ r% T# q" ^' e           If Left(TempArray(i),1)="-" Then
8 }" a7 \7 }) d( @, H                 FullQueryStr=FullQueryStr&" Not "
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
- \+ {4 S8 r2 j8 Y           End If
! z! G$ x4 u  A6 v; Q- W           
: R6 F2 h9 ~% A1 M, I           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
           
           FullQueryStr=Replace(FullQueryStr,"%$","")
           FullQueryStr=Replace(FullQueryStr,"$%","")
* X& ~" |3 z7 p( c/ ]           FullQueryStr=Replace(FullQueryStr,"#"," ")
     Next
     
/ a" T( o6 e- T     MakeSQLQuery=FullQueryStr
) R; R- [! {! yEnd Function

- Q7 z$ ]: a+ `: k  _
说明：
用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
0 j  }1 D, X( m: K如有疏忽之处，还请原谅！

9 e+ I0 L: E# y1 y& R示例：
! x$ E0 |! B' m1、 空格连接=and，如 你好 我要=%你好% and %我要%
8 Q# Q2 ?- a+ C1 Z, o: N; |2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
; H. Y9 K+ D. \1 w3 i, X3、 |=or，如 你好|我要=%你好% or %我要%
4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
5 @( W5 b% T8 F8 c& S% m5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符

( f4 v; d& e  ^$ r组合查询
- d/ I) a5 S/ J# p  W* h如 \i love this game\|-你好=%i love this game% and not like %你好%
6 O: B( i; W. W8 O/ |1 O! m+ H: \! A如 我要$|-$你好=%我要 or not like 你好%
) R& ]" `1 Y/ a如 $\i love this game\ $你好$=i love this game% and like 你好
1 ~3 y* Z5 y/ ?. B
( w0 _! a/ R' }, P/ a/ R/ d9 j  D* u调用：
; l, ~7 l3 h2 `
Dim SQL,WSQL
Dim Keyword,Field

; L! c$ D0 k9 W7 ]' O+ Z) C'get keyword
Keyword=Request("keyword")
& q4 Q9 T% m1 ?Field=Request("field")

5 d, b% V2 x9 i) Q5 ?WSQL=MakeSQLQuery(Field,Keyword)

SQL="SELECT * FROM table1 WHERE 1=1 "&WSQL

Eagle

哦，