DÖNÜŞÜMLÜ BANNER SİSTEMİ
E-Bilisim.Netin Üst - Banner Kısmındada Gördüğünüz Dönüşümlü Banner sistemini Yapmayı Öğreneceğiz ..

Aslında Çok kolay Bi Sistem

İ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 :

 
Kod Alanı:

 

<%
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 :

 

Kod Alanı:

 

<%
Set Rs = Server.CreateObject("ADODB.Recordset" )
Sql = "Select * From Reklam"
Rs.Open Sql,Baglanti,1,3
%>
 



 



Simdi Rastgele Bi Veriyi Çekelim DBden :

 

Kod Alanı:

 

<%
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 : )

 

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol