一个用于搜索的函数

阿力

'====================================================================
& f/ K  ~: o9 K3 i'= Copyright (c) 2005 Eason Chan All Rights Reserved.
$ k3 l3 @- ], M, O# i'=-------------------------------------------------------------------
  _' G* g5 P: V! c5 J1 H'= 摘    要：格式化搜索字符函数
$ }/ D% e) g' C+ x# ?'=-------------------------------------------------------------------
'= 最后更新：eason007
'= 最后日期：2005-01-21
'====================================================================
. Q& F: y1 w1 [9 u1 q& h; tFunction MakeSQLQuery(QueryField,QueryStr)
& i5 l& X! n2 ~* q* z& \     Dim TagStart,TagEnd
     Dim TempStr,TempArray
1 p+ G! y8 k' v     Dim FullQueryStr
     Dim i,Way
( f: u( w! t) ^/ ?' D     
     '先找引号定界符
     Do
           TagStart=InStr(QueryStr,"\")
           If TagStart>0 Then
                 TagEnd=InStr(TagStart+1,QueryStr,"\")
                 
" v9 s0 Q  Q7 U+ K+ y                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
5 p0 P( w# r+ t                 TempStr=Replace(TempStr," ","#")
                 
                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
5 ~0 [7 j/ @; W$ x% |& g# D           End If
6 G9 I: G5 }" U+ T' o9 g     Loop While TagStart>0
     
& z% h1 G7 V9 n( H3 Z     '处理or定界符
1 d* F- c/ _, o) X% \1 Q" b     QueryStr=Replace(QueryStr,"|"," @")
     '分隔关键字
8 a0 w0 B* ?! j( e# c     TempArray=Split(QueryStr," ")
     
9 D: P6 y: s5 z' _0 w& }     For i=0 To UBound(TempArray)
7 J7 E: B8 F3 L7 Q+ r' A           If Left(TempArray(i),1)="@" Then
2 M5 c! X6 ]# a: S$ p3 }) g                 FullQueryStr=FullQueryStr&" Or "&QueryField
8 k7 z6 ]! e' g) a( M                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
1 i+ j" ?; y: Y5 i; U) E2 n           Else
: b; p" [9 s) d# ]+ {                 FullQueryStr=FullQueryStr&" And "&QueryField
, R. {6 t; H0 j3 }* d8 n( `1 e           End If
' v: q7 m& ~8 _! l; M, f" u           
- N0 h# ?2 y- a: ^" U           If Left(TempArray(i),1)="-" Then
                 FullQueryStr=FullQueryStr&" Not "
/ Q1 s/ K" A+ J* D: N  W4 Q$ b* M                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
) w6 ^. K) `2 w1 Z$ y           End If
6 h7 E0 j' \7 @, M! |$ }2 G% J           
/ D  t, o  M& f: |3 M8 i' K           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
           
           FullQueryStr=Replace(FullQueryStr,"%$","")
) H+ g, g2 b7 D. b# o9 ]           FullQueryStr=Replace(FullQueryStr,"$%","")
           FullQueryStr=Replace(FullQueryStr,"#"," ")
     Next
, u7 Z& _/ S3 e0 r) r" Y     
6 ]4 {6 ^  `0 X     MakeSQLQuery=FullQueryStr
9 ~7 t" L8 b9 S3 ^/ nEnd Function


( L# N/ l/ x8 m# R- V说明：
用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
! d$ x9 k1 L+ G8 D& p如有疏忽之处，还请原谅！

示例：
1、 空格连接=and，如 你好 我要=%你好% and %我要%
$ w. x2 _( [9 t+ L3 ^2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
3、 |=or，如 你好|我要=%你好% or %我要%
9 Q% {& _1 E- s3 A- P7 ~4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
, C2 i( T6 ~' O# R2 T5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符
+ L0 Q4 f8 N' [
组合查询
) J9 j& V& a# S: F如 \i love this game\|-你好=%i love this game% and not like %你好%
( s1 {& H2 R* ^/ o4 k4 }* ?; R) `如 我要$|-$你好=%我要 or not like 你好%
如 $\i love this game\ $你好$=i love this game% and like 你好
% K* a9 \% V" s$ X3 G
3 N/ o3 A$ a4 q1 {) D. K$ @3 d调用：

Dim SQL,WSQL
* q6 K/ w- `9 ?1 }Dim Keyword,Field

'get keyword
Keyword=Request("keyword")
& E1 x& K) y! b$ FField=Request("field")
6 @4 o& Q& {8 e1 T. \( m1 [. }
- M5 y+ P& }" q5 xWSQL=MakeSQLQuery(Field,Keyword)
! r' N% Q; V2 r% Y5 u5 w
1 G4 I- h9 W3 `3 F4 p1 D0 cSQL="SELECT * FROM table1 WHERE 1=1 "&WSQL

Eagle

哦，