Dönüşümlü Banner Sistemi

'Programlama' forumunda sha. tarafından 1 Oca 2010 tarihinde açılan konu

Konu etiketleri:
  1. sha.

    sha. ..daha çirkin, daha huysuz

    Sitelerde reklam için kullanılan dönüşümlü banner sisteminin nasıl yapıldığını anlatacağım.Bu sistemde veritabanındaki kayıtlarımızdan rastgele seçme işlemi yapılıyor.
    Bunun için tablo adında bir tablomuz id(autonumber),isim(text) 2 tane alanımız olsun.
    Kodumuzda rastgele bir id seçimi yapılacak.


    Kod:
         <%
        'baglantim adında veritabanı bağlantınız olacak
    
    
        set rs = server.createobject("ADODB.Recordset")
        sql = "select * from tablo"
        rs.open sql,baglantim,1,3
    
        Randomize
        rastgele = Int((rs.RecordCount*Rnd)+0)
        rs.Move(rastgele) 
    
        response.write rs("isim")
    
        %>
    

    Böylece her seferinde farklı bir bir isim yazılacak.Buraya isim yerine resminizin yolunu koyabilirsiniz.Böylece her seferinde farklı bir banner gelen sistem olur.
     

Bu Sayfayı Paylaş