Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp - Flash Etiket Bulutu Yapımı Asp - Flash Etiket Bulutu Yapımı
-
Etiket Bulutu
<%
Set RS = DBBaglanti.ExeCute("Select * FROM tbletiketler ORDER BY goruntulenme DESC" )
if Not RS.Eof Then
%>
<embed type="application/x-shockwave-flash" src="tagcloud.swf" id="tagcloud" name="tagcloud" bgcolor="#EAE680" quality="high"
flashvars="tcolor=0x000000&mode=tags&distr=true&tspeed=150&tagcloud=<tags>
<%
Do While Not RS.Eof
%>
<a href='icerik.asp?icerik_ID=<%=RS("icerik_ID" )%>' style='11'><%=RS("baslik" )%></a>
<%
RS.MoveNext
Loop
%>
</tags>" allowscriptaccess="always" width="200" height="180">
<%
end if
RS.Close
Set RS = Nothing
%>
Örnek Çalışma: http://www.birturku.com/
Bu adresten swf dosyasını indirin: http://www.roytanck.com/2008/03/15/wp-cumulus-released/ -
google anlamıyo flash dan etiketin de bi anlamı kalmaz o zaman tabi görsellik isteyen için ggüzelmiş.
-
canafar bunu yazdı:
-----------------------------
google anlamıyo flash dan etiketin de bi anlamı kalmaz o zaman tabi görsellik isteyen için ggüzelmiş.
-----------------------------bi ara flashlarında içeriğini alıyodu iptal mi ettiler onu
-
gereksiz.
-
Görmeyenler için yukarı taşıyorum, işinize yarayabilir.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 1360 Toplam Mesaj: 5
Cevapla