一个用于搜索的函数

阿力

'====================================================================
$ y# |4 z; Q5 x3 j'= Copyright (c) 2005 Eason Chan All Rights Reserved.
" [: O& D6 S% Y7 @6 U'=-------------------------------------------------------------------
'= 摘    要：格式化搜索字符函数
$ ]5 f0 {& ]" l* C2 E'=-------------------------------------------------------------------
'= 最后更新：eason007
, b  k" T5 v8 b4 h/ i- w'= 最后日期：2005-01-21
  J/ I% m7 N  E+ l3 z& h'====================================================================
( g% T+ N9 w# Q, G$ K$ U: @Function MakeSQLQuery(QueryField,QueryStr)
% C/ E* j; r( m0 a, P! W4 b+ g     Dim TagStart,TagEnd
/ X* Y4 r& T8 a+ p: x, x* r% K     Dim TempStr,TempArray
     Dim FullQueryStr
     Dim i,Way
  k2 @/ `3 P$ {2 V, ~6 d9 B9 r5 M     
* [  P4 U" w: ?5 g; }1 B& R1 A) H     '先找引号定界符
8 P. S, k; `. ?! g& Y     Do
2 c7 H: v' D, R6 j7 K           TagStart=InStr(QueryStr,"\")
           If TagStart>0 Then
' {0 z6 Y3 w( T4 |+ g, ]                 TagEnd=InStr(TagStart+1,QueryStr,"\")
                 
                 TempStr=Mid(QueryStr,TagStart+1,TagEnd-TagStart-1)
9 D3 K! A; U# v) J) ?' H                 TempStr=Replace(TempStr," ","#")
                 
                 QueryStr=Left(QueryStr,TagStart-1)&TempStr&Right(QueryStr,Len(QueryStr)-TagEnd)
           End If
     Loop While TagStart>0
     
5 |# p' w+ l( b7 A5 {     '处理or定界符
4 L4 q( j* s0 @     QueryStr=Replace(QueryStr,"|"," @")
     '分隔关键字
     TempArray=Split(QueryStr," ")
     
) Q: O$ s% ]" y2 E# l& r     For i=0 To UBound(TempArray)
           If Left(TempArray(i),1)="@" Then
7 L8 r. t. |8 B                 FullQueryStr=FullQueryStr&" Or "&QueryField
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
9 I! Z9 t6 s6 }7 b% g% Z% U  N           Else
                 FullQueryStr=FullQueryStr&" And "&QueryField
           End If
           
- `$ Y, K# k& d, f# x5 J" Y( z           If Left(TempArray(i),1)="-" Then
                 FullQueryStr=FullQueryStr&" Not "
                 TempArray(i)=Right(TempArray(i),Len(TempArray(i))-1)
           End If
" g* h$ I9 H* N1 T9 P$ q           
           FullQueryStr=FullQueryStr&" Like '%"&TempArray(i)&"%'"
* t% J) t6 c' ?# B/ Q0 `           
. s- z/ g; S" r+ C: I1 c1 p  ?           FullQueryStr=Replace(FullQueryStr,"%$","")
           FullQueryStr=Replace(FullQueryStr,"$%","")
. o7 U9 T) d8 z# f7 I- o: X           FullQueryStr=Replace(FullQueryStr,"#"," ")
+ m  m; z: V: L+ D  O- E, f2 f3 K     Next
     
9 R3 x9 H) U/ C     MakeSQLQuery=FullQueryStr
End Function

3 v* U/ a1 n% @! x2 m% P/ u
8 n$ ^$ @) p: k# [说明：
$ g7 o8 D7 l% P# `+ V2 J用于搜索时，用户可进行复杂的查找，当前1。0版本只支持单字段的搜索，有心人士可自行修改为支持多字段，但请保留我的版权信息。
如有疏忽之处，还请原谅！
9 s% {5 O1 n# b) p4 m" {. U
示例：
1、 空格连接=and，如 你好 我要=%你好% and %我要%
6 V7 l; w0 q: {1 T$ H$ |7 [2、 避免内容包含字符=-，如 你好 -我要=%你好% and not like %我要%
3、 |=or，如 你好|我要=%你好% or %我要%
4、 词组搜索用双引号包含，如 \i love this game\=%i love this game%，而非=i and love and this and game
5 C0 G" M% A, g* u5、 $为定界符，如 $你好=以 你好 开头的字符，你好$=以 你好 结尾的字符
5 H" f1 }+ u& j
组合查询
! x4 Z; M( {% o1 Q* _5 m) S: s1 O如 \i love this game\|-你好=%i love this game% and not like %你好%
: v0 k  n0 j4 D1 |1 a如 我要$|-$你好=%我要 or not like 你好%
如 $\i love this game\ $你好$=i love this game% and like 你好

调用：
$ c3 a) L3 L( q3 [/ }
Dim SQL,WSQL
Dim Keyword,Field

0 R! y6 o8 H9 o5 X'get keyword
Keyword=Request("keyword")
Field=Request("field")

WSQL=MakeSQLQuery(Field,Keyword)

: S  C  U7 i: `3 R1 V/ [- u. `2 ISQL="SELECT * FROM table1 WHERE 1=1 "&WSQL

Eagle

哦，