Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
<%
'---------------------------------------------------------------------
' 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/")
%>
