一个用于搜索的函数

阿力

'====================================================================
* @$ H, N! A& h1 ~'= Copyright (c) 2005 Eason Chan All Rights Reserved.
3 l" O% a% M, D: F: u'=-------------------------------------------------------------------
: ~  U4 D; C  J% o+ N' s2 d'= 摘    要：格式化搜索字符函数
2 H6 L/ I$ {4 U: _. S'=-------------------------------------------------------------------
'= 最后更新：eason007
'= 最后日期：2005-01-21
8 [6 M' p! ?" F# f3 B% L'====================================================================
$ _5 U% b3 w) e. C( ]Function MakeSQLQuery(QueryField,QueryStr)
     Dim TagStart,TagEnd
     Dim TempStr,TempArray
     Dim FullQueryStr
     Dim i,Way
     
( z3 p: p& `, C- a! S     '先找引号定界符
+ f2 _, h% D/ i2 j% O. W, c* i     Do
3 o. E/ d6 K- F& }4 s           TagStart=InStr(QueryStr,"\")
6 `/ [! w/ H  E           If TagStart>0 Then
: I9 y; l& ?: [$ U# ?, [! e                 TagEnd=InStr(TagStart+1,QueryStr,"\")
" E0 v+ a7 ?$ H, g' Z                 
                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
                 TempStr=Replace(TempStr," ","#")
5 P4 h( i1 }' O& M                 
% k4 b* s2 I* u$ ~2 k: f5 A% K                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
           End If
     Loop While TagStart>0
     
1 }! n, m- D- v     '处理or定界符
     QueryStr=Replace(QueryStr,"|"," @")
# M8 y: R3 U0 V# E6 t- J* R' ~     '分隔关键字
$ h+ ]5 Y8 J8 F/ r% N% k1 L     TempArray=Split(QueryStr," ")
9 s1 k3 _1 E7 }9 I3 f' ~" j     
" B: w% r% N8 O  }     For i=0 To UBound(TempArray)
% [9 |, S1 Q+ @/ l, ^0 J6 m           If Left(TempArray(i),1)="@" Then
% x9 \3 z( Z9 [2 l                 FullQueryStr=FullQueryStr&" Or "&QueryField
" |/ u$ }7 P. y/ q' k; ^                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
3 s2 s( K& d0 A# _           Else
! D1 M/ X) S+ C7 ?$ ^                 FullQueryStr=FullQueryStr&" And "&QueryField
& l$ A* `% j: f. x1 Q7 d& d           End If
' F* Z5 ^2 L! C1 k           
, Y) @7 T, Q/ Q  Q           If Left(TempArray(i),1)="-" Then
                 FullQueryStr=FullQueryStr&" Not "
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           End If
           
           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
( i+ u; e3 x0 R. F           
           FullQueryStr=Replace(FullQueryStr,"%$","")
$ V6 @+ l' H* d1 O           FullQueryStr=Replace(FullQueryStr,"$%","")
           FullQueryStr=Replace(FullQueryStr,"#"," ")
     Next
     
     MakeSQLQuery=FullQueryStr
End Function
3 Q/ M6 ~. Q  s# Z& G& h

+ X4 f2 c7 C7 m1 }, C, e3 ]说明：
' [* z2 z. N( R) k/ c& H用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
/ _3 R$ v$ P" C! W; Z  h0 w; R7 T如有疏忽之处，还请原谅！

示例：
1、 空格连接=and，如 你好 我要=%你好% and %我要%
) N1 G/ S0 J  a) f4 ?2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
- A3 t$ e. T! _6 M: x# {3、 |=or，如 你好|我要=%你好% or %我要%
4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
; a* W. S8 W% {  w1 D5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符

组合查询
如 \i love this game\|-你好=%i love this game% and not like %你好%
如 我要$|-$你好=%我要 or not like 你好%
' k: E+ g! {/ d5 _如 $\i love this game\ $你好$=i love this game% and like 你好

调用：

- M; g- }- O3 \3 e8 M! @Dim SQL,WSQL
5 v; V2 m/ p7 RDim Keyword,Field

'get keyword
/ {8 A- W* f6 T" q$ Z" r3 FKeyword=Request("keyword")
Field=Request("field")

WSQL=MakeSQLQuery(Field,Keyword)
: K) f! D% H3 p, m7 d+ j
SQL="SELECT * FROM table1 WHERE 1=1 "&WSQL

Eagle

哦，