Esto que te pongo funciona:
Código ASP:
Ver original<%
Response.Write filtra_URL("Mi Web es http://www.miweb.com y mi web alternativa es www.miweb2.com. Tambien pueden visitar www.miweb3.com")
Function filtra_URL(byval str)
Dim comienzo, strurl
do While (instr(str,"http://")>0) or (instr(str,"www.")>0)
strurl=""
'Calculamos la pos. del comienzo de la URL
comienzo=instr(str,"http://")
if comienzo=0 then
comienzo=instr(str,"www.")
End if
'Construimos la URL detectada
Do while (mid(str, comienzo, 1)<>" ") and (comienzo<>len(str)+1)
strurl=strurl+mid(str, comienzo, 1)
comienzo=comienzo+1
Loop
'y la reemplazamos en la cadena original
str=replace(str,strurl,"[contenido bloqueado]")
'vamos a por la siguiente en caso que exista
Loop
filtra_URL=str
End Function
%>
El resultado del response.write llamando a la función Function filtra_URL produce:
Mi Web es [contenido bloqueado] y mi web alternativa es [contenido bloqueado] Tambien pueden visitar [contenido bloqueado]
Espero que te sirva.
Un saludo.