Tag Clouds com ASP+Access

[Ghean 0]

Salve galera...

 

Depois de muito penar e pesquisar, não encontrei nada sobre Tagclouds em ASP.

Encontrei algumas coisas (quase nada) que serviram de base pra mim quebrar a cuca (rs).

 

Function tagClouds()
	Set objCon = Server.CreateObject("ADODB.Connection")
	  objCon.Open Application("ro_dados")
				
	strSql = "SELECT tag FROM maisBuscado WHERE clique > 10"
	Set objRs = objCon.Execute (strSql)
	
	Dim tempTag
	
	While Not objRs.EOF
		tempTag = tempTag & objRs("tag") & " "
	objRs.MoveNext
	Wend
	
	sArr = split(tempTag," ")

	For i = 0 to ubound(sArr)					
							   'randomize usado para que cada atualização as fonte troquem de tamnho - opcional
		randomize
		sCSS = sCSS & "<span class=""tag"&Int(3 * Rnd)&"""><a href='busca.asp?str=" & sArr(i) & "'>"& sArr(i) &"</span> "
	Next
	Response.Write(sCss)
End Function

<style type="text/css">
#MaisBuscados a {
	font: "Trebuchet MS",Verdana, Arial, Helvetica, sans-serif;
	color:#666666;
	text-decoration:none;
}
#MaisBuscados a:hover {
	font: "Trebuchet MS",Verdana, Arial, Helvetica, sans-serif;
	color:#666666;
	text-decoration:underline;
}

#tags{background-color:#EAEBF5;}
#MaisBuscados span{padding: 5px;}
#MaisBuscados span.tag0 {font-size: 13px;}
#MaisBuscados span.tag1 {font-size: 20px;}
#MaisBuscados span.tag2 {font-size: 30px;}
</style>

<div id="MaisBuscados">
		<div id="tBuscados">
	<h4>Mais Buscados</h4>
		</div>
		<div id="tags">
	<% tagClouds %>
		 </div>
</div>

Bom galera, é isso ai....

Espero que possa ser util pra muitos...

 

Abraços

[mows 0]

valeu brother, muito bom.

:)

[Ted k' 126]

e irá ser útil sim, parabéns pela postagem!!!!

[Patrique 0]

Nussa Exelente cara! muito bala este seu script show de bola!

 

Fiz algumas modificações, para mostrar no resultado 20 tags sendo ordenadas por número de cliques.

 

Muito show cara, te agradeço ae pelo script valeu! se fizer algum upgrade no script coloca ae pra gente conferir.

 

Vou deixar o code para os usuários testarem, da pequena modificação que.

 

<%
Function tagClouds()
	Set objCon = Server.CreateObject("ADODB.Connection")
	  objCon.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\tags\tags.mdb"

	strSql = "SELECT Top 20 tag FROM maisBuscado WHERE clique > 10 ORDER BY clique DESC"
	Set objRs = objCon.Execute (strSql)

	Dim tempTag

	While Not objRs.EOF
		tempTag = tempTag & objRs("tag") & " "
	objRs.MoveNext
	Wend

	sArr = split(tempTag," ")

	For i = 0 to ubound(sArr)
							   'randomize usado para que cada atualização as fonte troquem de tamnho - opcional
		randomize
		sCSS = sCSS & "<span class=""tag"&Int(3 * Rnd)&"""><a href='busca.asp?str=" & sArr(i) & "'>"& sArr(i) &"</span> "
	Next
	Response.Write(sCss)
End Function
%>

<style type="text/css">
#MaisBuscados a {
	font: "Trebuchet MS",Verdana, Arial, Helvetica, sans-serif;
	color:#666666;
	text-decoration:none;
}
#MaisBuscados a:hover {
	font: "Trebuchet MS",Verdana, Arial, Helvetica, sans-serif;
	color:#666666;
	text-decoration:underline;
}

#tags{background-color:#EAEBF5;}
#MaisBuscados span{padding: 5px;}
#MaisBuscados span.tag0 {font-size: 13px;}
#MaisBuscados span.tag1 {font-size: 20px;}
#MaisBuscados span.tag2 {font-size: 30px;}
</style>

<div id="MaisBuscados">
		<div id="tBuscados">
	<h4>Mais Buscados</h4>
		</div>
		<div id="tags">
	<% tagClouds %>
		 </div>
</div>

ta aqui o script com o banco de dados para os preguiçosos

 

http://rapidshare.com/files/111786217/tags.rar.html

 

Caso queira que o registro de tags seja imprimido de forma randomizada troque esta linha de comando

 

strSql = "SELECT Top 20 tag FROM maisBuscado WHERE clique > 10 ORDER BY clique DESC"

por esta

 

strSql = "SELECT Top 40 tag FROM maisBuscado WHERE clique > 10 ORDER BY RND(INT(NOW*clique)-NOW*clique) DESC"

Desta forma será mostrado as tags mais acessadas de forma randomizada na tela.

 

[]'s

[Cesão 1]

Ghean, muito legal cara! Acho que vou começar a fazer uma também, mas para SQL Server.

 

Mas sabe uma dica que você poderia melhorar no seu (que com ctz vou fazer no meu)?

ao inves de você pegar apenas os que tem mais de 10 clicks, o legal seria fazer uma soma de TODOS os clicks e dai você faria uma conta para ver a porcentagem que cada tag tem sobre o total de clicks dados em todas as tags... por exemplo:

 

TAGS e CLICKS

matemática - 20

português - 10

geografia - 40

historia - 30

fisica - 20

quimica - 5

ingles - 60

biologia - 30

TOTAL DE CLICKS - 215

 

Daí você tiraria a porcentagem de cada uma dessas tags no proprio SQL usando SUM e COUNT.

Daí você criaria 5 tamanhos de tags usando ja as tags do HTML mesmo: h1, h2, h3, h4, h5

 

e dai você faria a programação tipo?

de 1 a 20% - h5

de 21 a 40% - h4

de 41 a 60% - h3

de 61 a 80% - h2

de 81 a 100% - h1

 

td bem que nunca vai existir uma tag com 100% dos clicks (ou vai ser muito dificil), mas com 80% pra cima tem algumas, e essas eh que vao ficar em evidencia. alias, acho que eh assim que funcionam a maior parte das tag Clouds. mas isso eh apenas uma dica!!

abraços

[Dehu 0]

fiz tudo certinho aqui, alias PARABENS pelo codigo

há mto tempo procurava isso

 

exta exibindo QUASE tudo certo, porém, só está sendo exibida UMA tag, gostaria que aparecesse umas 10

 

podem me ajudar?

[hargon 64]

Se você seguiu o código, verifica se existe mais de 1 tag com mais de 10 cliques.

[Vinícius Siller 0]

Muito bacana o esquema de Tag Clouds.

O que acham de dar uma "estilizada"?

 

Modifiquei o css, de forma que algumas palavras apareçam em cores diferentes, e fiquem mais distintas umas das outras. Também modifiquei o line-height, para que as linhas fiquem mais compactas.

 

 

CODE

<style type="text/css">

#MaisBuscados { width:500px; min-height:200px;}

#MaisBuscados a {

font: "Trebuchet MS",Verdana, Arial, Helvetica, sans-serif;

color:#333;

text-decoration:none;

line-height:30px;

}

#MaisBuscados a:hover {

font: "Trebuchet MS",Verdana, Arial, Helvetica, sans-serif;

color:#333;

text-decoration:underline;

line-height:30px;

}

#tags{background-color:#EAEBF5;}

#MaisBuscados span{padding: 5px;}

#MaisBuscados span.tag0 a {font-size: 12px; color:#009966;}

#MaisBuscados span.tag1 a {font-size: 16px; color:#FF00FF;;}

#MaisBuscados span.tag2 a {font-size: 20px; color:#3366FF;}

#MaisBuscados span.tag3 a {font-size: 24px; color:#9933CC;}

#MaisBuscados span.tag4 a {font-size: 28px; color:#FFCC00;}

#MaisBuscados span.tag5 a {font-size: 32px; color:#FF0000;}

#MaisBuscados span.tag6 a {font-size: 34px; color:#0000FF;}

#MaisBuscados span.tag7 a {font-size: 38px; color:#FF9900;}

</style>

 

Detalhe:

nesta linha:

sCSS = sCSS & "<span class=""tag"&Int(8 * Rnd)&"""><a href='busca.asp?str=" & sArr(i) & "'>"& sArr(i) &" </span>"

modifiquem se preciso, o número 8 para o número de cores que for necessário.

 

To meio que viajando aqui na madrugada, mas acho que da pra fazer uma função de modo que as cores rand() sem precisar desse monte de linha que coloquei.

Vou dar uma olhada direitinho e depois posto se conseguir fazer.

 

Abraço pessoal http://forum.imasters.com.br/public/style_emoticons/default/closedeyes.gif

[Ghean 0]

Nossa galera, me desculpem por não responder antes, muito ocupado, rs

Gostei da evolução que foram feitas no codigo

 

Parabéns a todos