一个用于搜索的函数

阿力

'====================================================================
'= Copyright (c) 2005 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
+ {7 q7 n1 |& b% o1 p'= 摘    要：格式化搜索字符函数
9 s& C+ C( }* y. B4 d2 b'=-------------------------------------------------------------------
'= 最后更新：eason007
'= 最后日期：2005-01-21
* F, B" z0 o% n' r# }7 h'====================================================================
$ U/ X% G$ Q& L6 GFunction MakeSQLQuery(QueryField,QueryStr)
; D2 I/ |1 q* B% Z# w     Dim TagStart,TagEnd
     Dim TempStr,TempArray
     Dim FullQueryStr
     Dim i,Way
/ e+ H3 w: y- {; h/ J     
* \! g& o+ }  W9 e7 Y$ o+ V' J     '先找引号定界符
     Do
. k$ A' U& Y) t1 y4 o$ k+ b           TagStart=InStr(QueryStr,"\")
3 ?9 U( J! g1 j6 H5 h           If TagStart>0 Then
3 o! t6 s! O+ |" l* ~' s                 TagEnd=InStr(TagStart+1,QueryStr,"\")
                 
) v( o( X' v. H3 a1 ~. n                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
/ n, E: n2 A7 C2 w; M* \: G$ }' o                 TempStr=Replace(TempStr," ","#")
                 
2 |8 z: ]2 w/ D8 T8 {                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
           End If
     Loop While TagStart>0
     
; E9 h5 E" K1 [0 ?     '处理or定界符
     QueryStr=Replace(QueryStr,"|"," @")
     '分隔关键字
/ j. g3 s3 v  ]$ I. Q     TempArray=Split(QueryStr," ")
: h, b  W) |+ w! n( L     
     For i=0 To UBound(TempArray)
* X$ D% I% ~5 @           If Left(TempArray(i),1)="@" Then
                 FullQueryStr=FullQueryStr&" Or "&QueryField
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
% @1 W: z4 y( B- I/ z- D6 W3 M           Else
3 [; j2 q6 K" h) r% N                 FullQueryStr=FullQueryStr&" And "&QueryField
5 Y& k8 \0 x  F- ?" r1 Q  _4 m  N           End If
% P& W% G: S' E% Y           
           If Left(TempArray(i),1)="-" Then
! U6 y$ i+ r" `: v5 ~/ r                 FullQueryStr=FullQueryStr&" Not "
" a& }' i1 s, P/ d- f  ?                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
7 W$ ^9 B6 R6 a9 u           End If
           
! D0 Y6 f8 U6 r# b           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
           
0 H( Q- ^& S3 v' v+ v5 ?( h7 M           FullQueryStr=Replace(FullQueryStr,"%$","")
2 q: _* r: N8 J1 p4 l# k3 O" r! P& @' H           FullQueryStr=Replace(FullQueryStr,"$%","")
           FullQueryStr=Replace(FullQueryStr,"#"," ")
     Next
     
     MakeSQLQuery=FullQueryStr
End Function


说明：
7 ]8 X: e4 O( e& H* @% C9 r5 ^: B用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
1 K* x* D; G! G1 I3 K& |. Y如有疏忽之处，还请原谅！
0 K( B* o- y( |) ?; f' ~7 A
3 I! h  X+ W6 H示例：
1、 空格连接=and，如 你好 我要=%你好% and %我要%
2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
3、 |=or，如 你好|我要=%你好% or %我要%
7 l$ O  Y) z, x4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
6 _7 b3 p3 }) o' m5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符

组合查询
: O) n4 b; W- L, a* {( x如 \i love this game\|-你好=%i love this game% and not like %你好%
# V3 K9 q* D' |) s2 i如 我要$|-$你好=%我要 or not like 你好%
& n% T" g- y) e2 t* u( u$ P" g如 $\i love this game\ $你好$=i love this game% and like 你好
' y, k8 H: k0 q4 \4 _
调用：
8 r5 m7 w; g: q
6 ]* u1 a5 m& b8 k9 c5 ~Dim SQL,WSQL
Dim Keyword,Field
" p" w, I% J; r7 }
+ t, L& v5 R4 n2 Z$ {'get keyword
3 Q0 ^: n( A/ f. aKeyword=Request("keyword")
7 b" k5 h) Y- s4 `Field=Request("field")

WSQL=MakeSQLQuery(Field,Keyword)
7 \' b! m7 y9 k9 A6 m
; B! P3 H2 n. q) TSQL="SELECT * FROM table1 WHERE 1=1 "&WSQL

Eagle

哦，