一个用于搜索的函数

阿力

'====================================================================
6 e$ e9 [  R! N5 P5 ]0 r'= Copyright (c) 2005 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
4 F( u; T2 l8 v; m* S- q$ o* c'= 摘    要：格式化搜索字符函数
'=-------------------------------------------------------------------
+ v$ {% R% B  f( D'= 最后更新：eason007
'= 最后日期：2005-01-21
'====================================================================
0 v. F# O( A$ f+ H. Q8 HFunction MakeSQLQuery(QueryField,QueryStr)
0 E1 l# r  |) M, `% }% r0 _     Dim TagStart,TagEnd
  R$ n$ @: u: p/ o$ M( M     Dim TempStr,TempArray
' w' O( B) O+ @: o5 [. C# x     Dim FullQueryStr
5 b- y# I3 U+ j0 @, a, x! C     Dim i,Way
     
     '先找引号定界符
3 C1 d' O2 [# l: `6 Y7 p. `6 w     Do
           TagStart=InStr(QueryStr,"\")
/ D- G+ ?$ O: X# K% C           If TagStart>0 Then
                 TagEnd=InStr(TagStart+1,QueryStr,"\")
2 B- |5 g! x- a! o; q2 v8 T2 x                 
                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
                 TempStr=Replace(TempStr," ","#")
- @* Y. R7 i: @- X! O                 
                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
' I) ]* I. T6 G% ?  A' x           End If
1 ]9 Q, O( \+ n     Loop While TagStart>0
     
) r8 ^4 x1 V! ]( E; j. ?     '处理or定界符
     QueryStr=Replace(QueryStr,"|"," @")
     '分隔关键字
     TempArray=Split(QueryStr," ")
+ X7 n4 }' A( j# X4 b) b     
     For i=0 To UBound(TempArray)
           If Left(TempArray(i),1)="@" Then
: v# T# [7 Y! |7 B. q                 FullQueryStr=FullQueryStr&" Or "&QueryField
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           Else
+ d7 j* Y2 p0 O) f                 FullQueryStr=FullQueryStr&" And "&QueryField
6 S; M1 m) z" l6 P# J  b; b/ w           End If
. L! O; v' H, r. \) ^! X           
5 q7 N# b7 n' A1 b5 d           If Left(TempArray(i),1)="-" Then
2 [- {& O4 K$ i1 y" M, z  x9 B) p                 FullQueryStr=FullQueryStr&" Not "
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
( E) X1 q, ~' W6 x$ c: q) ^& |           End If
( Q6 K. V: _8 T3 h           
           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
           
           FullQueryStr=Replace(FullQueryStr,"%$","")
8 u3 l6 {4 T) q' g% d8 v           FullQueryStr=Replace(FullQueryStr,"$%","")
           FullQueryStr=Replace(FullQueryStr,"#"," ")
     Next
     
     MakeSQLQuery=FullQueryStr
2 R7 e2 t, q* g3 c) _' Q& N) wEnd Function
1 F! O; O. S' r3 _* G
  [  I0 j* I$ m% Z' q" _& X
说明：
  L( R/ T! Z& e, l用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
8 `% Q( ]5 h$ w; a; `& B: X6 r如有疏忽之处，还请原谅！
1 z% E2 T! f) P. x0 s
3 n  B# E: I9 [. o示例：
6 h6 h- [1 P" r9 d3 R  ^. @/ |1、 空格连接=and，如 你好 我要=%你好% and %我要%
0 L: w3 S8 e% R. }' p* J! }' C2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
3、 |=or，如 你好|我要=%你好% or %我要%
, z* I6 O) M! _; }. c5 @4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
8 g. L: s, L4 J4 @5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符

9 i( d0 a, j0 W1 M% q组合查询
如 \i love this game\|-你好=%i love this game% and not like %你好%
如 我要$|-$你好=%我要 or not like 你好%
  k0 r+ p  E. s& Q% O如 $\i love this game\ $你好$=i love this game% and like 你好
# |, j& m. e- b( ?0 I7 z
调用：
* y& H& a/ I4 l7 }* h
Dim SQL,WSQL
' U. Y9 |" M  J* G: J4 ^Dim Keyword,Field
% E/ S" V4 m5 G: u7 W/ r. h
'get keyword
5 R/ w, V$ V# IKeyword=Request("keyword")
Field=Request("field")
  a: W7 o0 x' u* d. o
WSQL=MakeSQLQuery(Field,Keyword)

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

Eagle

哦，