Şimdi Ara

Asp - Flash Etiket Bulutu

Bu Konudaki Kullanıcılar:
1 Misafir - 1 Masaüstü
5 sn
2
Cevap
0
Favori
859
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • 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/



  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.