Acortar URLs con API usando HTTP GET

[pcarvajal]

Quiero implementar el acorte de urls usando el API de alguno de los servicios de que existen. Tomaré como ejemplo is.gd, ya que la mayoria trabaja casi de la misma forma:

Código PHP:

  http://is.gd/api.php?longurl=http://www.example.com 
   

Un esquema de lo que quiero hacer es algo así:

Código PHP:

  <%
my_short_url=""
my_long_url="http://www.mysite.com/mypage.asp?id=12345"
 
'--aqui es donde deberia llamar al api,
'--obtener la url acortada y cargar la variable llamada my_short_url
 
response.write "la url larga es: " & my_long_url  & "<br>"
response.write" la url corta es: " & my_short_url
%> 
   

La idea es hacerlo en una misma pagina y siguiendo la misma secuencia, pero no se me ocurre como implementarlo :-p
Aqui está la info del API (http://is.gd/api_info.php)

A ver si me pueden hechar una mano.

[u_goldman]

Voy de salida, así que si nadie te ha contestado al rato trato de hacer un ejemplo, pero básicamente tienes que hacer una llamada xmlhttp por get y obtener el HTML resultante:

Receiving the shortened URL

After submitting the URL you would like shortened as specified above, an HTTP response (web page) will be returned. The response header will be "HTTP/1.1 200 OK" if the URL was shortened as expected, or "HTTP/1.1 500 Internal Server Error" if there was any problem that prevented this.

Assuming the request was successful, the body of the response will contain only the new shortened URL, in plain text.

"Si la llamada es exitosa, el body solamente contendrá la nueva URL acortada."

Saludos

[pcarvajal]

hecho u_goldman!
investigaré mientras tanto para ver si logro hacer algo.
Saludos!

[pcarvajal]

listo u_goldman! Aquí les dejo el codigo básico y funcionando.
Demás está decir que podría ser optimizado mucho más, pero por algo se empieza

<%
Response.Buffer = True
Dim objXMLHTTP, xml

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
'--aqui un ejemplo con is.gd
' xml.Open "GET", "http://is.gd/api.php?longurl=http://www.forosdelweb.com", False
'--y aqui un ejemplo con tinyurl
xml.Open "GET", "http://tinyurl.com/api-create.php?url=http://www.forosdelweb.com", False
xml.Send

Response.Write "<h1>La URL acortada es</h1>" & xml.responseText
Set xml = Nothing
%>

Saludos!

[u_goldman]

Gracias por compartirlo