ASP İle Dönüşümlü Banner Sistemi

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

Hancı Eğitim

ASP Dersleri

Ara

Eğitim

Konular

Tags