Ir para o conteúdo

Encurtando Url Com Goo.gl


Criado por Patrique, Out 09 2010 18:05

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Patrique

Patrique
  • Patrique
  • Colaborador
  • 13 Revisões

Revisou 09 outubro 2010 - 18:05

*
REVISÃO POPULAR!

<%

'---------------------------------------------------------------------

' Autor da Função: Patrique André (O gostosão)

' Perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

'---------------------------------------------------------------------

Function google(link)

    Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")

        URLAPI = "http://goo.gl/api/shorten?url="& link &""

        objXMLHTTP.Open "POST", URLAPI, FALSE

        objXMLHTTP.send()

        resultado = objXMLHTTP.responseText

        separa = Split(resultado,"""")

        urlcriada = separa(3)

        Response.Write urlcriada

    Set objXMLHTTP = nothing

End Function



call google("http://forum.imasters.com.br/index.php?/topic/411696-encurtando-url-com-goo-gl/")

%>





1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)