Murat Çeşmecioğlu

Kişisel Web Sitesi

ASP ile Twitter Mesajlarını Alma

Geçenlerde AfişPark için lazım olmuştu. Orda kullanmak için yazdığım kodları biraz geliştirip buraya ekliyorum.

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ış.

<%
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
%>

6 Yorum

  1. #1 Ufuk tarafından, tarihinde

    Sanırım twitter xml adreslerini değiştirmiş. Erişilemiyor.

    • #2 Murat Çeşmecioğlu tarafından, tarihinde

      Bilgilendirdiğiniz için teşekkürler. XML desteğini kaldırmış sanırım. ASP için başka bir çözüm bulursam ekleyeceğim. Şimdilik kendi yaptığınız uygulama üzerinden tweetleri alabilirsiniz.

  2. #3 efecan tarafından, tarihinde

    Selamunaleykum.

    Ben bu kodları nasıl kullanacağımı bilmiyorum, yardımcı olabilir misiniz? Teşekkürler.

    Selametle…

    • #4 Murat Çeşmecioğlu tarafından, tarihinde

      Kodları yazıp uzantısı .asp olacek şekilde kayıt edin. Daha sonra ASP destekleyen hostinginize atıp tarayıcınızdan açtığınızda Twitter mesajlarının ekrana geldiğini göreceksiniz.

  3. #5 fatih tarafından, tarihinde

    merhabalar bazı isimlerden veriyi çekmiyor misal
    AskBAHAne
    ismini çektirmek isitorum olmadı sorun nereden kaynaklanıyor.

Yorum Yazın

İsim (gerekli)

E-Posta (gerekli)

İnternet sitesi