一个用于搜索的函数

阿力

'====================================================================
'= Copyright (c) 2005 Eason Chan All Rights Reserved.
8 X  W3 a' ~, F& B. I/ P'=-------------------------------------------------------------------
'= 摘    要：格式化搜索字符函数
'=-------------------------------------------------------------------
'= 最后更新：eason007
'= 最后日期：2005-01-21
0 S2 l2 l/ `" f9 n'====================================================================
Function MakeSQLQuery(QueryField,QueryStr)
8 z; ^% A) {: H' w3 ^* {( X: \* a     Dim TagStart,TagEnd
9 x" o- K" b1 D7 j% k4 ^2 ?4 m     Dim TempStr,TempArray
     Dim FullQueryStr
     Dim i,Way
     
     '先找引号定界符
. ~. x& \/ M" L! U, z" w, F     Do
4 n( o4 m! ]$ C+ ]           TagStart=InStr(QueryStr,"\")
           If TagStart>0 Then
                 TagEnd=InStr(TagStart+1,QueryStr,"\")
) F# I1 I9 x: b: I4 |/ w# Y                 
                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
                 TempStr=Replace(TempStr," ","#")
: }! }+ \) X; V( z                 
                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
           End If
/ s* i6 j) P" m( q     Loop While TagStart>0
' h" k, ~% A7 k     
+ i3 o/ {0 K9 H2 ~2 i     '处理or定界符
2 c+ s7 W5 u; f     QueryStr=Replace(QueryStr,"|"," @")
- w! x4 @' K: V5 y     '分隔关键字
     TempArray=Split(QueryStr," ")
     
7 H. i, R5 b  t# \& O5 ^; I     For i=0 To UBound(TempArray)
           If Left(TempArray(i),1)="@" Then
, F/ Q. @( D/ s: z& _6 o, Z  ~                 FullQueryStr=FullQueryStr&" Or "&QueryField
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
0 G  ~6 `7 u! S/ i1 I& P- q; r           Else
                 FullQueryStr=FullQueryStr&" And "&QueryField
/ H8 ?4 \/ F1 G) `           End If
           
           If Left(TempArray(i),1)="-" Then
7 J& O0 A0 c& s3 }: G                 FullQueryStr=FullQueryStr&" Not "
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           End If
           
8 _) ^2 [$ G. q           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
: _, J% H3 G! x$ Y           
           FullQueryStr=Replace(FullQueryStr,"%$","")
           FullQueryStr=Replace(FullQueryStr,"$%","")
6 ]$ k+ s( K5 g+ p6 {           FullQueryStr=Replace(FullQueryStr,"#"," ")
; x& o& q" r+ o4 L7 c6 k     Next
- X! v4 j; k) ]0 \5 ?, f4 o& A     
1 S2 ^, e, W' M$ ~     MakeSQLQuery=FullQueryStr
% k2 Y* P1 \! AEnd Function

9 a! D: X' X9 V1 r
说明：
用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
如有疏忽之处，还请原谅！
' d( ^) R  L* G
) \6 L. ?* B) N示例：
1、 空格连接=and，如 你好 我要=%你好% and %我要%
) T! n* Y" W' P7 `0 ^2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
3、 |=or，如 你好|我要=%你好% or %我要%
4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符

组合查询
' w; H9 m, Z# V$ I# Z1 O5 a0 W如 \i love this game\|-你好=%i love this game% and not like %你好%
* c. x9 l( y4 Y' J3 v4 e( _$ x如 我要$|-$你好=%我要 or not like 你好%
如 $\i love this game\ $你好$=i love this game% and like 你好

调用：
5 I5 i) X6 G+ t- B/ ~! V0 X* r
. M/ a/ e% G9 dDim SQL,WSQL
; e, A4 |, ^" Z) l4 z' Y1 `Dim Keyword,Field
% |/ r) o2 f4 ^& D* i: J
'get keyword
( k" u0 _* M: j) s, tKeyword=Request("keyword")
Field=Request("field")
( s7 j. P3 n: i. i# @# l
WSQL=MakeSQLQuery(Field,Keyword)
  @9 p' ?7 a4 Y2 H
SQL="SELECT * FROM table1 WHERE 1=1 "&WSQL

Eagle

哦，