Daha önce eklentimsi birşey yazmıştım. Yandaki menüde en üstte gördüğünüz MSN kısmından bahsediyorum. Kendi MSN’imle senkronize bir şekilde çalışıyor. Yeni eklemtim daha farklı birşey.

Sosyal medyanın hayatımıza girmesiyle bloglardaki yazılar daha çok paylaşılmaya başlandı. Bunun sonucunda birbirine benzer bir sürü eklenti çıktı. Fakat “eğer yoksa kendin yaz” felseme göre istediğim gibi bir eklenti yoktu :) Bende kendim yazmaya karar verdim.

Eklentiyi WordPresse  yükleyip çalıştırdığınızda yazılarınızın sayfasında yazının sonuna sık kullanılan paylaşım butonlarını ekliyor. Bunlar neler: Facebook beğen ve gönder, Facebookta paylaş, Twitter’da paylaş ve Google +1 butonları.

Neden Facebook beğen ve Facebook paylaş butonlarının ikisinide kullandığımı başka bir yazımda açıklayacağım.

Güle güle kullanın. Bir probleminiz olursa yorum kısmından sorabilirsiniz.

Değişim Günlüğü

v2: 21 Ağustos 2011 – Ufak bir bug vardı, düzeltildi.

v1: 9 Temmuz 2011 – İlk sürüm.

İndir

Yaptığım testlerde linklerde bir sorun çıkmadı. Tabi asıl test kısmı internete yaydıktan sonra başlıyor :) Bir sorun olursa yazabilirsiniz.

Kullanımı oldukça basit. İlk iki satırda twitter kullanıcı adınızı ve en son kaç mesajı almak istediğinizi yazıyorsunuz. Alt alta çıkıyor. Kendi sitenize göre kullanmak size kalmış.

[code lang="vb" autolinks="false"]
twitterusername = "muratcsmecioglu"
twittercount = 50

Function TwitterURL(ByVal icerik)
Dim twtRegExp
If icerik = "" Then Exit Function
Set twtRegExp = New RegExp
twtRegExp.Global = True
twtRegExp.IgnoreCase = True

twtRegExp.Pattern = "(((news|(ht|f)tp(s?))://){1}S+)"
TwitterURL = twtRegExp.Replace(icerik, "<a href=""$1"" target=""_blank"">$1</a>")

twtRegExp.Pattern = "(S+@S+..SSS?)"
TwitterURL = twtRegExp.Replace(TwitterURL, "<a href=""mailto:$1"">$1</a>")

twtRegExp.Pattern = "#([a-zA-Z0-9_ığüşöçİĞÜŞÖÇ]{1,20})"
TwitterURL = twtRegExp.Replace(TwitterURL, "<a href=""http://search.twitter.com/search?q=%23$1"" target=""_blank"">#$1</a>")

twtRegExp.Pattern = "@((w+))"
TwitterURL = twtRegExp.Replace(TwitterURL, "<a href=""http://twitter.com/$1"" target=""_blank"">@$1</a>")

Set twtRegExp = Nothing
End Function

URL = "http://twitter.com/statuses/user_timeline.xml?screen_name=" & twitterusername & "&count=" & twittercount
set xmlDoc = createObject("MSXML.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(URL)

If (xmlDoc.parseError.errorCode <> 0) then
Response.Write "XML Hatası: " & xmlDoc.parseError.reason
Else
set channelNodes = xmlDoc.selectNodes("//status")
for each entry in channelNodes
strtweet = TwitterURL(entry.selectSingleNode("text").text)
response.write strtweet & "<br>"
next
end If
[/code]

Öncelikle int nedir? int, programlama dillerinde integer anlamına gelir. Yani Türkçesi tam sayı demektir. Bu tam sayı 32-bit sistemlerde 32-bit’lik bir sayı olabilir. Bu demek oluyor ki -2147483648 ile 2147483647 arasındaki tüm tam satıları kapsar. Ayrıca unutmayın ki tamsayıların ondalık kısımları olmaz.

Peki CInt komutu ne işe yarıyor? Bu komut ASP’de bir bir sayısı tam sayıya çeviriyor ama bir şartla: Sayının -32768 ile 32767 arasında olması gerekiyor. (Bu noktada “Neden!” diye bağırmak istiyorum.) Benim gibi 2000000 üstü sayılarla çalışıyorsanız CInt komutu yerine CLng komutunu kullanabilirsiniz.

Hangi akıl-mantıkla böyle birşey yaptılar bilemiyorum. Sanırım bunlar php’ye geçmem için komplo… Ama yılmayacağım. Yaşasın Klasik ASP.

Aslında eskiden şöyle birşey vardı, sonradan tutmayıp silindi gitti: Messenger’daki resminizi, kişisel mesajınızı, görüntü adınızı bir resim haline getirip forumlarda, sitenizde kullanabiliyordunuz. Bunları araştırdım fakat doğru düzgün çalışan bir tane bulabildim. Bulduğumun güzel yönü kendi arkaplanımı kullanabiliyor oluşumdu.

Kayıt oldum, kendi arkaplanımı gönderdim ve resmin onaylanmasını beklemeye başladım. Bekledim, bekledim, bekledim.. 1 gün geçti onaylanmadı. Aceleciyim biraz ki bekleyemedim :) Sonrası biraz araştırma, biraz MsgPlus script’i yazmayla geçti.

Sonuç olarak sitenin sağ üstünde gördüğünüz kısım ortaya çıktı. Messenger resmim, ismim ve kişisel mesajımla senkronize bir halde. Çok iyi oldu, çok güzel iyi oldu.

Fikirsizler ile giriştiğim, sanırım benim için ilk, büyük projemde artık MySQL’e geçeyim dedim. ASP ve MySQL’i birlikte kullanıyorum. Kodlamada en üşendiğim kısımlardan bir tanesi sayfalama bölümleridir. MySQL’de nasılmış diye bakınırken çok güzel bir yöntem buldum. LIMIT fonksiyonunun nimetlerinden yararlanılarak harikalar yaratılabiliyormuş.

Zaten Windows hostinglerin neredeyse hepsi MySQL desteği veriyor. Bundan sonraki webmasterlık ve coderlık hayatımdaki yardımcım PhpMyAdmin’dir :) Bu da böyle bilinsin.

Herkese iyi bayramlar diliyorum.

—

Blogspot Kullananlar:

Buradan sitenizde kullanmak için şifrelenmiş kodunuzu oluşturuyorsunuz ve tasarımınızda <body> etiketinden hemen sonraya kodları yapıştırıyorsunuz.

Demoda verdiğim kodları eklediğinizde blogspot bazı işaretleri silebiliyor. Bu yüzden üstteki sayfadan adresinize göre şifreleyip kullanıyorsunuz.

CNSY’ye teşekkürler.

—

WordPress ve Diğer Sistemleri Kullananlar:

Yukarıda verdiğim linkten şifreleyip kullanabilirsiniz. Hiçbir sakınca yok. Aşağıdaki demo linkinden kodların normal halini görebilirsiniz. Web sayfanızda <body> etiketinden hemen sonra kodları yapıştırdığınızda çalışacaktır.

WordPress kullanıcıları görünüm menüsünden header.php dosyasını düzenleyerek <body> etiketinin altına kodları yapıştırabilirler.

—

Şifreleme Sisteminin Kullanımı:

Zaten şifreleme sayfasına girdiğinizde sadece adres yazmak için bir kutu göreceksiniz. Oraya adresinizi yazıp butona basın. Çıkacak olan kodları kopyalayıp <body> etiketinin altına yapıştırın.

Normal bağlantı yerine facebook sayfanızı beğendirmek istiyorsanız adresi http://facebook.com/sayfaadı şeklinde yazabilirsiniz.

—

Demo ve scriptin kodları için için burayı tıklayın.