El otro dÃa expliqué como hacer el meta description de html con ASP (por cierto mejorado), el de keywords no lo he puesto aún por que lo estaba mejorando
Lo ideal es pasar le un texto no demasiado largo, yo le paso el description, ya que el meta keyword, cuanto mas parezca al contenido de la web, mucho mejor 
function getKeywords(texto)'convierte un texto a keywords
dim i,banned
getKeywords=lcase(texto)'todo a minusuclas
getKeywords=quitarHtml(getKeywords)’quitamos el html
banned = array(”;”,”:”,”.”,” from “,” ante ” , ” bajo “,” cabe “,” contra “,” desde “,” entre “,” hacia “,” hasta “,” para “,” según “,” sobre “,” tras “,”,,”,” “)’palabras de mas de 3 caracteres que no queremos y los espacios los substituimos por comas
for i = 0 to uBound(banned)
getKeywords = replace(getKeywords, banned(i),”,”)’reemplazamos
next
getKeywords=delMenoresDe(3,getKeywords,”,”)’quitamos palabras menores de 3, esto es configurable
getKeywords=delDuplicados(getKeywords,”,”)’eliminamos las palabras duplicadas
end function
También necesitareis estas tres funciones, la primera elimina todas las palabras menores de X, la segunda las palabras duplicadas, y la tercera te dice si un elemento esta en un array Read the rest of this entry »
Recent Comments