Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal, estou batalhando a um tempo por um código que automaticamente procure numa variável ou texto o www ou http:// e transforme automaticamente em link e já fique com target blank.
Eu baixei esse código na net mas só fica o www como link, já tentei fazer uma gambiarra para virar o http:// mas não consegui. Abaixo o código:
Function link(str)
link=str
link=replace(link,chr(10),chr(32)&chr(10))
busca="www"
target=" target=_blank "
pi=1
do while pi<>0
p1=InStr(pi,link,busca,1)
if p1<>0 then
p2=InStr(p1,link,chr(32),1)
parte1=left(link,p1-1)
total=len(link)
retorno=total-p2
parte2=right(link,retorno)
'//Capturando o link
http="http://" & Mid(link,p1,p2-p1)
ahref= " <a href="""&http& """"&target&">"&http&"</a> "
link=parte1 & ahref & parte2
else
exit do
end if
pi=p1+(len(ahref))
loop
End Function
'//Criando uma variével com um texto qualquer
texto="Olá, este é um exemplo da fução que mostra links, tipo www.eurodance.com.br e www.teste.com.br vindos de banco de dados ou de variáveis. No momento, ele somente gera links do ""tipo"" http://www., mas logo estarei colocando novas aplicações, como e-mail. Qualquer sugestão é bem vinda."
'//Usando a função Server.HTMLEncode
'//IMPORTANTE - se for usar Server.HTMLEncode, use ANTES da função link
texto=Server.HTMLEncode(texto)
'//Usando a função link()
texto=link(texto)
'//Mostrando o resultado
response.write texto
se alguém saber de algum outro código que faça transforme automaticamente o resultado de uma variável www e http:// em link me ajude, por favor.
desde já valeu galera
Carregando comentários...