Ingresar url en un textarea

[jpalbox]

Hola amigos estoy realizando un foro y quiero q el usuario pueda introducir direcciones urls, y que hagan el vinculo una vez que se suban a la base de datos. Gracias

[meru-kun]

Se trata de qeu tu metas una url y desde una pagina te redireccionen a ella?
Si es asi, coges la url, la pasas por un QueryString, y la metes en un response.redirect
url = Request.QueryString("web")
response.redircet url

[jpalbox]

pero en el textarea habra texto plano tambien, y aveces solamente sera texto plano. No se si me explique....

[meru-kun]

Pues yo no entiendo lo que estas pidiendo...

[jpalbox]

Simplemente el usuario tiene un textarea donde puede escribir
Hay puede escribir lo que le de la gana, (texto solamente, texto y hiperbinculos, hiperbinculos solamente etc.)

Yo quiero que cuando el contenido de ese textarea se ingrese en la base de datos se mantenga el hiperbinculo, para que despues cuando se muestre el contenido en una se pueda pinchar en ese hiperbinculo si lo hay y que te lleve a la pagina a la que apunta.
Me explico?. Gracias

[rodvilleda]

Esto lo encontré, si no me falla la memoria, en las faq`s. Ojalá te sirva:

http://www.forosdelweb.com/showthrea...ir+direcciones

Saludos! y suerte !!

[korev]

Esto es javascript. Tienen el código completo en las faqs de ese foro.

[jpalbox]

Estuve investigando por el link que me dio rodvillena, y encontre dos codigos pero parece que le faltan algo:

Este que muestra la direccion url pero no la muestra como hiperbinculo, simplemente la muestra como texto.

<%
CADENA = "En el sitio web de la Subsecretaría de Asuntos Municipales www.municipios.gov.ar encontrará información de los Municipios Argentinos. Y qué pasa si hay dos direcciones: www.elsitioinutil.20m.com/main.html . Con dos direcciones también funciona ;). Y hasta con 3: www.forosdelweb.com , o quizá 4? www.maestrosdelweb.com . En realidad, no hay límite."
Response.Write CADENA
Response.Write COMIENZO = InStr(CADENA,"www")

contador = 0
do while COMIENZO<>0
FIN = InStr(COMIENZO,CADENA," ")
URL = Mid(CADENA, COMIENZO, FIN-COMIENZO)
URL_ARREGLADA = ("<a href=" & CHR(034) & "http://" & URL & CHR(034)&">" & URL & "</a>")
if contador < 0 then
CADENA_ARREGLADA = Replace(CADENA_ARREGLADA,URL,URL_ARREGLADA)
else
CADENA_ARREGLADA = Replace(CADENA,URL,URL_ARREGLADA)
end if
COMIENZO = InStr(FIN,CADENA,"www")
contador = contador + 1
loop

Response.Write CADENA_ARREGLADA
%>


y este otro el cual me dice que no coinciden los tipos
linea 4.


<%
cadena="Hola este es mi sitio www.misitio.com"
dim arreglo()
arreglo=Split(cadena)
i=0
do until arreglo(i)=""
if instr(1,arreglo(i),"http://",1) and instr(1,arreglo(i),".com",1) Then
%>
<a href="<%=arreglo(i)%>"><%=arreglo(i)%>
</a><%else%>
<%=arreglo(i)%>
<% End If
i=i+1
loop %>