ASP ile Random Banner Yapımı

Asp kodlarını kullanarak kendimize banner sistemi oluşturucaz ve random olarak bu bannerların çıkmasını saglıycaz hemde çok kolay bir şekilde..

İlk Önce Veri Tabanımızı Oluşturucaz ve İçinde Reklam adında Bi Tablo Olacak..

Reklam Tablosunun İçinde id ve Reklam Adında 2 Tane Alanımız Olacak..

id = Otomatik Sayı
Reklam = Not

Olarak Ayarladıktan Sonra Veri Tabanı Baglantısını Yapıyoruz :

<%
vt_yol = Server.MapPath(“db/db.mdb” )
set Baglanti=server.createobject(“adodb.connection” )

Baglanti.open “Provider=Microsoft.JET.OLEDB.4.0; Data Source=” & vt_yol & “;”

%>

Simdi RecordSet Bağlantisi Yapıyoruz :

<%

Set Rs = Server.CreateObject(“ADODB.Recordset” )

Sql = “Select * From Reklam”

Rs.Open Sql,Baglanti,1,3

%>

Simdi Rastgele Bi Veriyi Çekelim DBden :

<%

Randomize
Rastgele= Int((Rs.RecordCount*Rnd )+0 )

Rs.Move(Rastgele )

Response.Write Rs(“Reklam” )
%>

İşlemimiz Bu Kadar..

Yani Dönüşümlü Banner Yapmak Çok Kolay Ve Tek Komut..

Randomize Komutu Rastgele anlamına Gelmektedir Ve Anlamına Göre İşlev Yapmaktadır : )

Alıntı: webhocam.net