Merhaba arkadaşlar. Aşağıdaki kodda asp ile tag bulutu yapabilirsiniz. Yazi değişkenine data'dan gelen verileri atayarak kendinize göre ayarlayın. İyi çalışmlar.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<%
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
%>
</div>
</body>
</html>