Asp İle Tag Bulutu Yapımı

27-04-2009, 01:25:25

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>

29-04-2009, 14:17:01

#2