[Resolvido] hiperlinks

[xanburzum 169]

Muitas vezes achamos necessário criar hiperlinks ou e-mail nos links dinamicamente, é apenas HTML criados dinamicamente e fazer um hiperlink é realizada através da mistura de tags HTML com as variáveis. É muito simples fazer um hiperlink.

 

Aqui está um exemplo onde temos uma variável que é um hiperlink. Esta variável poderia vir de uma consulta ao banco.

 

<%
MeuHyperLink = "http://www.xan.com"
%>

para fazer um hyperlink no nosso

 

<a href="<% =MeuHyperLink %>"><% =MeuHyperLink %></a>

ou você poderia criar a string e dar um Response.Write na página

 

<% Response.Write("<a href=""" & MeuHyperLink & """>" & MeuHyperLink & "</a>") %>

De qualquer maneira, o resultado seria este

 

http://www.xan.com

 

vamos supor que a nossa informação de hyperlink não pode conter o "http://" info.

Aqui está um exemplo muito simples de testes para isso

 

<%
If InStr(LCase(MeuHyperLink) ,"http://") = 0 Then
	 MeuHyperLink = "http://" & MeuHyperLink
End If
%>

<a href="<% =MeuHyperLink %>"><% =MeuHyperLink %></a>

Basicamente, nós usamos a função LCase para fazer o hiperlink estamos testando minúsculas apenas no caso de "http://" foi escrito com todas as letras maiúsculas. Então nós usamos a função InStr para verificar se a string "http://" está no hiperlink. Se não é, simplesmente adicionada.

 

O próximo exemplo é um hiperlink e-mail

 

<%
MeuEmail = "teste@site.com"
%>

Para fazer um link de e-mail.

 

<a href="mailto:<% =MeuEmail%>"><% =MeuEmail %></a>

ou

 

<% Response.Write("<a href=""mailto:" & MeuEmail & """>" & MeuEmail & "</a>") %>

o resultado.

 

teste@site.com