一个用于搜索的函数

阿力

'====================================================================
& a. k( U* B4 ?0 d# k$ b( n'= Copyright (c) 2005 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
  R' ]" n+ R- B, ^'= 摘    要：格式化搜索字符函数
% l' E% `1 \- D7 K'=-------------------------------------------------------------------
'= 最后更新：eason007
/ j! ]7 R; j* n! f'= 最后日期：2005-01-21
'====================================================================
Function MakeSQLQuery(QueryField,QueryStr)
$ e* g+ L1 H) q* b1 A     Dim TagStart,TagEnd
# M" @% ]6 _: c5 j) z5 y+ w5 t     Dim TempStr,TempArray
     Dim FullQueryStr
. _/ a) L( U# P. @     Dim i,Way
     
     '先找引号定界符
! D6 z0 z/ E6 R# X     Do
           TagStart=InStr(QueryStr,"\")
           If TagStart>0 Then
                 TagEnd=InStr(TagStart+1,QueryStr,"\")
6 K) _0 q( o. J" F* X( m; ]                 
                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
8 M, t1 T& E2 R$ V" I" T# g4 D                 TempStr=Replace(TempStr," ","#")
) ]0 s: S7 L; X; m0 `                 
                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
           End If
     Loop While TagStart>0
     
     '处理or定界符
% `' w+ k* \3 d% g     QueryStr=Replace(QueryStr,"|"," @")
) S, `4 a& o4 w* M. G6 t     '分隔关键字
" r2 \' C% E( o5 I: O     TempArray=Split(QueryStr," ")
3 b2 _6 J, K% ~, R( a$ W2 A     
# U. p' R0 b( D2 W" ~+ X     For i=0 To UBound(TempArray)
           If Left(TempArray(i),1)="@" Then
7 w9 o+ q0 F- C9 o, i* U: ^                 FullQueryStr=FullQueryStr&" Or "&QueryField
+ U. R# F% o( I9 X: ~                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           Else
                 FullQueryStr=FullQueryStr&" And "&QueryField
           End If
           
           If Left(TempArray(i),1)="-" Then
                 FullQueryStr=FullQueryStr&" Not "
! C+ O& D! |8 s3 O9 v# ^/ Q                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
: N7 {# T6 i# u# Y) S! Y' ?3 h' Q           End If
           
           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
" w! F: t! ?0 a; i           
           FullQueryStr=Replace(FullQueryStr,"%$","")
           FullQueryStr=Replace(FullQueryStr,"$%","")
2 {% a! q  f- E6 e2 V$ X; a3 n$ T           FullQueryStr=Replace(FullQueryStr,"#"," ")
     Next
     
6 \& n5 Q, \$ v9 `2 c! S, e     MakeSQLQuery=FullQueryStr
End Function


' V. i: B8 ~0 g  G说明：
用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
如有疏忽之处，还请原谅！
" Y5 k) R7 Z& ]5 @3 ?
示例：
1、 空格连接=and，如 你好 我要=%你好% and %我要%
5 }4 {( y, x6 C  n4 s2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
7 l/ B8 j" M# j3、 |=or，如 你好|我要=%你好% or %我要%
4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符

6 h% c' L& p+ L; U; d' P4 [- ?组合查询
- U. |( }: h3 L5 V) {+ d1 H如 \i love this game\|-你好=%i love this game% and not like %你好%
1 F# Y+ L% u5 ~. q+ m0 ^% y$ \9 |% M如 我要$|-$你好=%我要 or not like 你好%
如 $\i love this game\ $你好$=i love this game% and like 你好

2 q( q) N& O1 j, Y调用：

- A& ]- R+ S4 G$ ^6 j1 yDim SQL,WSQL
- }9 `: J9 U5 l1 i/ \% SDim Keyword,Field
8 z8 Z$ R5 w0 K3 |# Q- C
0 x5 \6 n, d8 ]1 w" N/ Y'get keyword
Keyword=Request("keyword")
Field=Request("field")

WSQL=MakeSQLQuery(Field,Keyword)

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

Eagle

哦，