一个用于搜索的函数

阿力

'====================================================================
) C, h2 E+ u* {3 ]'= Copyright (c) 2005 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
9 Y- V9 b& y7 p+ x3 P( t'= 摘    要：格式化搜索字符函数
'=-------------------------------------------------------------------
1 k2 V. M6 C% x. N9 p- t& Y'= 最后更新：eason007
'= 最后日期：2005-01-21
7 z8 c6 y7 h' }'====================================================================
Function MakeSQLQuery(QueryField,QueryStr)
; ~- x5 ?' W. Y' b& h' W     Dim TagStart,TagEnd
" s4 O8 F- X, M. ^* D     Dim TempStr,TempArray
     Dim FullQueryStr
     Dim i,Way
8 ~! ?+ Q) e! }& _1 e# n     
( o3 C9 g1 K2 b9 b( q0 A     '先找引号定界符
     Do
           TagStart=InStr(QueryStr,"\")
& J: L2 d- ?8 D! d# y  L           If TagStart>0 Then
                 TagEnd=InStr(TagStart+1,QueryStr,"\")
' z- S( b( V- N                 
                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
: V( o( ~9 h; O9 b                 TempStr=Replace(TempStr," ","#")
                 
                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
: K# n; l- m1 @. g$ o           End If
" g  S. }. f5 h5 J! j! e0 m* U- L: R     Loop While TagStart>0
     
     '处理or定界符
     QueryStr=Replace(QueryStr,"|"," @")
     '分隔关键字
     TempArray=Split(QueryStr," ")
     
8 n1 G9 j: e8 k3 H/ b2 o: \+ V     For i=0 To UBound(TempArray)
$ K6 r# I0 x2 o* M  j           If Left(TempArray(i),1)="@" Then
9 S) o. c7 h  N0 q/ `                 FullQueryStr=FullQueryStr&" Or "&QueryField
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           Else
                 FullQueryStr=FullQueryStr&" And "&QueryField
3 `  N7 ^3 j' ]           End If
! K, W: n0 l0 i1 r8 P0 a           
           If Left(TempArray(i),1)="-" Then
2 H) Y2 b9 P" W& }+ P; ~. b: s  y                 FullQueryStr=FullQueryStr&" Not "
9 @+ t% s% ]7 \8 O# E; h) C                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
% B6 G0 u7 _) ?           End If
           
           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
           
: Y1 W) p/ x  `! j           FullQueryStr=Replace(FullQueryStr,"%$","")
/ x4 ]  Q, K' Y. q8 l/ o/ A           FullQueryStr=Replace(FullQueryStr,"$%","")
, D8 ?" Q% M; R* ]- S  }  J           FullQueryStr=Replace(FullQueryStr,"#"," ")
     Next
     
, y/ B! S6 H; \( [- }     MakeSQLQuery=FullQueryStr
End Function

. L3 ~8 t, o' P: X* u* B7 M+ |) Y
说明：
用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
如有疏忽之处，还请原谅！

示例：
0 A2 K1 k0 Y8 V+ o1 P6 S2 c1、 空格连接=and，如 你好 我要=%你好% and %我要%
  X8 l# S+ [1 c" R1 M2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
3、 |=or，如 你好|我要=%你好% or %我要%
1 d. x  f6 O3 z- i& G2 Z4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符
" k# T0 H' _0 l1 q
组合查询
如 \i love this game\|-你好=%i love this game% and not like %你好%
0 a- t& |# `9 F7 H8 R+ s4 U/ D+ t如 我要$|-$你好=%我要 or not like 你好%
如 $\i love this game\ $你好$=i love this game% and like 你好

; T2 m2 b  \; q( J调用：

/ M9 o9 {1 m% J! IDim SQL,WSQL
Dim Keyword,Field

9 s; `  m* P: e+ P# O'get keyword
Keyword=Request("keyword")
Field=Request("field")

WSQL=MakeSQLQuery(Field,Keyword)

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

Eagle

哦，