01/03/2002, 19:38
|
| | | Fecha de Ingreso: octubre-2000 Ubicación: Juarez, Chih.
Mensajes: 161
Antigüedad: 24 años, 6 meses Puntos: 0 | |
| Re: Buscador basado en los Meta Tags
<%
'Finaliza
Function resaltar(texto_a_afectar,palabra_a_resaltar) 'funcion para resaltar algun texto incluido en otro
Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = palabra_a_resaltar
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(texto_a_afectar)
For Each Match in Matches
texto_a_afectar = replace(texto_a_afectar,Match.Value,"<font color=BLUE><i><b>" & match.value & "</b></i></font>")
Session("Coincidencias") = Session("Coincidencias") + 1 'contador de coincidencias (ocurrencias)
Next
resaltar = texto_a_afectar
End Function
%>
Al encontrarse la palabra clave, este será resaltada en color azul.
Bueno, esta es la versión 0.
En la siguiente, intentaré de decrementar el acceso a los archivo y ordenar los resultados por 'ranking', el cual será basado en la cantidad de veces que la palabra clave fué encontrada en el archivo. Asi mismo incluiré que busque dentro de <body>...</body> ya que ahora no lo hace.
Si alguién ofrece hosting, agradeceré me diga para subir ahi un archivo .zip con las siguientes versiones. Gracias
Nota: Ahora esta demasiado explicado (el código) pero más adelante optimizaré el tamaño del mismo.
Se aceptan ideas.
---------------------
Tan libre como gratuito!!! |