Convertir texto plano a enlaces activos

[Jhon Silver]

Como puedo convertir texto plano plano en Asp de manera que los enlaces sean activos ya que el formato

<a href="http://www.info.es/consejos.htm">visista esta pagina</a>

no aparece como enlace activo

[Adler]

Hola

Reformula la consulta. Yo al menos no entiendo nada

Suerte

[Myakire]

Supongo que estarás mandando al navegador texto plano (Content-type) y quieres que lo que en HTML sería un hipervínculo se reconozca como tal ... si es eso, pues no, no se puede, si lo definiste como texto plano sería por alguna razón, ahora no puedes mezclarlo con HTML.

Si no es eso, yo tampoco entendí entonces

Saludos

[Jhon Silver]

Voy a ser más explicito. Tengo un foro que el armazon principal no es mio. El resto lo he ido configurando y al empezar el funcionamiento he visto alguna cosas y una de ellas es esta, que no lee los enlaces activos, aqui en esta url lo podemos visualizar http://www.fotoviaje.net/public/foru...p?idmensaje=46 en la tercera respuesta
<a href="http://www.web.es/consejos.htm">visista esta pagina</a>

Si observais ocurre lo mismo con los emails, aparecen como texto plano.
Mi pregunta era por si habria alguna forma rápida de que los enlaces apareciesen activos?

[Adler]

Hola

Entiendo que lo recoges de una bd. Si tienes insertado <a href="http://www.web.es/consejos.htm">visista esta pagina</a> no ha de haber ningún impedimento

Suerte

[Jhon Silver]

Iniciado por Adler

Hola

Entiendo que lo recoges de una bd. Si tienes insertado <a href="http://www.web.es/consejos.htm">visista esta pagina</a> no ha de haber ningún impedimento

Suerte

Bueno ya lo tengo aunque...
El script tiene una funcion
Function AcomodarTXT(txt)
He realizado algunos cambios y aunque los emails y los enlaces no aparecen activos. He optado por no extraer de la base de datos los campos email y eliminarlos del correspondiente formulario.
Sobre las urls prefiero mantenerlas como texto plano, de esta manera se puede ahuyentar a los smpammers.

[Adler]

Hola

Iniciado por Jhon Silver

Bueno ya lo tengo aunque...
El script tiene una funcion
Function AcomodarTXT(txt)
He realizado algunos cambios y aunque los emails y los enlaces no aparecen activos. He optado por no extraer de la base de datos los campos email y eliminarlos del correspondiente formulario.
Sobre las urls prefiero mantenerlas como texto plano, de esta manera se puede ahuyentar a los smpammers.

Con expresiones regulares podrías validar que la url pertenece a tu sitio. Si te interesa dilo

Suerte

[Jhon Silver]

Iniciado por Adler

Hola



Con expresiones regulares podrías validar que la url pertenece a tu sitio. Si te interesa dilo

Suerte

Si me interesa. Comentame como lo podria hacer

[Krato]

Y por que no un response.write("Lo que quieras") ? De ésta manera el texto se convertirá a HTML y los enlaces saldrán.

[Adler]

Hola

Aquí te dejo un ejemplo. Es mejorable, pero es lo que se me ha ocurrido al vuelo

Código asp:

<&#37;
Function LimpiarHref(texto)
Dim objRegExp
 
    Set objRegExp= New RegExp 
objRegExp.IgnoreCase = True
objRegExp.Global = True
 
objRegExp.Pattern = "(<a[^>]+href\s?=\s?""?)(ht(t)p\:\/\/www\.(?!misitio))([^<]*)("">)([^>]*)([<])(/)*([\w])([>])"
texto = objRegExp.Replace(texto, "<em><span style=""font-size:9px;"">VINCULO ELIMINADO</span></em>") 
 
    Set objRegExp = Nothing
 
    LimpiarHref = texto
 
End Function
 
Response.Write LimpiarHref("Veamos que vinculos apuntan hacia mi web. Este parece que sí <a href=""http://www.misitio/prueba/prueba1"">http://www.misitio/prueba/prueba1</a>, este otro.... no! así que <a href=""http://www.otrositio/prueba2"">http://www.otrositio/prueba2</a>. Aquí tenemos otro, veamos <a href=""http://www.misitio/prueba"">http://www.misitio/prueba3</a> pues sí, es un vinculo interno. <br/>Parece que viene otro <a href=""http://www.otrositio/prueba/prueba4"">http://www.otrositio/prueba/prueba4</a> por que puede ser spam")
%>
 

Suerte

[Jhon Silver]

Iniciado por Adler

Hola

Aquí te dejo un ejemplo. Es mejorable, pero es lo que se me ha ocurrido al vuelo

Código asp:

<&#37;
Function LimpiarHref(texto)
Dim objRegExp
 
    Set objRegExp= New RegExp 
objRegExp.IgnoreCase = True
objRegExp.Global = True
 
objRegExp.Pattern = "(<a[^>]+href\s?=\s?""?)(ht(t)p\:\/\/www\.(?!misitio))([^<]*)("">)([^>]*)([<])(/)*([\w])([>])"
texto = objRegExp.Replace(texto, "<em><span style=""font-size:9px;"">VINCULO ELIMINADO</span></em>") 
 
Gracias Adler 
 
    Set objRegExp = Nothing
 
    LimpiarHref = texto
 
End Function
 
Response.Write LimpiarHref("Veamos que vinculos apuntan hacia mi web. Este parece que sí <a href=""http://www.misitio/prueba/prueba1"">http://www.misitio/prueba/prueba1</a>, este otro.... no! así que <a href=""http://www.otrositio/prueba2"">http://www.otrositio/prueba2</a>. Aquí tenemos otro, veamos <a href=""http://www.misitio/prueba"">http://www.misitio/prueba3</a> pues sí, es un vinculo interno. <br/>Parece que viene otro <a href=""http://www.otrositio/prueba/prueba4"">http://www.otrositio/prueba/prueba4</a> por que puede ser spam")
%>
 

Suerte

Muchas gracias Adler