Es fácil usar ASP para buscar, pero es un poco más agotador implementar la búsqueda inteligente. De hecho, cualquier programa es similar. Depende principalmente de la potencia de procesamiento de la base de datos. Generalmente, el ASP para sitios web pequeños suele combinarse. la base de datos ACCESS Bajo esta configuración, tenemos que implementar Para buscar y resaltar palabras clave sin distinguir entre mayúsculas y minúsculas, debe utilizar el procesamiento normal de ASP. Consulte el siguiente código.
Copie el código de código de la siguiente manera:
<%
Función para llevar (patrón, cadena1, colores)
'Extraer el texto que coincide con las palabras clave de búsqueda
Dim regEx, Match, Matches, tt 'Crear variables.
Set regEx = New RegExp ' Crea una expresión regular.
regEx.Pattern = patrón ' Establecer patrón.
regEx.IgnoreCase = True ' Establece si se distingue entre mayúsculas y minúsculas.
regEx.Global = True ' Establece la disponibilidad global.
Establecer coincidencias = regEx.Execute(string1) 'Ejecutar búsqueda.
Para cada partido en Partidos 'Recorre la colección de Partidos.
RetStr = RetStr & Coincidencia.Valor &
Próximo
RetStr = recortar(RetStr)
si instr(RetStr, )>0 entonces
para tt = 0 a ubound(split(RetStr, ))
cadena1 = reemplazar(cadena1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
próximo
demás
cadena1 = reemplazar(cadena1,RetStr,<font color=&colors&>&RetStr&</font>)
terminar si
Comida para llevar = cadena1
Función final
Response.write Takeout (jOeKOe, versión bilingüe Joekoe Joeko, rojo)
Función Resaltar(strContent,palabra clave) 'Marcar palabras clave resaltadas
Expresión regular tenue
Establecer RegEx = nueva RegExp
RegEx.IgnoreCase =True 'No distingue entre mayúsculas y minúsculas
RegEx.Global=Verdadero
Dim ArrayPalabra clave,i
ArrayKeyword = Split(palabra clave,)'Varias palabras clave separadas por espacios
Para i=0 a Ubound (ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
Próximo
Establecer expresión regular = nada
Resaltado = strContenido
Función final
Response.write Highlight (versión bilingüe de Joekoe, jOeKOe)
%>