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.

Eğitim ASP Asp Nedir asp ve banner

Hancı Eğitim

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

ASP Dersleri

Ara

Eğitim

Konular

Tags