Il est facile d'utiliser ASP pour effectuer une recherche, mais il est un peu plus fastidieux de mettre en œuvre une recherche intelligente. En fait, tout programme est similaire. Cela dépend principalement de la puissance de traitement de la base de données. Généralement, ASP pour les petits sites Web est souvent associé. la base de données ACCESS. Dans cette configuration, nous devons implémenter Pour rechercher et mettre en évidence les mots-clés sans tenir compte de la casse, vous devez utiliser le traitement habituel d'ASP. Veuillez consulter le code suivant :
Copiez le code comme suit :
<%
Fonction à emporter (motif, chaîne1, couleurs)
'Extraire le texte correspondant au mot clé de recherche
Dim regEx, Match, Matches, tt 'Créer des variables.
Set regEx = New RegExp 'Créer une expression régulière.
regEx.Pattern = patrn 'Définir le modèle.
regEx.IgnoreCase = True ' Définit s'il doit être sensible à la casse.
regEx.Global = True 'Définit la disponibilité globale.
Set Matches = regEx.Execute(string1) 'Exécuter la recherche.
Pour chaque correspondance dans les correspondances ' Parcourez la collection Matches.
RetStr = RetStr & Match.Value &
Suivant
RetStr = trim(RetStr)
si instr(RetStr, )>0 alors
pour tt = 0 à ubound(split(RetStr, ))
string1 = replace(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
suivant
autre
string1 = remplacer(string1,RetStr,<font color=&colors&>&RetStr&</font>)
finir si
À emporter = chaîne1
Fonction de fin
réponse.write Takeout(jOeKOe, Joekoe Joeko version bilingue, rouge)
Fonction Highlight(strContent,keyword) 'Marquer les mots-clés en surbrillance
Dim RegEx
Définir RegEx=nouvelle RegExp
RegEx.IgnoreCase =True 'Pas sensible à la casse
RegEx.Global=Vrai
Dim ArrayKeyword,i
ArrayKeyword = Split(keyword, )'Plusieurs mots-clés séparés par des espaces
Pour i = 0 vers Ubound (ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
Suivant
Définir RegEx = Rien
Highlight=strContent
Fonction de fin
Response.write Highlight (Joekoe version bilingue, jOeKOe)
%>