Limpiar cadena de texto para URL amigable con ASP clásico

Código ASP clásico

Esta otra función es bastante más completa, utiliza además expresiones regulares para eliminar cualquier caracter no permitido en una URL, lo que nos permite limpiar o formatear una cadena de texto para su uso como URL amigable hacia una página concreta de nuestro sitio web.


  <%

  Function LimpiarUrl(ByVal texto)

    

    Dim objRegExp

    Set objRegExp = New Regexp

    

    objRegExp.IgnoreCase = True

    objRegExp.Global = True

    

    objRegExp.Pattern = "\s+"

    texto = objRegExp.Replace(texto, " ")

    

    objRegExp.Pattern = "[(?*"",\\<>&#~%{}+.@:\/!;']+"

    texto = objRegExp.Replace(texto, "")

    

    Dim i, s1, s2

    s1 = "ÁÀÉÈÍÏÓÒÚÜáàèéíïóòúüñç "

    s2 = "AAEEIIOOUUaaeeiioouunc-"

    If Len(texto) <> 0 Then

        For i = 1 To Len(s1)

            texto = Replace(texto, Mid(s1,i,1), Mid(s2,i,1))

        Next

    End If



    LimpiarUrl = LCase(texto)



End Function

  %>

tags: url amigables asp, asp visual studio, asp clasico, cadenas en asp, asp cadenas, url amigable, friendly url, crear url amigables, recortar url google