一个用于搜索的函数

阿力

'====================================================================
'= Copyright (c) 2005 Eason Chan All Rights Reserved.
7 ~! U, w7 }/ J( w'=-------------------------------------------------------------------
'= 摘    要：格式化搜索字符函数
'=-------------------------------------------------------------------
'= 最后更新：eason007
5 l: a% V4 x, X; U) V2 z6 H'= 最后日期：2005-01-21
'====================================================================
9 L. S+ Z3 G6 c9 T8 `Function MakeSQLQuery(QueryField,QueryStr)
$ b6 c: r3 d% E, s+ d! t     Dim TagStart,TagEnd
     Dim TempStr,TempArray
6 {; E( O9 m9 `2 ?! l4 \* O  m$ ]     Dim FullQueryStr
2 H/ B/ _6 Q2 F7 y; c     Dim i,Way
     
( P$ S; o& ^: ~' p$ Q, G( g% Z     '先找引号定界符
' d2 g% j0 r; B* i+ p     Do
           TagStart=InStr(QueryStr,"\")
           If TagStart>0 Then
, o; n8 P. S, B& L' S  ^* O                 TagEnd=InStr(TagStart+1,QueryStr,"\")
                 
) E# o$ m3 A5 U# D                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
6 X0 k  T/ V% r; }  H4 w+ g1 e+ D                 TempStr=Replace(TempStr," ","#")
                 
* i; x- G9 O4 {& y                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
6 A+ Y% _0 F  J; S7 M; E           End If
% d' h2 I. i* h3 _0 l" R) u! ?  d     Loop While TagStart>0
     
     '处理or定界符
6 T1 s+ [# Z* d2 e  a; ~6 k     QueryStr=Replace(QueryStr,"|"," @")
     '分隔关键字
( ~% {& ~1 c$ u8 X* q     TempArray=Split(QueryStr," ")
     
     For i=0 To UBound(TempArray)
           If Left(TempArray(i),1)="@" Then
4 h# s( O/ Q2 _2 M) n3 y                 FullQueryStr=FullQueryStr&" Or "&QueryField
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           Else
' Y+ }6 @$ _% ~                 FullQueryStr=FullQueryStr&" And "&QueryField
           End If
           
           If Left(TempArray(i),1)="-" Then
0 |9 t0 ?5 f+ Y- |' D2 M1 Q                 FullQueryStr=FullQueryStr&" Not "
$ _# S+ K% N* T- E; O, d' p                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
: B8 Z' c( }8 W4 Z2 p9 ^3 W           End If
0 m" W7 ?# S2 E- \: i           
           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
4 G+ [8 P2 F: q+ j. ?, r; u* i           
           FullQueryStr=Replace(FullQueryStr,"%$","")
           FullQueryStr=Replace(FullQueryStr,"$%","")
- R5 V7 j; p4 n' R0 u: ^) {+ V. i- p           FullQueryStr=Replace(FullQueryStr,"#"," ")
     Next
+ m. }: Q+ g+ O8 Z$ f+ h     
     MakeSQLQuery=FullQueryStr
End Function
0 ?) j2 ]& ]$ a2 F5 g* H" j2 J5 S

0 O5 Z" p1 e9 d) O! q7 F说明：
8 S- ]& v5 `8 N4 H6 s  U' ?用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
- W" c1 Q" E; \% p' |6 [4 N' S, b' U如有疏忽之处，还请原谅！

示例：
1、 空格连接=and，如 你好 我要=%你好% and %我要%
2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
) \/ f4 r. Q7 e7 ^' e6 o# f$ z3、 |=or，如 你好|我要=%你好% or %我要%
4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
( d" H( B/ p0 `, e! `5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符

组合查询
如 \i love this game\|-你好=%i love this game% and not like %你好%
7 k7 R, f! t) S& u  E* `: u如 我要$|-$你好=%我要 or not like 你好%
5 V2 }9 e$ p  A& Y$ @" T( h( \如 $\i love this game\ $你好$=i love this game% and like 你好
" _2 F& ?' W9 h
4 y. h: q6 K9 {/ G: H& m4 h( i调用：

Dim SQL,WSQL
Dim Keyword,Field
% P$ {! A, R  e' ~) p# V. ~
'get keyword
Keyword=Request("keyword")
Field=Request("field")

+ Y9 l9 I- }  ?  x& Z% |( l- M2 ^WSQL=MakeSQLQuery(Field,Keyword)
* J* \: Q8 M! C& _
) m5 {# P4 p- I. ?SQL="SELECT * FROM table1 WHERE 1=1 "&WSQL

Eagle

哦，