Dersimize giriş yapalım: Script'imiz, reklam.asp, git.asp, login.asp, ekle.asp, gos.asp, db.asp olarak 6 asp sayfasından oluşacak. Tabii bir de mdb'miz, yani veritabanımız olacak.

Şimdi biz reklam.asp, git.asp, db.asp ve de veritabanımızı yapacağız.

İlk olarak veritabanımızı oluşturuyoruz.

    id            Otomatik Sayı
   tnt           Metin
   url            Metin
resim           Metin
onay           Sayı
  gs           Sayı
    tik           Sayı
 tarih          Tarih/Saat

Evet tablomuzun içi hazır, tabloya "reklam" adını koyup kapatıyoruz ve veritabanımızın adıda "sanalkurs" olsun.

db.asp sayfamızı yazıyoruz

db.asp

<% 
Set baglanti = Server.CreateObject("ADODB.Connection") 
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sanalkurs.mdb") 
%>

eminim cogumuz bu sayfanın ne işe yaradıgını biliyoruz veritabanımızın yolu

Şimdi reklam.asp sayfamızı yazalım:

reklam.asp

<!--#include file="db.asp"-->
' veritabanımızı sayfamıza bagladık

<%
set rs = server.createobject("ADODB.Recordset") 
sql = "Select * from reklam where onay=1"
rs.open sql,baglanti,1,3 
' veritabanımızın reklam tablosundaki onaylı olan verileri sayfaya dokmesini  istedık 
rsx = rs.RecordCount
 Randomize 
 id = Int((rsx * Rnd)+ 0) 
  rs.Move(id)
%>
<%
' hep aynı reklam gosterılmesın sayfa yenılendıgınde bannerimzda değişsin rastgele veri cagrdık
%>

<center>
<a title="<%=rs("tnt")%>" href="git.asp?id=<%=rs("id")%>">
<img src =<%=rs("resim")%> width="468" height="60"></a>
</center>
<%     
'ben bannerın eklendıgı tabloda ortalanasını ıstedım bu arada bannerın boyutu 468x60 olarak ayarladım 
%>
<% 
rs("gs")=rs("gs")+1
rs.update
rs.close
 
'burdada gosterımı 1 sayı artırdık ve baglantımızı kapattık 
%>

Sıra git.asp'de, belki gereksiz olarak gorunebilir; ama ben tıklama sayısını da almak istedim. Reklam kaç sefer tıklanmış? :)

git.asp

<!--#include file="db.asp"-->
<%
'soylemeye gerek yok .......
%>
<%

if (not Isnumeric(request.QueryString("id"))) then
response.redirect "default.asp"
end if
<%
'idmizi ince bi elekten geciriyoruz
%>

id=Request.Querystring("id")

set rs = server.createobject("ADODB.Recordset") 
sql = "Select * from reklam where id="&id&""
rs.open sql,baglanti,1,3 
%>
<%
' gelen id ye gore verimizi istedik
%>
<meta http-equiv="refresh" content="5;URL=<%=rs("url")%>">
<%
' adresi verdik artık gidebilir
%>
<% rs("tik")=rs("tik")+1
rs.update
rs.close

'evet tiklamayıda 1 sayı yukselttık 
 %>

Şimdilik dersimiz bitti, bir sonraki derste script'imize bir yonetim paneli yapacagız.

Sorularınızı varsa yazın, bir sonraki derste görüşmek üzere hoşçakalın.

NOT: Dersi tamamen kendim yazdım ve sadece sanalkurs.net'te yayınlanmaktadır.