Guerra pela primeira posição
Categorias

Funções úteis de SEO para o ASP Clássico

Imagem do avatar de
Publicado por Gabriel Fróes

A bem verdade é que o ASP 3, também conhecido como ASP Clássico, ainda resiste no tempo e pode ser encontrado em muitos sites e sistemas web por aí.

Entre as milhares de funções disponíveis para o ASP Clássico, existem 2 que gostaria de destacar: uma para criar URL’s amigáveis e outra para a geração automática de um resumo a partir de um conteúdo.

Criação de URL’s Amigáveis (Slugs) para SEO

Function SEOurl(strIN)
   slug = Replace(strIN," ","-")
   slug = Replace(slug,",","-")
   slug = Replace(slug,"#","-")
   slug = Replace(slug,"%","-")
   slug = Replace(slug,"&","-")
   slug = Replace(slug,"*","-")
   slug = Replace(slug,"{","-")
   slug = Replace(slug,"}","-")
   slug = Replace(slug,"\","-")
   slug = Replace(slug,":","-")
   slug = Replace(slug,"<","-")
   slug = Replace(slug,">","-")
   slug = Replace(slug,"?","-")
   slug = Replace(slug,"/","-")
   slug = Replace(slug,"--","-")
   slug = Replace(slug,"--","-")
   slug = Replace(slug,"--","-")
   slug = Replace(Server.Urlencode(slug),"+","-")
  SEOurl = Lcase(slug)
End Function

Exemplo de saída da função

SEOurl("ASP 3 ainda resiste no tempo!")
 
Saída: asp-3-ainda-resiste-no-tempo

Criação de Resumo para Publicações em Blogs

Function createExcerpt(strContent,iLen)
   ce = Trim(strContent)
 
   If iLen < Len(strContent) Then
      ce = Left(strContent,iLen)
      If Instrrev(ce," ") Then
         ce= Left(ce,Instrrev(ce," "))
      End If
      createExcerpt = ce & "..."
   End If
End Function

Para utilizar basta passar por parâmetro o conteúdo e também a quantidade de caracteres máximo que o resumo deve ter. Com essa função é possível criar resumos automaticamente para utilização em homepages, listas, newsletters e etc.

Tags: