Vor einiger Zeit habe ich eine Mehrfeld-Fuzzy-Suchfunktion geschrieben (ähnlich wie Baidui). Der Funktionscode lautet wie folgt
'============================================== = =
'Funktionsname: keyword_sousuo
'Funktion: SQL-Abfragebedingungen generieren
'Parameter: table_field ------ Feldnamen der Tabelle (durch Kommas getrennt)
' Schlüsselwort ------ Suchbegriffe durchsuchen (durch Leerzeichen trennen)
'Rückgabe: SQL-Abfragebedingungen
'============================================== = =
Funktion keyword_sousuo(byval table_field,byval keyword)
dim str01,str02,keywords,table_fields,i,j
table_fields=split(trim(table_field),,)
keywords=split(trim(keyword),,)
wenn table_field<> dann
str01=(&table_fields(0)& like '%&keyword&%'
für j=0 bis ubound(table_fields)
str01=str01& oder &table_fields(j)& wie '%&keyword&%'
nächste
str01=str01&)
anders
Response.Write(<script>alert('Parameterfehler (darf nicht leer sein)!')</script>)
Antwort.End()
Ende wenn
'Volle Breite -> Leerzeichen in halber Breite
'keyword=replace(keyword, , )
'while InStr(keyword, )>0
' keyword=replace(keyword, , )
'wend
keywords=split(keyword, )
wenn ubound(keywords)>0 dann
für i=0 bis ubound(keywords)
str02=str02&(&table_fields(0)& wie '%&keywords(i)&%'
für j=1 bis ubound(table_fields)
str02=str02& oder &table_fields(j)& wie '%&keywords(i)&%'
nächste
str02=str02&)
nächste
str02=(&replace(str02,)(,)and()&)
keyword_sousuo=( & str01 & oder & str02 & )
anders
keyword_sousuo=str01
Ende wenn
Endfunktion
'============================================== = =
'Funktionsname: keyword_tag
'Funktion: Markieren Sie die Schlüsselwörter in der Zeichenfolge rot
'Parameter: str ------ string
' Schlüsselwort ------ Schlüsselwörter markieren (durch Leerzeichen trennen)
'Rückgabe: string (HTML-Format)
'============================================== = =
Funktion keyword_tag(byval str,byval keyword)
dim keywords,str01,str02,i
'Volle Breite -> Leerzeichen in halber Breite
'keyword=replace(keyword, , )
'while InStr(keyword, )>0
' keyword=replace(keyword, , )
'wend
str01=replace(str,keyword,<font color=#ff0000>&keyword&</font>)
keywords=split(keyword, )
wenn ubound(keywords)>0 dann
str02=str
für i=0 bis ubound(keywords)
str02=replace(str02,keywords(i),<font color=#ff0000>&keywords(i)&</font>)
nächste
keyword_tag=str02
anders
keyword_tag=str01
Ende wenn
Endfunktion
Das Folgende ist ein Beispiel: http://www.zhouhaihe.com/blog/uploads/200604/recordread.asp
<%@LANGUAGE=VBSCRIPT CODEPAGE=936%>
<%
Option explizit
dimmen Sie conn,connstr,database
connstr=DBQ=+server.mappath(record.mdb)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};
set conn=server.CreateObject(adodb.connection)
conn.open connstr
dim n,rs,page,keyword,keywords,RecordCount,pageCount,pos,i,sql_where
n=50
page=Anfrage(Seite)
keyword=trim(request(keyword))
sql_where=keyword_sousuo(title,cz,name,time,keyword)
set rs=server.CreateObject(adodb.recordset)
rs.open select * from record where &sql_where& order by id desc,conn,1,2
wenn page=0 dann
Seite=1
Ende wenn
RecordCount = 0
tun, während nicht rs.Eof
RecordCount = RecordCount +1
rs.MoveNext
Schleife
wenn nicht RecordCount=0 dann
rs.MoveFirst
Ende wenn
pageCount=RecordCount/n
pageCount=int(pageCount)
if (RecordCount mod n)>0 dann
Seitenanzahl=Seitenanzahl +1
Ende wenn
%>
<style type=text/css>
<!--
.STYLE3 {Farbe: #666666}
->
</style>
<Tabellenbreite=100 % Rand=0 Zellenabstand=0 Zellenpadding=0>
<form id=form1 name=form1 method=post action=?><tr><td align=center><input name=keyword type=text id=keyword value=<%=keyword%> size=30 />
<Eingabetyp=Submit-Name=Submit-Wert=Suche/>
<span class=STYLE3>(Schlüsselwörter durch Leerzeichen trennen) </span></td>
</tr></form>
<tr>
<td height=5></td>
</table>
<table width=600 border=1 align=center cellpadding=4>
<tr align=center>
<td width=131>Titel</td>
<td width=131>Aktion</td>
<td width=131>Benutzername</td>
<td width=132>Zeit</td>
</tr>
<%pos=0
do while pos<(page-1)*n
pos=pos+1
rs.moveNext
Schleife
i=0
während nicht rs.eof und i<n
i=i+1%>
<tr align=center>
<td><%=keyword_tag(rs(title),keyword)%></td>
<td><%=keyword_tag(rs(cz),keyword)%></td>
<td><%=keyword_tag(rs(name),keyword)%></td>
<td><%=keyword_tag(rs(time),keyword)%></td>
</tr>
<%rs.movenext
wenden
rs.close
setze rs=nichts
Verbindung schließen
setze conn=nichts
'============================================== = =
'Funktionsname: keyword_sousuo
'Funktion: SQL-Abfragebedingungen generieren
'Parameter: table_field ------ Feldnamen der Tabelle (durch Kommas getrennt)
' Schlüsselwort ------ Suchbegriffe durchsuchen (durch Leerzeichen trennen)
'Rückgabe: SQL-Abfragebedingungen
'============================================== = =
Funktion keyword_sousuo(byval table_field,byval keyword)
dim str01,str02,keywords,table_fields,i,j
table_fields=split(trim(table_field),,)
keywords=split(trim(keyword),,)
if table_field<> then
str01=(&table_fields(0)& like '%&keyword&%'
für j=0 bis ubound(table_fields)
str01=str01& oder &table_fields(j)& wie '%&keyword&%'
nächste
str01=str01&)
anders
Response.Write(<script>alert('Parameterfehler (darf nicht leer sein)!')</script>)
Antwort.End()
Ende wenn
'Volle Breite -> Leerzeichen in halber Breite
Schlüsselwort=ersetzen(Schlüsselwort, , )
' while InStr(keyword, )>0
' keyword=replace(keyword, , )
'wend
keywords=split(keyword, )
wenn ubound(keywords)>0 dann
für i=0 bis ubound(keywords)
str02=str02&(&table_fields(0)& wie '%&keywords(i)&%'
für j=1 bis ubound(table_fields)
str02=str02& oder &table_fields(j)& wie '%&keywords(i)&%'
nächste
str02=str02&)
nächste
str02=(&replace(str02,)(,)and()&)
keyword_sousuo=( & str01 & oder & str02 & )
anders
keyword_sousuo=str01
Ende wenn
Endfunktion
'============================================== = =
'Funktionsname: keyword_tag
'Funktion: Markieren Sie die Schlüsselwörter in der Zeichenfolge rot
'Parameter: str ------ string
' Schlüsselwort ------ Schlüsselwörter markieren (durch Leerzeichen trennen)
'Rückgabe: string (HTML-Format)
'============================================== = =
Funktion keyword_tag(byval str,byval keyword)
dim keywords,str01,str02,i
'Volle Breite -> Leerzeichen in halber Breite
Schlüsselwort=ersetzen(Schlüsselwort, , )
'while InStr(keyword, )>0
' keyword=replace(keyword, , )
'wend
str01=replace(str,keyword,<font color=#ff0000>&keyword&</font>)
keywords=split(keyword, )
wenn ubound(keywords)>0 dann
str02=str
für i=0 bis ubound(keywords)
str02=replace(str02,keywords(i),<font color=#ff0000>&keywords(i)&</font>)
nächste
keyword_tag=str02
anders
keyword_tag=str01
Ende wenn
Endfunktion
dim y
%> <tr align=center>
<td colspan=4> <%=RecordCount%><font color=#FF0000><%=page%></font>/<%=pageCount%> Seiten
<%=n%> Seiten/Seite gehen zu:
<SELECT name=select onchange=window.open(this.options[selectedIndex].value,'_self') >
<%y=1
do while y<pagecount+1%>
<OPTION value=?page=<%=y%>&keyword=<%=server.URLEncode(keyword)%> <%if cstr(page)=cstr(y) then Response.Write( selected) end if%> > Seite <%=y%></OPTION>
<%y=y+1
Schleife%>
</SELECT></td>
</tr>
</table>