一个用于搜索的函数

阿力

'====================================================================
'= Copyright (c) 2005 Eason Chan All Rights Reserved.
+ ~1 l6 h  |9 y/ @'=-------------------------------------------------------------------
'= 摘    要：格式化搜索字符函数
'=-------------------------------------------------------------------
'= 最后更新：eason007
'= 最后日期：2005-01-21
'====================================================================
Function MakeSQLQuery(QueryField,QueryStr)
5 z6 l9 Z: M# O4 W% W9 m( d     Dim TagStart,TagEnd
9 N) V: f3 b. ?2 B% v     Dim TempStr,TempArray
     Dim FullQueryStr
     Dim i,Way
6 K6 ~; o5 Q, D; }& `5 _- P     
     '先找引号定界符
     Do
. y* N2 s! z( n0 j& p% V& Q7 R           TagStart=InStr(QueryStr,"\")
           If TagStart>0 Then
                 TagEnd=InStr(TagStart+1,QueryStr,"\")
' `+ R( X( J3 a/ c4 y# J                 
+ y4 F8 t+ ?+ K: d0 M                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
                 TempStr=Replace(TempStr," ","#")
6 Z6 W! ~1 F5 S# Q4 X                 
* t4 w4 Q: W* h2 n                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
           End If
     Loop While TagStart>0
6 d4 O; K$ j4 o! a! ~     
) ~. R0 G. l3 |7 d. ^     '处理or定界符
, f: P& i- B4 r8 P8 m     QueryStr=Replace(QueryStr,"|"," @")
. H, m, {  ^0 M3 ]/ ~     '分隔关键字
     TempArray=Split(QueryStr," ")
( \; L1 S  ?6 G     
     For i=0 To UBound(TempArray)
           If Left(TempArray(i),1)="@" Then
                 FullQueryStr=FullQueryStr&" Or "&QueryField
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           Else
                 FullQueryStr=FullQueryStr&" And "&QueryField
, o: ]  q! @; }" h( i, |" ?* |5 Y. [* Z           End If
           
           If Left(TempArray(i),1)="-" Then
: B( n  C! c6 i; V; c* g9 p                 FullQueryStr=FullQueryStr&" Not "
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           End If
0 H5 C: Q% V4 l4 j- ?" ]9 k           
4 l7 I+ o8 m' B2 k7 D( _           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
) Y- h9 x& s% r3 f+ N& H           
' ]9 _0 m( a! |5 J) G  }: A: D           FullQueryStr=Replace(FullQueryStr,"%$","")
+ W' {8 P# F0 x8 `           FullQueryStr=Replace(FullQueryStr,"$%","")
           FullQueryStr=Replace(FullQueryStr,"#"," ")
  M/ g! q, b/ ^' C" ~     Next
0 E) v4 G6 |# ?. L1 s     
6 o2 X+ u' v% d/ b' b     MakeSQLQuery=FullQueryStr
End Function
8 D/ g$ V# x$ Q# v! B9 G: F
/ C. S, l5 t& L4 v8 m" ]( z
说明：
用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
, p$ k& S* _8 A  _7 `如有疏忽之处，还请原谅！

示例：
7 g2 p: O8 S" W+ _1、 空格连接=and，如 你好 我要=%你好% and %我要%
2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
( Y' ^" d( a! x1 U3、 |=or，如 你好|我要=%你好% or %我要%
9 U% W% J3 W# {  K% E8 t2 F4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
# `8 v- T, L' y0 m9 \. i1 O5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符
4 @: y% h( ]9 h" W
* R9 O" A& S: Z( p组合查询
: s8 _+ h  B$ d# G6 {7 d如 \i love this game\|-你好=%i love this game% and not like %你好%
& F& h  N/ Q* Z# y6 V( ]- g如 我要$|-$你好=%我要 or not like 你好%
9 g9 _- Q! F- B) n) b如 $\i love this game\ $你好$=i love this game% and like 你好
  `7 F8 g, C3 Z0 i# u5 g
" t( }" f- R+ i2 _调用：
+ j; Y6 s, S8 u3 z: H  E# k
Dim SQL,WSQL
Dim Keyword,Field
; D3 B5 c0 g: y
'get keyword
Keyword=Request("keyword")
Field=Request("field")
) V. d' f2 G; k/ L# ]3 o
WSQL=MakeSQLQuery(Field,Keyword)

+ u4 }* s7 Y" G, dSQL="SELECT * FROM table1 WHERE 1=1 "&WSQL

Eagle

哦，