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