一个用于搜索的函数

阿力

'====================================================================
5 D, m4 s5 G1 s( }'= Copyright (c) 2005 Eason Chan All Rights Reserved.
  l, \0 e( I8 C4 m, `" N. Z1 R'=-------------------------------------------------------------------
  L, i1 O2 Y: C% H'= 摘    要：格式化搜索字符函数
'=-------------------------------------------------------------------
' P2 m4 t/ p* ~'= 最后更新：eason007
'= 最后日期：2005-01-21
'====================================================================
Function MakeSQLQuery(QueryField,QueryStr)
     Dim TagStart,TagEnd
     Dim TempStr,TempArray
! ~7 a. C, K% C; P     Dim FullQueryStr
     Dim i,Way
     
     '先找引号定界符
/ H. ?0 N( N5 D. J8 l- C  V3 f     Do
3 c& w5 p+ `) g           TagStart=InStr(QueryStr,"\")
. A# b- I$ [& `, o- u; A           If TagStart>0 Then
  \7 L# A# J4 D1 h0 K" L- y                 TagEnd=InStr(TagStart+1,QueryStr,"\")
# k( I5 o; Y8 X                 
+ \0 e9 T& P7 k% v                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
                 TempStr=Replace(TempStr," ","#")
                 
                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
4 S; `, D: C) E( O# f3 j           End If
     Loop While TagStart>0
     
* k" U- f# ^" R; V( q     '处理or定界符
     QueryStr=Replace(QueryStr,"|"," @")
     '分隔关键字
) {/ z* P- E) g7 V" ], n     TempArray=Split(QueryStr," ")
     
7 M+ n6 x$ Q. H+ x* i# b     For i=0 To UBound(TempArray)
           If Left(TempArray(i),1)="@" Then
' U: O- m2 W- e5 s& d4 W( y                 FullQueryStr=FullQueryStr&" Or "&QueryField
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
* D, E* s) g# T  P4 B# b! k+ c! I           Else
6 S9 L2 Y2 g" h1 P                 FullQueryStr=FullQueryStr&" And "&QueryField
           End If
7 G, H# C) |1 Y/ \0 [           
& \9 f5 g* @5 f. Q  ^: Z1 z           If Left(TempArray(i),1)="-" Then
) W! a/ M& k2 F" U* M' b& m                 FullQueryStr=FullQueryStr&" Not "
# v% x! o4 V' w" a( G- K7 S                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
: a; R1 ?' ?# _8 |1 z* o5 n+ h           End If
! G# j0 c+ L: F& Y           
           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
           
           FullQueryStr=Replace(FullQueryStr,"%$","")
           FullQueryStr=Replace(FullQueryStr,"$%","")
           FullQueryStr=Replace(FullQueryStr,"#"," ")
     Next
     
5 @  w# h* J/ o9 d7 ^! y     MakeSQLQuery=FullQueryStr
End Function
6 y: m. E6 x: C+ E: {

说明：
用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
- y$ s* }& R. u& d7 k1 O如有疏忽之处，还请原谅！

示例：
/ ?7 @, A/ x0 l1、 空格连接=and，如 你好 我要=%你好% and %我要%
2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
, h1 F& I& J0 N& M# N, e3、 |=or，如 你好|我要=%你好% or %我要%
4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符
* K; C0 d; t" l  P" H( |
% S1 X! f% w4 Z2 u组合查询
如 \i love this game\|-你好=%i love this game% and not like %你好%
如 我要$|-$你好=%我要 or not like 你好%
如 $\i love this game\ $你好$=i love this game% and like 你好

调用：

# q) x* w0 U- h7 r* |  L: HDim SQL,WSQL
Dim Keyword,Field
) W* h# {8 i( r4 ^/ X9 S
9 t% u( M" @# s; D& f5 V'get keyword
Keyword=Request("keyword")
Field=Request("field")

WSQL=MakeSQLQuery(Field,Keyword)

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

Eagle

哦，