Reklam Scripti Yazalım (1.Bolum)

Bu benim sitedeki ilk günüm, ilk günümde ilk dersimi yazıyorum. Neden reklam scripti derseniz bilmiyorum :) Bir an bunu yazmak geldi içimden. Dersi bölüm bölüm yazacağım, daha anlaşılır olması için sorularınızı ve yorumlarınızı yazabilirsiniz.

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.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

ellerinize sağlık
hayırlı olsun başarılar... hocam kaynak dosyayı bir rar halinde paylaşsaydınız iyi olurdu hani bir karıstırır ne var ne yok bakar kullanırdık :) bu şekilde veritabanı vermişsiniz id Otomatik Sayı tnt Metin url Metin resim Metin onay Sayı gs Sayı tik Sayı tarih Tarih/Saat ///bunları nereye yazıcaz ne olarak kaydedicez anlamadım
tşk ediyorum bir kaç gundur sehir dısındaydım giriş yapamadım son derste dosyayı paylaşacam Synax arkadasım id Otomatik Sayı tnt Metin url Metin resim Metin onay Sayı gs Sayı tik Sayı tarih Tarih/Saat bunlar Accsess veritabanımız Sanalkurs adındaki veritabanımıza yeni bir tablo tasarlıyoruz tablomusun içini bu adıda reklam olarak kayıt ediyoruz
tskler güzel bir paylasım
yahu iyi güzel hoş ALLAH razı olsun fakat ben web tasarımı yapmak için hiç bi alt yapıya sahip değilim. bana hangi programları kurmam gerekiyor onu söylerseniz çok makbule geçer yani ben hiç web tasarımı görmedim yapmadım bilmiyorum bana gerekli olan ilk etapta hangi programlar ???
hayırlı olsun ben biraz önce kayıt oldum
:D
Hocm bıde bunu nere yapıstrcaz fln onu da solesen
Bir düzeltme yapılması gerekiyor. "git.asp" de 11 ve 13. satırlar şöyle değişmeli: 11 %> 12 'idmizi ince bi elekten geciriyoruz 13 <% ------------- rico nun sorusuna cevap olarak Dreamweaver programını kullan derim. buraq52 ye ise: bunları bir web tasarım programında yazıp uzantılarını .asp olarak kaydedeceksin. Kolay gelsin. Güzel bir paylaşımdı. Teşekkürler.
usta bunun ikinci dersi nezaman yayınlayacan
işallah sanal kurs beni iş sahibi yapacak çook güzel olmuş :gul:
Güzel Paylaşım xD
hocam süper ama devamı nezaman acaba bekliyoruz
2.Bölüm yokmu bulamadımda ?
saolasın emeğe saygı bişey rica edeceğim ziyaretciler veya üyeler nasıl resim yüklüyor ben bil ilan sayfası yaptım başlik: isim resim: mesala ziyaretci kendi bilgisayarından resim yüklemek zorunda nasıl olacak yardımcı olrsanız cook teşekkr ederim

Yukarı Git