Bu yazı Tasarım ve Kodlama kategorisine 10.03.2011 Tarihinde Eklendi, 5053 Kez Okundu.
Yeni yeni bir çok servis çıkıyor piyasaya. Bunların en gözdesi de URL kısaltma servisleri. Tabii projeler içerisinde bunları da kullanmak gerekiyor ve bir yazılımcının en büyük ihtiyacı, bu servisleri kendi yazılıma bir şekilde entegre etmek.
İşte size ufak bir fonksiyon. Bu fonksiyon ile bit.ly yada tiny.url servisinde ki hesabınız aracılığı ile kısa url oluşturup, kısa url yi geri alarak veri tabanınıza kaydedebilirsiniz.
Not: Bit.ly için üye olup login ve key girmeniz gerekiyor.
Buyrun;
Function ShortURL(sURL,Services)bit_apikey = "key"
bit_login = "badursun"
If Services = "tiny" Then strUrl = "http://tinyurl.com/api-create.php?url=" & sURL
ElseIf Services = "bitly" Then
strUrl = "http://api.bit.ly/v3/shorten?login="& bit_login &"&apiKey="& bit_apikey &"&longUrl="& Server.URLEncode(sURL) &"&format=txt"
End If
Set xmlr = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
xmlr.Open "GET", strUrl, false
xmlr.Send null
ShortURL = xmlr.responseText
Set xmlr = Nothing
End Function
Bu kodu kullanmak için de: <%=ShortURL("kisaltilacakURL","bitly")%> veya <%=ShortURL("kisaltilacakURL","tiny")%>
