Asp ile Tag Bulutu Yapımı

Tekrar merhaba arkadaşlar. Bu yazımda Asp ile tag bulutu (tag clouds) yapımını anlatacağım sizlere. Öncelikle tag bulutu nedir sisteme etkileri nelerdir gibi özelliklerinden bahsetmek istiyorum.

Tag bulutu aslında sitemizde oluşturduğumuz içeriklerin etiketlrinin topluca bir yerde gösterilmesinden ibarettir. Tag bulutunun yapılma amacı ise google veya benzeri arama motorlarının sitemizi ziyaretinde onlara sitemizdeki içerik başlıklarını veya etiketleri tek bir seferde vererek daha kolay indekslemelerini sağlamaktır. Böylece aramalarda üst sayfalara çıkma olasılığımız yükselir. Şimdi tag bulutunun yapımına geçebiliriz.


<%
yazi = "Gerçekte tüm bu teknolojiler Ajax çözümlerinde kullanılabilir ama sadece üçü gereklidir. HTML / XHTML, DOM ve JavaScript. XHTML bilgiyi görüntülemek içi açık bir şekilde gerekliyken DOM, bir XHTML sayfasının parçalarını onu tekrardan yüklemeden değiştirmek için gereklidir. Son kısım olan javascript istemci - sunucu iletişimini başlatmak ve Web sayfasını güncellemek amacı ile DOM’u için gereklidir. Listedeki diğer teknolojiler bir Ajax çözümünün ince ayarlarını yapmak için yararlıdır ancak zorunlu değildir. Bu bahsi geçenlerin yanı sıra çok önemli bir unsur daha vardır. Biraz önce listelenen teknolojilerin hepsi doğrudan istemci taraflı Ajax motoru ile ilgilidir ama motora içeriği göndermek için bekleyen cevap verici, tutarlı bir sunucu olmadan AJax diye birşey olmaz. Bu amaç için istediğiniz sunucu uyguulamasını seçebilirsiniz. Burada önemli olan - ister Asp ister Php ister .Net veya Java servlet’leri teknolojisini kullanın - Ajax motoruna doğru veri biçiminin gönderilmesidir."
yazi = " "&yazi&" "
istenmeyenler = Array(".",":",",",";","!","?","-","•","|","/","0","1","2","3","4","5","6","7","8","9"," bir "," için "," ile "," bu "," şu "," o "," bunlar "," şunlar "," onlar "," ama "," ve "," veya "," fakat "," çok "," yani "," de "," da ")
'siz dahada çoğaltabilirsiniz tabi, ayrıca bunu database içinde de tutabilirsiniz
Function Temizle(x)
x = lcase(x)
For i = 0 To Ubound(istenmeyenler)
x = Replace(x,istenmeyenler(i)," ")
Next
Temizle = x
End Function

Yeniyazi = Temizle(yazi) 'yazıyı istenmeyenlerden arındırdık.
Kelimeler = Split(Yeniyazi," ") 'gelen yazıyı kelimelere böldük.
Yeniyazi2 = Yeniyazi 'ilerdeki kontrol için veriyi yeni bir değişkene aktardık.
Kelimeler2 = Kelimeler 'ilerdeki kontrol için veriyi yeni bir değişkene aktardık.
'burada kaça tane basılacak onu buluyoruz ki ona göre font boyutu bildirelim
For i=0 to Ubound(Kelimeler)
if inStr(Yeniyazi," "&Kelimeler(i)&" ") > 0 Then
kelimesay = ubound(split(Yeniyazi,Kelimeler(i)))
if kelimesay > 0 and trim(Kelimeler(i)) <> "" Then
totalcount = totalcount + kelimesay
End if
Yeniyazi = replace(Yeniyazi," "&Kelimeler(i)&" ","") 'burada birbirinin aynı kelimeleri def ediyoruz
End if
Next
%>
<div style="width:200px;" align="left">
<%
'burada da bulduklarımızı basıyoruz ekrana
For i=0 to ubound(Kelimeler2)
if inStr(Yeniyazi2," "&Kelimeler2(i)&" ") > 0 Then
kelimesay = ubound(split(Yeniyazi2,Kelimeler2(i)))
fontsize = int(kelimesay / totalcount * 100) + 11
'if fontsize > 30 then fontsize = 30
if kelimesay > 0 and trim(Kelimeler2(i)) <> "" Then
response.write "<span style='font-size:"&fontsize&"px; font-family:Verdana;'>" & Kelimeler2(i)&"</span>" & space(1)
End if
Yeniyazi2 = replace(Yeniyazi2," "&Kelimeler2(i)&" ","") 'burada birbirinin aynı kelimeleri def ediyoruz
End if
Next
%>