8/16/11

using bitly to shorten links classic .asp VBScript

A very easy script to shorten links using the bitly api.




Function bitlyThis(longURL)
apikey = "12345"
url = "http://api.bitly.com/v3/shorten?login=logsitall&apiKey=" & apikey & "&longUrl=" & longURL & "&format=txt"

set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send ""

bitlyThis = xmlhttp.responseText
set xmlhttp = nothing

END FUNCTION


longURL = "http://www.wikipedia.com"

response.write bitlyThis(longURL)


Posted by at
Labels:

3 comments:

  1. UnknownNovember 30, 2013 at 6:14 AM

    Hi, this dont work, it says the api key is invalid but its not.

    ReplyDelete
  2. john smithJune 17, 2018 at 1:35 PM

    Primarily, I'm talking about Twitter here which only allows you 140 characters in a tweet. If you've got a long, long URL... how are you going to say anything about it to get people to click and look? Just sending the link is NOT going to get you views. bitly

    ReplyDelete
  3. Topsellar1June 18, 2018 at 12:22 AM

    I love this blog!! The flash up the top is awesome!!
    Shortener

    ReplyDelete

Subscribe to: Post Comments (Atom)