Replace na URL do Text Area

[Mrweb 0]

Pessoal, tenho um campo textarea onde e colocado o codigo html da newsletter, para o contador de clicks preciso dar um replace em todas as urls que aparecem no codigo.

 

Ex. no docigo vai estar assim http://www.imasters.com.br

 

Tem que acrescentar na frente http://www.site.com.br?url=

 

Ficando assim http://www.site.com.br?url=http://www.imasters.com.br

 

 

Alguem sabe alguma funcao que faz isso?

 

Obrigado

 

Gilberto

[jrcardozo 4]

busca = laboratório de scripts asp = http://forum.imasters.com.br/index.php?sho...p;hl=jonathandj

[Mrweb 0]

busca = laboratório de scripts asp = http://forum.imasters.com.br/index.php?sho...p;hl=jonathandj

JonhatanMais uma vez obrigado pela ajuda.Achei essa funçao que você criou.Infelizmente não tenho o conhecimento necessário para entender toda a logica e a programação utilizada aqui.Como poderia entrar a url www.site.com.br e virar www.site.com.br/newsletter/clicks.asp?url=www.site.com.brAte tentei mas nao consegui nada, veja so.

<%Function criaLink(strVar)'autor: Jonathan R. Cardozo (jonathandj)'data: 27/05/2007'finalidade: criar links de forma dinâmicaarr = split(strVar," ")for i = 0 to uBound(arr)  strAux = trim(arr(i))  pos = lCase(inStr(arr(i),"www."))   if pos <> 0 then   strTxt = mid(strAux,pos,len(strAux))   pos = inStr(strTxt,"/")   if pos > 0 then	strTexto = mid(strTxt,1,pos-1)   else	strTexto = strTxt   end if      strAux = replace(strAux,"..","")   strAux = replace(strAux,"??","")   strAux = replace(strAux,"!!","")   strAux = replace(strAux,",,","")   strAux = replace(strAux,"--","")      arr2 = split(". , - / \; ? ! @ % #"," ")   char = right(strAux,1)      for j = 0 to uBound(arr2)	if arr2(j) = char then	 strAux = left(strAux,len(strAux)-1)	end if   next    pos = inStr(strAux,"www")    strAux = mid(strAux,pos,len(strAux))      strTxt = "<a href=""http://"&lCase(strAux)&""" target=""_blank"">"&strTexto&"</a>"  else   strTxt = strAux  end if    saida = trim(" "&saida&" "& strTxt)nextcriaLink = saidaEnd FunctionmeuTexto = "http://www.site.com.br/newsletter/clicks.asp?url=.." Response.Write(criaLink(meuTexto))%>

[jrcardozo 4]

você coloca o nome do seu input no luvar da variavel meutexto

ASP

<input name="texto" type="textarea">

<%

Response.Write(criaLink(request("texto")))

%>