Die Suche mit ASP ist einfach, die Implementierung einer intelligenten Suche ist jedoch etwas ermüdender. Tatsächlich ist es bei jedem Programm ähnlich. Im Allgemeinen wird ASP für kleine Websites verwendet In der ACCESS-Datenbank müssen wir die reguläre Verarbeitung von ASP verwenden, um Schlüsselwörter ohne Berücksichtigung der Groß- und Kleinschreibung zu suchen und hervorzuheben.
Kopieren Sie den Codecode wie folgt:
<%
Funktion Takeout(patrn,string1,colors)
'Suchschlüsselwort-passenden Text extrahieren
Dim regEx, Match, Matches, tt 'Variablen erstellen.
Set regEx = New RegExp ' Erstellt einen regulären Ausdruck.
regEx.Pattern = patrn ' Muster festlegen.
regEx.IgnoreCase = True ' Legen Sie fest, ob die Groß-/Kleinschreibung beachtet werden soll.
regEx.Global = True ' Globale Verfügbarkeit festlegen.
Set Matches = regEx.Execute(string1) 'Suche ausführen.
Für jedes Spiel in „Matches“ durchqueren Sie die Matches-Sammlung.
RetStr = RetStr & Match.Value &
Nächste
RetStr = trim(RetStr)
wenn instr(RetStr, )>0 dann
für tt = 0 bis ubound(split(RetStr, ))
string1 = replace(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
nächste
anders
string1 = replace(string1,RetStr,<font color=&colors&>&RetStr&</font>)
Ende wenn
Takeout = string1
Funktion beenden
Response.write Takeout(jOeKOe, Joekoe Joeko zweisprachige Version, rot)
Funktion Highlight(strContent,keyword) 'Hervorgehobene Schlüsselwörter markieren
RegEx dimmen
Setze RegEx=new RegExp
RegEx.IgnoreCase =True 'Groß-/Kleinschreibung wird nicht beachtet
RegEx.Global=True
Dim ArrayKeyword,i
ArrayKeyword = Split(keyword, )'Mehrere durch Leerzeichen getrennte Schlüsselwörter
Für i=0 bis Ubound(ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
Nächste
Setzen Sie RegEx=Nothing
Highlight=strContent
Funktion beenden
Response.write Highlight (zweisprachige Joekoe-Version, jOeKOe)
%>