一个用于搜索的函数

阿力

'====================================================================
/ b4 J2 E! x- z) z'= Copyright (c) 2005 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
7 g& [8 m. T: w( t  o'= 摘    要：格式化搜索字符函数
% Z8 X# `. G3 Q9 ~! l+ }'=-------------------------------------------------------------------
; I* u! w0 P( s) Z$ i'= 最后更新：eason007
'= 最后日期：2005-01-21
'====================================================================
Function MakeSQLQuery(QueryField,QueryStr)
     Dim TagStart,TagEnd
     Dim TempStr,TempArray
     Dim FullQueryStr
3 p/ m! H/ L# X. P  s, \     Dim i,Way
     
: p: H  k# }( P     '先找引号定界符
. t  f, a) a' j, V, C     Do
           TagStart=InStr(QueryStr,"\")
           If TagStart>0 Then
$ p' ~# t4 T8 m                 TagEnd=InStr(TagStart+1,QueryStr,"\")
                 
  t1 L8 c1 g' T- a. q0 i                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
8 j: O  @/ ~# e4 Y                 TempStr=Replace(TempStr," ","#")
                 
% `$ M8 @( I, u; t" W: t                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
           End If
+ z; z$ y( {  q6 F( ~8 q$ |     Loop While TagStart>0
: ~2 d( }4 p8 h1 j5 M     
4 B2 r' Y# e4 |     '处理or定界符
, u4 O! W, J: [8 N2 E7 k     QueryStr=Replace(QueryStr,"|"," @")
     '分隔关键字
     TempArray=Split(QueryStr," ")
     
     For i=0 To UBound(TempArray)
$ |* x! R3 m+ i" X! x           If Left(TempArray(i),1)="@" Then
                 FullQueryStr=FullQueryStr&" Or "&QueryField
) r; Q& n7 o' ?: w; q6 G                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           Else
2 e) U* S- |* ]* l2 g. ~. d                 FullQueryStr=FullQueryStr&" And "&QueryField
           End If
; @( L! x, \* K6 [9 R/ d! x           
: N1 i' }* x9 D2 W           If Left(TempArray(i),1)="-" Then
                 FullQueryStr=FullQueryStr&" Not "
; {& s0 [; R4 j3 H                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           End If
           
" ~0 `. R: S& Q% t$ H           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
/ H0 c$ K5 H% f: O& R           
           FullQueryStr=Replace(FullQueryStr,"%$","")
$ G- o9 x  W$ F2 R: Y5 d1 I           FullQueryStr=Replace(FullQueryStr,"$%","")
8 Z# N$ Y6 A1 V% U6 {3 m) V$ f           FullQueryStr=Replace(FullQueryStr,"#"," ")
4 q% b8 Y( O0 y, s1 v. N) X     Next
     
% B- E, N% R& k4 r     MakeSQLQuery=FullQueryStr
End Function
" h1 @2 v) x* U- b

说明：
6 O$ P- w# P. O( n( V* b用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
如有疏忽之处，还请原谅！
0 ?/ J# x; m" O; p! ~+ `
示例：
1、 空格连接=and，如 你好 我要=%你好% and %我要%
' P+ R5 Z2 b8 Z" x6 {; {, D/ C) v2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
% `( e1 i6 Q* H& e3、 |=or，如 你好|我要=%你好% or %我要%
8 j# \* `% b3 l  N2 [3 M4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符

3 f" J. J& O: k  E组合查询
6 w% {. Z3 _' `4 h' w0 ^/ l如 \i love this game\|-你好=%i love this game% and not like %你好%
如 我要$|-$你好=%我要 or not like 你好%
如 $\i love this game\ $你好$=i love this game% and like 你好
1 ]8 T0 {- T* z; Q" W5 c
. X! o/ n( c1 ^$ N/ I调用：
+ C  N! t' }: I4 T. n7 x
Dim SQL,WSQL
Dim Keyword,Field
4 f/ ?: D$ ]8 F. ]: ^" r# V
'get keyword
Keyword=Request("keyword")
* @' O% n1 G+ p$ n6 d" ^- yField=Request("field")
  X: o0 V) `9 O" R* K  }" y) p
$ ~5 c" F6 w7 c2 `- G9 m2 G1 XWSQL=MakeSQLQuery(Field,Keyword)
! O2 @  B0 _' }* v
SQL="SELECT * FROM table1 WHERE 1=1 "&WSQL

Eagle

哦，