ASP ile Twitter İşlemleri 2

Twitter ile ilgili ilk yazının konusu Twitter’daki takip ettiğimiz kişi sayısını bulmaktı. Bu yazıda ise bir kişinin yazdığı son 5 yazının nasıl alındığını göreceğiz.

Bu örnekte ilkinden farklı olarak fazladan iki fonksiyon kullanmam gerekti. İlk fonksiyon alacağımız tarih değerlerini anlaşılır hale getirmek için, ikinci fonksiyon ise statünün içinde bulunan linkleri tıklanabilir hale getirmek için kullanılıyor.

<%
Function TarihCevir(tarih)
	TarihDizi = Split(tarih," ")
	TarihCevir = TarihDizi(2) & " " & TarihDizi(1) & " " & TarihDizi(5) & " " & TarihDizi(3)
End Function
 
Function LinkYap(metin)
	yer1 = Instr(metin,"http://")
	If yer1 > 0 Then
		yer2 = Instr(yer1,metin," ")
		If yer2 = 0 Then yer2 = Len(metin)+1
		link = Mid(metin,yer1,yer2-yer1)
		LinkYap = Replace(metin,link,"<a href="&link&">"&link&"</a>")
	Else
		LinkYap = metin
	End If
End Function
%>

Formdan gelen kişi adı değeri varsa XMLDOM nesnemizi oluşturup verileri çekiyoruz. Bu işlem sırasında yine ilk örnekteki gibi SelectSingleNode kullanıyoruz ve kişinin yazdığı statüleri, bunları nereden ve ne zaman yazdığı bilgilerini çekiyoruz.

<%
If t <> "" Then
	Set objXML = Server.CreateObject("Microsoft.XMLDOM")   
	objXML.async = false
	objXML.setProperty "ServerHTTPRequest", true
	xmlFile = "http://twitter.com/statuses/user_timeline.xml?screen_name="&t&"&count=5"
	objXML.Load xmlFile
	Set objItems = objXML.getElementsByTagName("status")
	TwitSayisi = Int(objItems.Length)
	If TwitSayisi > 0 Then
%>
<table border="0" cellpadding="5" cellspacing="0" class="twitter">
<tr>
	<th style="width:250px;">Twit</th>
	<th style="width:100px;">Kaynak</th>
	<th style="width:150px; text-align:right">Tarih</th>
</tr>
<%
		i = 1
		For Each objItem in objItems
			text = objItem.selectSingleNode("text").Text
			kaynak = objItem.selectSingleNode("source").Text
			tarih = objItem.selectSingleNode("created_at").Text
%>
<tr <%If i mod 2 = 0 Then%> style="background:#eee;"<%End If%>>
	<td><%=LinkYap(text)%></td>
	<td><%=kaynak%></td>
	<td align="right"><%=TarihCevir(tarih)%></td>
</tr>
<%
			i = i + 1
		Next
%>
</table>
	<% End If %>
<% End If %>

Hazırlamış olduğum uygulamayı bu linkten görebilir veya bu linki kullanarak indirebilirsiniz.

Bir sonraki yazının konusu ASP ile Twitter durumunu güncellemek olacak.

5 Yorum

  1. ASP’ciler için hakketen güzel bir yazı olmuş.. Eline sağlık 🙂

  2. duygu

    öncelikle paylaşım için teşekkürler..
    yanlız programı indirdim açtım ama kullanıcı adını girip bilgileri getir dediğimde hiçbir sonuç getirmiyor :S yardımcı olur musunuz?

  3. Alper

    Denediğim bir kaç farklı kullanıcı adında herhangi bir sorun olmadan veriler geldi. Acaba girdiğiniz kullanıcı hesabı protected olabilir mi? Örneğin bu linke tıkladığınızda yine herhangi bir sonuç dönmeyecektir. Çünkü protected hesaplarda size dönen yanıt Not authorized olacaktır.

  4. duygu

    hayır kullanıcı adı doğru..sizin uygulamanızda sorunsuz çalışıyor zaten.. fakat uygulamayı kendim indirip açtığımda aynı sonucu alamıyorum..
    bunun sebebi ne olabilir.. acaba indirdiğimiz uygulama üzerinde bazı değişiklikler mi yapmalıyız?

  5. kemal

    hocam bunu otomatik nasıl yaparız ? isim koyarak taramaktan ziyade yazdığımız kullanıcı adının yazılarını otomatik getirecek ?

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.

This site uses Akismet to reduce spam. Learn how your comment data is processed.